Подскажите, как создать тест, чтобы цифры в примерах не повторялись - Pascal

Узнай цену своей работы

Формулировка задачи:

Создала тест, но мне надо, чтобы цифры в примерах не повторялись или хотя бы знаки

Решение задачи: «Подскажите, как создать тест, чтобы цифры в примерах не повторялись»

textual
Листинг программы
uses crt ;
var a,b,c,x,r,s,o,i:integer;
begin
clrscr;
randomize;
s:=0;
writeln('Математический тест "');
for i:=1 to 10 do
 begin
  a:=1+random(10);
  b:=1+random(10);
  c:=random(2);
  case c of
  0:begin
    r:=a+b;
    writeln(a,'+',b,'=?');
    end;
  1:begin
    r:=a-b;
    writeln(a,'-',b,'=?');
    end;
   end;
   readln(x);
   if x=r then s:=s+1;
 end;
case s mod 11 of
0..3:o:=2;
4..6:o:=3;
7..8:o:=4
else o:=5;
end;
writeln('Ваши баллы: ',S,' Оценка:', o);
readln;
end.

Объяснение кода листинга программы

  1. Объединение и использование функций random и readln для генерации случайных чисел и получения ответа от пользователя.
  2. Использование оператора mod для определения оценки пользователя на основе количества правильных ответов.
  3. Использование оператора case для определения различных математических операций, которые должны быть выполнены в зависимости от значения переменной c.
  4. Использование оператора if для проверки правильности ответа пользователя и увеличения переменной s, если ответ правильный.
  5. Использование оператора writeln для вывода вопроса, результата и оценки пользователя.
  6. Использование переменной r для хранения правильного ответа на вопрос.
  7. Использование переменной s для отслеживания количества правильных ответов пользователя.
  8. Использование переменной o для хранения оценки пользователя.
  9. Использование функции randomize для инициализации генератора случайных чисел.
  10. Использование функции clrscr для очистки экрана перед выводом вопросов.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы