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

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

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

Пример 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
  writeln('vvedite ugadivaemoe chislo');
  readln(a);
  writeln('ugadaite chislo s 3x popitok');
  for i:=1 to 3 do
     begin
       writeln('popitka nomer  ' ,i, ' vvedite chislo');
       readln(b);
          if (b = a) then
            begin
              writeln('vi ugadali s popitki nomer ',i);
              break;
            end
          else
              writeln('vi neugadali');
      end;
 if (i=3) and (b<>a) then
    writeln('game over');
  readln();
end.

консоль:

vvedite ugadivaemoe chislo
5
ugadaite chislo s 3x popitok
popitka nomer 1 vvedite chislo
1
vi neugadali
popitka nomer 2 vvedite chislo
2
vi neugadali
popitka nomer 3 vvedite chislo
3
vi neugadali
game over

vedro-compota's picture

 if (i=3) and (b<>a) then

-- игрок всегда получается три попытки, если ему не удается угадать раньше,
есть лишняя проверка.
Если a не равно b, то для данного кода i всегда =3

_____________
матфак вгу и остальная классика =)

var a, b, i:integer;
begin
  writeln('vvedite ugadivaemoe chislo');
  readln(a);
  writeln('ugadaite chislo s 3x popitok');
  for i:=1 to 3 do
     begin
        writeln('popitka nomer  ' ,i, ' vvedite chislo');
        readln(b);
           if (b = a) then
             begin
               writeln('vi ugadali s popitki nomer ',i);
               break;
             end
          else
              writeln('vi neugadali');
     end;
  if b<>a then
    writeln('game over');
  readln();
end.