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

В заданном наборе слов найти слово максимальной длины

17.12.2015, 14:08. Просмотров 850. Ответов 1
Метки нет (Все метки)

В заданном наборе слов найти слово максимальной длины
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 14:08
Ответы с готовыми решениями:

Найти слово максимальной длины в заданном тексте
найти слово максимальной длины в заданном тексте

Из слов заданного текста составить цепочку слов максимальной длины
задача: Из слов заданного текста составить цепочку слов максимальной...

Найти в строке количество слов той же длины, что и первое слово
Словом в строке называется последовательность букв, не прерываемая другими...

Выбрать слово средней длины среди трёх слов разной длины
Создать программу ,которая выбирается из введенных трех разных слов длины на...

Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами.
Строка содержит одно слово максимальной и одно минимальной длины. Поменять их...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
17.12.2015, 16:49 2
Лучший ответ Сообщение было отмечено schokker126 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
    Separators: Set Of Char = [' ', '.', ',', '!', ':', ';', '"', '?']; //остальные по желанию
var
    s, max, temp: String;
begin
    Write('Input s: '); ReadLn(s);
    s := s + ' ';
    max := ''; temp := '';
    while (Length(s) > 0) do
    begin
        if (s[1] in Separators)
        then
        begin
            if (Length(max) < Length(temp))
            then
                max := temp;
            temp := '';
        end
        else
            temp := temp + s[1];
        Delete(s, 1, 1);
    end;
    Write('Answer: ', max);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 16:49

Найти в строке палиндром максимальной длины
Ограничение по времени: 1 секунда Ограничение по памяти: 64 мегабайта Как...

Как в массиве найти отрезок максимальной длины
Помогите пожалуйста задачку решить. Дан массив целых чисел. Рассмотреть...

Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д.
Задан числовой массив A. Найти отрезок массива максимальной длины, в котором...


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

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

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