3.2 Угадай число
Стратегия
игры:
Компьютер задумал число, человек предлагает свой вариант,
компьютер сравнивает это число со своим и сообщает больше, меньше или угадал.
var a,b,p,
m: real;
k: integer;
begin
cls;
randomize;
a:=1;
b:=100;
p:=
int((random*b)+a);
writeln (p);
writeln ('компьютер задумал число от 1 до 100, угадай его
');
while
p<> k do
begin
read (k);
if p = k
then writeln ('молодец');
if p > k then writeln ('задуманое число больше');
if p < k then writeln ('задуманое число меньше');
end;
end.
Вариант с подсчетом угадываний:
var a, z,
k: real;
begin
cls;
randomize;
z:=
INT(RanDom * 100 + 1);
writeln ('угадай число от1 до 100');
WHILE z <> a DO
begin
writeln ('Введите число a ');
readln (a);
IF a < z
THEN writeln ('Задуманное число больше ');
IF a > z
THEN writeln ('Задуманное число меньше ');
k:= k + 1;
end;
writeln
('"Угадал за
', k, ' попыток');
end.
ЗАДАНИЕ
В примере, выше, использован цикл WHILE с
предусловием для возможности нескольких угадываний в игре, напиши свою программу игры "Угадай число", используя операторы цикла FOR и REPEAT...UNTIL.
|