Дана неограниченная символьная последовательность. Определить встречаются ли подряд идущие три символа - Free Pascal
Формулировка задачи:
Дана неограниченная символьная последовательность a, b, c. Определить встречаются ли подряд идущие три символа.
Решение задачи: «Дана неограниченная символьная последовательность. Определить встречаются ли подряд идущие три символа»
textual
Листинг программы
Program OlololO; Var a,b,c,ch_1,ch_2,ch_3,ch:char; Prov:word; Begin WriteLn('Vvedite simvol (a): ');ReadLn(a); WriteLn('Vvedite simvol (b): ');ReadLn(b); WriteLn('Vvedite simvol (c): ');ReadLn(c); WriteLn('Priznok ostanovky - .'); Write('Vvedite simvol: '); readln(ch); While ch<>'.' do Begin If ch=a then Begin write('Vvedite simvol: '); readln(ch); If ch=b then Begin write('Vvedite simvol: '); readln(ch); If ch=c then Prov:=1; End; End Else Begin write('Vvedite simvol: '); readln(ch); End; End; If Prov=1 then Write('Da') else Write('No'); Readln; End.
Объяснение кода листинга программы
В этом коде используется язык программирования Free Pascal.
- Сначала пользователю предлагается ввести три символа: a, b и c.
- Затем пользователю предлагается ввести символ, после чего начинается цикл, который продолжается до тех пор, пока не будет введен символ
.
. - Внутри цикла происходит проверка: если введенный символ равен a, то пользователю предлагается ввести следующий символ. Если он равен b, то пользователю предлагается ввести следующий символ. Если он равен c, то переменная Prov становится равной 1.
- Если введенный символ не равен a, то пользователю предлагается ввести следующий символ.
- После окончания цикла выводится сообщение
Da
, если Prov равно 1, иNo
, если Prov не равно 1.