22.01.2015, 19:55 | #1 (permalink) |
Новичок
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задание на тему "Строки" в Pascal
Собственно, само задание: Ввести строку символов. Найти в этой строке наибольшую по длине последовательность повторяющихся символов и вывести её на экран. Пример: Входные данные: abc*/.;bbcccd Выходные данные: ccc |
22.01.2015, 19:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На нашем форуме уже встречались похожие топики, посмотрите их А вы боитесь попасть в тему "Цитатник нашего форума"? Задание по программированию в Pascal. Строки Вражеский водолаз "Роял Нейви" и 7 его друзей. Проект"Русский стимпанк". Серия"Враги" Помогите решить задачу "Pascal ABC" |
22.01.2015, 22:54 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
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. |
23.01.2015, 00:43 | #3 (permalink) |
Новичок
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое Вам спасибо!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|