Задание на тему "Строки" в Pascal
Есть проблема в создании программы, а именно в самой идее решения (на форуме подобных заданий найти не удалось), поэтому прошу помочь в написании кода на языке Pascal и, если есть возможность, в объяснении работы программы. Себя в этой теме я, увы, пока ещё неуверенно чувствую.
Собственно, само задание: Ввести строку символов. Найти в этой строке наибольшую по длине последовательность повторяющихся символов и вывести её на экран. Пример: Входные данные: abc*/.;bbcccd Выходные данные: ccc |
var s,s1,s2:string;
max,i,j:integer; c:char; begin Writeln('Stroka simvolov:'); Readln(s); s1:=''; s2:=''; i:=1; j:=1; max:=0; repeat c:=s[i]; s1:=s1+c; Inc(i); While s[i]=c do begin s1:=s1+c; Inc(j); Inc(i); end; if j>max then begin max:=j; s2:=s1; end; s1:=''; j:=1; until i> Length(s); Writeln; Writeln(s2); Readln; end. |
Большое Вам спасибо!tehno006
|
Часовой пояс GMT +4, время: 12:26. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.