Решение задачи №3 из главы 12.1

Решение задачи №3 из главы 12.1

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

var a: char;// объявление символьной переменной
begin

  writeln('vvedite simvol:');
  readln(a); //вводим данные с клавиатуры
  repeat    // начало тела цикла
    writeln( '&' , ' '); //выводим символ & в ответ
    readln(a);
  until (a ='#'); // выход из цикла только если введен символ #
  writeln('Poka!!!');//завершение цикла
  readln();
end.      
vedro-compota's picture

Как будет работать это решение есть пользователь в первый же раз введёт символ #?
Допишите, чтобы эта ситуация тоже учитывалась.

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

gani84's picture

ОН выведет '#' значит что то не так

gani84's picture

var a: char;// объявление символьной переменной
begin

  writeln('vvedite simvol:');
  readln(a); //вводим данные с клавиатуры
  repeat    // начало тела цикла
    writeln( '&' , ' '); //выводим символ & в ответ
    writeln('vvedite simvol:');
    readln(a);
  until (a ='#'); // выход из цикла только если введен символ #
  writeln('Poka!!!');//завершение цикла
  readln();
end.  
vedro-compota's picture

так, решение практически верное, но первый раз пользователь ещё ничего не вводил, а вы уже отвечаете ему, сделайте так, чтобы до того как пользователь ничего не ввел, ничего и не выводилось.

собственно, вы так и не исправили замечание: http://fkn.ktu10.com/?q=comment/2679#com...

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

gani84's picture

var a: char;// объявление символьной переменной
begin
  repeat    // начало тела цикла
    writeln('vvedite simvol:');
    readln(a);
    writeln( '&' , ' '); //выводим символ & в ответ
  until (a ='#'); // выход из цикла только если введен символ #
  writeln('Poka!!!');//завершение цикла
  readln();
end.