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

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

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

В заданном наборе слов найти слово максимальной длины
http://www.cyberforum.ru/pascal/thread72135.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 14:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В заданном наборе слов найти слово максимальной длины (Pascal):

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Найти количество слов-полиндромов в заданном тексте.
Как решить задачу??? Дан текст, в котором слова разделены одним или...

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


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

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

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