Урок 10.2 Задача 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.Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
var a, b, i: integer; begin write ('Задайте число: '); readln (a); // считываем заданное число writeln ('Угадайте число с трех попыток'); for i:=1 to 3 do // количество попыток задаем в заголовке цикла begin write ('Попытка № ', i, ' ваше число: '); // пояснение для пользователя с указанием текущей попытки, т.е. счетчика цикла readln (b); // считываем число, введенное пользователем if (b = a) then // проверка на соответствие введенного числа заданному числу begin writeln ('Победа! ', 'Вы угадали число с ', i, ' попытки'); // сообщение пользователю с указанием текущей попытки, т.е. счетчика цикла break // выход из цикла end else // если не соответствует условию writeln ('Не угадали!'); // выводится соответствующее сообщение end; writeln ('Игра окончена!'); // после завершения всех витков (попыток) или после выхода из цикла в случае угадывания выводится соответствующее сообщение readln(); end.
Вывод в консоли:
Задайте число: 7
Угадайте число с трех попыток
Попытка № 1 ваше число: 5
Не угадали!
Попытка № 2 ваше число: 1
Не угадали!
Попытка № 3 ваше число: 7
Победа! Вы угадали число с 3 попытки
Игра окончена!
- Log in to post comments
- 456 reads