Задача 2(2.1;2.2;3) Урок 10.2
Primary tabs
В примере №2 есть код:
var a, b, i:integer; begin a := 5; writeln('Угадайте число от 1 до 10 с трех попыток'); for i:=1 to 3 do begin writeln('Попытка №', i, ' выше число:' ); readln(b); if (b = a) then begin writeln('Победа!'); break end else writeln('Не угадали!'); end; writeln('Игра окончена!'); readln(); end.
который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Решение:
var a,b,i:integer; begin writeln('Vvedite chislo'); //Устанавливаем число которое нужно угадать readln(a); writeln('ugadayte chislo ot 1 do 10 s 3eh popitok'); for i:=1 to 3 do begin writeln('Popitka #', i, ' vishe chislo:' );//выводим с номером попытки readln(b); if (b = a) then begin writeln('Pobeda s ',i,' popitki'); break end else writeln('Ne ugadali!'); end; if ((b<>a) AND (i=3)) then writeln('Igra okonchena!'); //вывод только в случае трех неудачных попыток readln(); end.
- Log in to post comments
- 457 reads