С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Kseniya94
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 8
1

Найти в строке самую длинную повторяющуюся подстроку

23.12.2015, 11:29. Просмотров 937. Ответов 1
Метки нет (Все метки)

в паскаль найти в строке самую длинную повторяющую подстроку

Добавлено через 11 минут
Пожалуйста..очень сейчас нужно
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2015, 11:29
Ответы с готовыми решениями:

Подсчитать в строке самую длинную последовательность подряд идущих букв А
Здравствуйте помогите пожалуйста! В основной программе должен быть оператор...

Найти самую длинную группу цифр
Помогите с данной задачей, пожалуйста. "Дан текст, каждый символ которого может...

Найти самую длинную возрастающую последовательность
В заданном массиве : а) Найти самую длинную возрастающую последовательность...

Найти самую длинную сторону четырехугольника
Найти самую длинную сторону четырехугольника . Координаты вершин известны.

Найти в матрице самую длинную цепочку подряд стоящих нулей
матрица L(n,k) состоит из нулей и единиц. найти в ней самую длинную цепочку...

1
APALoff
1640 / 1069 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
23.12.2015, 12:50 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Rep(s : String) : String;
Var i,j,k : Byte;
Begin
  For i:=Length(s) div 2 downto 2 do
   For j:=1 to Length(s)-i+1 do
    For k:=j+i to Length(s) do
      If Copy(s,j,i)=Copy(s,k,i) then
      Begin
        Rep:=Copy(s,j,i);
        Exit;
      end;
end;
 
Begin
  Writeln(Rep('ABCD123456789abcdabcdefef123456789ABCD'));
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2015, 12:50

В заданном тексте найти самую длинную симметричную последовательность символов
в заданном тексте найти самую длинную симметричную последовательность символов

В последовательности найти самую длинную последовательность, которая является арифметической прогрессией
в заданной (одной)последовательности цифр найти самую длинную...

Найти в заданной последовательности самую длинную подпоследовательность, состоящую только из положительных чисел
Найти в заданной последовательности самую длинную подпоследовательность,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru