Программа для обучения устному счетуна Паскаль

[Myhamorchik]

Здравствуйте!Помогите, плиз, решить задачу на Паскале. А то я даже не знаю с какого боку к ней подобраться и с чего начать
Заранее спасибо!

Составить программу для обучения устному счету. На каждом шаге должны предлагаться числа и арифметические действия, которые надо выполнить над этими числами.

[Sazary]

Генерируете два случайных числа и одну из операций (+, -, *, /)
Выводите как пример. Человек вводит результат. Программа сравнивает с тем, что посчитала она.

[Myhamorchik]

Это конечно вы здорово написали, но мне бы код программы. Так как я вообще в Паскале ни "бум-бум"

[Sazary]

Это конечно вы здорово написали, но мне бы код программы.

Сообщение от Myhamorchik

Помогите, плиз, решить задачу на Паскале. А то я даже не знаю с какого боку к ней подобраться и с чего начать

Если вам нужен код, то зачем писать что-то про помощь? Будьте честным хотя бы с самим собой.
В другой день не написал бы..

uses crt;
var
a,b : integer;
rez,us : real;
oper : byte;
c : char;

begin
clrscr;
randomize;
repeat
clrscr;
a := random(10)+1;
b := random(12)+1;
oper := random(3)+1;
if random(6)=1 then oper := oper + 1;

write(a,' ');
case oper of
 1 : begin
     rez := a+b;
     write('+ ');
     end;
 2 : begin
     rez := a-b;
     write('- ');
     end;
 3 : begin
     rez := a*b;
     write('* ');
     end;
 4 : begin
     rez := a/b;
     write('/ ');
     end;

 end; {case}
write(b);
writeln;
write('Result= ');
readln(us);
if us=rez then
 writeln('Otvet vernyj!')
else
 begin
 write('Otvet nevernyj. Pravilnyj otvet: ');
 if oper <> 4 then writeln(rez:0:0)
 else writeln(rez:0:3);
 end;

writeln('Prodolzhit? (Esc dlya vyhoda)');
c := readkey;
if c=#27 then break;
until c=#27;

end.

[Myhamorchik]

Спасибочки огромное!Прям аж расцеловать хочется...

[avabnic]

а что делать если у меня числа выпадают 7/6 я пишу ответ 1.1667, программа мне выдаёт, что ответ этот не правильный. Как исправить?

[VIK_aka_TOR]

Сообщение от avabnic

а что делать если у меня числа выпадают 7/6 я пишу ответ 1.1667, программа мне выдаёт, что ответ этот не правильный. Как исправить?

ну тут как вариант для делению можно поставить определенную погрешность для сверки ответов... так как ты не введешь в ручную то тчо в программе хранится...