Курсовая работа: Создание тестирующей программы

Write('Ответ');Readln(otv);

if otv = otvfile then begin e:=e+1;end;end;

z1:=round(x/4);

z2:=round(x/2);

z3:=round(x/1.3);

if e<=z1 then u:=2 else

if (e>z1) and(e<=z2) then u:=3 else

if (e>z2) and (e<=z3) then u:=4 else u:=5;

close(f);

clrscr;

writeln('Правильныхответов’,e);

writeln('Вашаоценка',u);

end;

begin clrscr;

MainMenu;

umnogenie; readln;

Test;

end.

Приложение 2

2.1 Блок - схема