3.4 Тест на сложение
У Маши есть младший брат Миша, который учится решать примеры на выполнение арифметических действий. Чтобы ему помочь, Маша решила написать программу, которая бы сама придумывала пример и сообщала Мише верно ли он решил. Задание 1:
Маша написала две программы, но не может разобраться с ними, помогите Маше и ответьте на вопросы: 1. Что означает randomize,
2. Чему будет равна переменная после выполнения действия:
p:=
int((random*b)+a)? 3. Какую программу 1 или 2 лучше использовать и почему?
Задание 2:
Скопируйте программы (тесты) на свой компьютер, запустите в PascalABC, проверьте работоспособность программ, ответьте на вопросы.
Придумайте и напишите свою программу для проверки уровня знаний выполнения арифметических действий.
Программа 1
var a,b,p,
m: real;
i, k:
integer;
begin
cls;
randomize;
a:=1;
b:=100;
p:=
int((random*b)+a);
m:=
int((random*b)+a);
writeln (p,
' + ',m);
writeln ('сложи два числа ');
for i:=1 to
5 do
begin
read (k);
if p+m = k
then writeln ('молодец');
end
end.
Программа 2
var a,b,p,
m: real;
k: integer;
begin
cls;
randomize;
a:=1;
b:=100;
p:=
int((random*b)+a);
m:=
int((random*b)+a);
writeln (p,
' + ',m);
writeln ('сложи два числа ');
while p+m
<> k do
read (k);
if p+m = k
then writeln ('молодец');
end.
| 
