Дана неограниченная символьная последовательность. Определить встречаются ли подряд идущие три символа - 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.

  1. Сначала пользователю предлагается ввести три символа: a, b и c.
  2. Затем пользователю предлагается ввести символ, после чего начинается цикл, который продолжается до тех пор, пока не будет введен символ ..
  3. Внутри цикла происходит проверка: если введенный символ равен a, то пользователю предлагается ввести следующий символ. Если он равен b, то пользователю предлагается ввести следующий символ. Если он равен c, то переменная Prov становится равной 1.
  4. Если введенный символ не равен a, то пользователю предлагается ввести следующий символ.
  5. После окончания цикла выводится сообщение Da, если Prov равно 1, и No, если Prov не равно 1.

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

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