Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 22.01.2015, 19:55   #1 (permalink)
Kot_Bayun
Новичок
 
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Lightbulb Задание на тему "Строки" в Pascal

Есть проблема в создании программы, а именно в самой идее решения (на форуме подобных заданий найти не удалось), поэтому прошу помочь в написании кода на языке Pascal и, если есть возможность, в объяснении работы программы. Себя в этой теме я, увы, пока ещё неуверенно чувствую.
Собственно, само задание:
Ввести строку символов. Найти в этой строке наибольшую по длине последовательность повторяющихся символов и вывести её на экран.

Пример:
Входные данные:
abc*/.;bbcccd
Выходные данные:
ccc
Kot_Bayun вне форума   Ответить с цитированием

Старый 22.01.2015, 19:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На нашем форуме уже встречались похожие топики, посмотрите их

А вы боитесь попасть в тему "Цитатник нашего форума"?
Задание по программированию в Pascal. Строки
Вражеский водолаз "Роял Нейви" и 7 его друзей. Проект"Русский стимпанк". Серия"Враги"
Помогите решить задачу "Pascal ABC"

Старый 22.01.2015, 22:54   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,167
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

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)
Kot_Bayun
Новичок
 
Регистрация: 15.12.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Большое Вам спасибо!
Kot_Bayun вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:57.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.