Урок 10.2 Задача 3

Урок 10.2 Задача 3:

В примере №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;
  x: boolean; //объявляем переменную логического типа
begin
  a := 5;
  x := true;  //задаем исходное значение
  writeln('Угадайте число от 1 до 10 с трех попыток');
  for i:=1 to 3 do
  begin
    writeln('Попытка №', i, ' ваше число:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Победа!');
       break
    end else // ложная ветка срабатывает, когда пользователь не угадал
       writeln('Не угадали!');
       x := false; // исходное значение переменной лог. типа меняется только в случае, когда пользователь не угадал
  end;
    if (x = false) then //условие, когда исх. значение переменной лог. типа изменено (когда пользователь не угадал)
    writeln('Игра окончена!'); // выводится это сообщение
  readln();
end.  

Вывод в консоли:

Угадайте число от 1 до 10 с трех попыток
Попытка №1 ваше число:
6
Не угадали!
Попытка №2 ваше число:
7
Не угадали!
Попытка №3 ваше число:
8
Не угадали!
Игра окончена!

Угадайте число от 1 до 10 с трех попыток
Попытка №1 ваше число:
4
Не угадали!
Попытка №2 ваше число:
5
Победа!
Игра окончена!