Kann
5 год назад
Пожалуйста посчитайте с задачей по Delphi! Надо вывести 10 задач(a*b=c) в цикле, программа проверяет задачи и считает баллы. В ходе цикла надо вывести правильный ответ(если вы ввели неправильный ответ). Также программа считает количество поинтов в зависимости от правильных ответов.-------------------------------------------------------------------------------------var i,x,y,answer,input:Integer;beginWriteln('*TEST*');randomize;answer:=10;for i:=1 to 10 dobeginWrite(Random(x),' * ',Random(y),' = '); //я не знаю как задать диапазон для //переменнойReadln(input);if input:=x*y then//программа выдает ошибку что нужен тип //переменной booleanbeginanswer:=answer;endelsebeginwrite('WRONG!',x,' * ',y,' = ',x*y)answer:=answer-1;end;end;Writeln('Correct answers - ',answer);case answer of10:Writeln('Excellent!');9,8:Writeln('Good!');6,7:Writeln('OK!');0..5:Writeln('Bad!');end;Readln;-------------------------------------------------------------------------------------
ОТВЕТЫ
Antti Vilho
Oct 24, 2020
var i,x,y,answer,input,k:Integer;
begin
Writeln('*TEST*');
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
begin
x:=Random(9)+1;
y:=Random(9)+1;
Write(x,' * ',y,' = ');
Readln(input);
if input=x*y then
begin
k:=k+1;
writeln('RIGHT!');
end
else writeln('WRONG! ',x,' * ',y,' = ',x*y);
end;
Writeln('Correct answers - ',k);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;
end.
Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!
begin
Writeln('*TEST*');
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
begin
x:=Random(9)+1;
y:=Random(9)+1;
Write(x,' * ',y,' = ');
Readln(input);
if input=x*y then
begin
k:=k+1;
writeln('RIGHT!');
end
else writeln('WRONG! ',x,' * ',y,' = ',x*y);
end;
Writeln('Correct answers - ',k);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;
end.
Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!
611
Смежные вопросы:
