урок 10.2 задача 3

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Fri, 03/25/2022 - 11:31

Forums:

урок 10.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('Не угадали!'); э
       if (a=3) then
      writeln('игра окончена!');
  end;


  readln();
end.
  • Log in to post comments
  • 2400 reads
vedro-compota's picture

vedro-compota

Fri, 03/25/2022 - 11:33

запустить код и проверить работает ли
--почему именно

if (a=3) then

?

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

isaac_fan's picture

isaac_fan

Tue, 03/29/2022 - 19:52 

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('Не угадали!'); э
       if (i=3) then
      writeln('игра окончена!');
  end;
 
 
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 03/29/2022 - 19:58

засчитано

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