Цикл: Как реализовать цикл или что-то другое, чтобы возвращаться в окно редактирования с помощью букв "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'); {...}
Объяснение кода листинга программы
- Объявлена переменная типа char с именем
u
. - Выводится сообщение
Повторяем-
Y, выход-
N``. - Происходит чтение значения из файла или с консоли в переменную
u
. - Цикл выполняется до тех пор, пока значение переменной
u
не будет равноn
илиN
. - В условии цикла используется оператор
or
, что означает, что выполнение цикла прекратится, как только будет выполнено одно из условий. - Если значение переменной
u
равноn
илиN
, то цикл прекращается. - Если значение переменной
u
не равноn
илиN
, то цикл продолжается. - После окончания цикла программа продолжает работу.