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

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 04/26/2022 - 18:08

Forums:

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу. 

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
  readln (a);
  b:='#';
  if a=b then break
  else
  writeln ('&');
  until (a=b);
end.
  • Log in to post comments
  • 1490 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:17

  • 1) Зачем каждый раз в цикле делать присваивание?
  • 2) Нужна ли вообще переменная b? (не нужна, в сравнении можно использовать литерал напрямую )
  • 3) Проверить форматирование - много ошибок с ним

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

isaac_fan's picture

isaac_fan

Tue, 04/26/2022 - 20:18 

var a: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
  readln (a);
 
  if a=b then break
   else
  writeln ('&');
    until (a=#);
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:15

код вообще не работает, исправить

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

isaac_fan's picture

isaac_fan

Tue, 05/17/2022 - 16:37 

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if a='#' then break
     else
     writeln ('&');
  until (a='#');
end.
vedro-compota's picture

vedro-compota

Tue, 05/17/2022 - 20:17

Переписать без break

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

isaac_fan's picture

isaac_fan

Tue, 05/24/2022 - 13:04 

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
     writeln ('&');
  until (a='#');
  writeln('вы прошли нашу загадку');
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/24/2022 - 20:35

сейчас работает не по условию - нужно чтобы при вводе # в ответ & НЕ выводился

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

isaac_fan's picture

isaac_fan

Tue, 06/07/2022 - 19:14 

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if (a<>#) then
     writeln ('&');
  until (a='#');
  writeln('вы прошли нашу загадку');
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:14

код не запустится, неправильно описан литерал

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

isaac_fan's picture

isaac_fan

Sat, 06/11/2022 - 14:17 

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if (a<>'#') then
     writeln ('&');
  until (a='#');
  writeln('вы прошли нашу загадку');
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/21/2022 - 19:11

засчитано

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