нужна Паскаль. Девятый класс.
Написать код на языке программирования тестирующей программы по любой дисциплине с подсчетом количества правильных ответов. Подсчет количества правильных ответов производится таким образом: к:=к+1 ( присваивается за правильный ответ).Начальное значение переменной к=0.
program z1;
var i,x,y,z,k:integer;
begin
k:=0;
randomize;
writeln ('Проверка знания Таблицы умножения');
writeln;
for i:=1 to 5 do
begin
x:=random(9)+1;
y:=random(9)+1;
writeln ('Сколько будет ',x,' * ',y);
write ('Ваш ответ ');
readln (z);
if z=x*y then
begin
k:=k+1;
writeln ('Правильно!')
end
else writeln ('Неправильно! ',x,' * ',y,' = ',x*y);
writeln
end;
writeln;
writeln ('Количество правильных ответов ',k)
end.
Объяснение:
Цикл с параметром (5 вопросов):
1) Числа генерируются случайным образом от 1 до 9
2) Вывод на экран вопроса
3) Ввод ответа пользователем
4) Оценка правильности ответа (полный оператор ветвления - если ответ пользователя верен, то увеличиваем значение k и выводим сообщение о верности ответа, иначе выводим сообщение об ошибочности ответа и верный ответ)
Вывод на экран количество правильных ответов