Таблица умножения

[baha-krg]

Таблица умножения

Написать программу для обучения школьников младших классов таблице умножения. Программа случайным образом генерирует два равномерно-распределенных случайных числа на отрезке [0,1], переводит их в отрезок [1,9] и предлагает учащемуся перемножить эти числа. Результат сравнивается с правильным. Оценка выставляется по результатам анализа десяти операций перемножения. Например, из 10 предложенных вариантов, вы правильно ответили на 9.


Требования к входным данным: Входные данные отсутствуют.

Требования к результату: Программа выдает на экран следующие строки: первая строка – количество правильных ответов учащегося, следующие строки содержат: сгенерированные числа (между числами знак умножения), знак равенства, вариант ответа учащегося, знак пробела, правильный вариант ответа на вопрос.

Пример сгенерированных данных и результатов работы программы Входные данные: Отсутствуют
Результат:
9
4×9=36 36
5×7=35 35
9×6=56 54
7×7=49 49
8×3=24 24
7×2=14 14
2×6=12 12
1×8=8 8
6×4=24 24
3×5=15 15

[VIK_aka_TOR]

как то так...

var
a,b,y,z,i,index : integer;
begin
  randomize;
  index := 0;
  for i:=1 to 10 do
    begin
      a:= random(9) + 1; 
      b:= random(9) + 1;
      write(a, ' x ', b, ' = '); 
      read(y);
      z := a * b;
      writeln(z:3);
      if y = z then 
        index := index +1;
    end;
    writeln('Верных ответов: ', index);
end.