Цикл: Как реализовать цикл или что-то другое, чтобы возвращаться в окно редактирования с помощью букв "Y" и"N". - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Как реализовать цикл или что-то другое чтобы не возвращаться в окно редактирования не с помощью цифр, а например с помощью букв "Y" и"N". в приведенном примере происходит повторение цикла при нажатии цифры "1". А мы хотим продолжать при нажатии "Y".
//Нужно опредделить, сколько раз встречается в заданом числе первая цифра.
program PovtorChisla;
var n, x:longint; c,c1,k:byte;
u:byte;
begin
                repeat
        begin
read(n); x:=n;
while n>9 do
n:=n div 10;
c1:=n;
k:=0;
repeat
c:= x mod 10;
if c=c1 then k:=k+1;
x:=x div 10;
until x=0;
writeln(k);
        writeln('Повторяем-"1", выход-"0"');
        readln(u);
        end;
                until u=0;
        writeln('END');
end.

Решение задачи: «Цикл: Как реализовать цикл или что-то другое, чтобы возвращаться в окно редактирования с помощью букв "Y" и"N".»

textual
Листинг программы
{...}
u:char;
{...}
        writeln('Повторяем-"Y", выход-"N"');
        readln(u);
        end;
                until (u='n') or (u='N');
{...}

Объяснение кода листинга программы

  1. Объявлена переменная типа char с именем u.
  2. Выводится сообщение Повторяем-Y, выход-N``.
  3. Происходит чтение значения из файла или с консоли в переменную u.
  4. Цикл выполняется до тех пор, пока значение переменной u не будет равно n или N.
  5. В условии цикла используется оператор or, что означает, что выполнение цикла прекратится, как только будет выполнено одно из условий.
  6. Если значение переменной u равно n или N, то цикл прекращается.
  7. Если значение переменной u не равно n или N, то цикл продолжается.
  8. После окончания цикла программа продолжает работу.

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы