Поменять местами слово максимальной и минимальной длины

17.12.2009, 10:54. Показов 1242. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Есть программа, находит макс. и мин. слово, нужно поменять их местами

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
25
26
27
28
29
30
31
32
33
program prog;
uses crt;
var min, max, len, i : integer;
    s, str, max_str, min_str , n: string;
begin
clrscr;
readln(s); 
max := 0; 
min := length(s); 
len := 0; 
max_str := ''; 
min_str := ''; 
str := ''; 
for i:=1 to length(s) do 
        if s[i]<>' ' then begin 
                inc(len);
                str := str + s[i]; 
        end else begin
                if len>max then begin 
                        max := len;
                        max_str := str; 
                end;
                if len<min then begin 
                        min := len;
                        min_str := str; 
                end;
                len := 0;
                str := ''; 
        end;
writeln('max = ', max_str); 
writeln('min = ', min_str); 
readln; 
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

17.12.2009, 10:54

Ответы с готовыми решениями:

Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами.
Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами. Помогите решить заранее спасибо. Заголовок...

Поменять местами слова с максимальной и минимальной длиной
Здравствуйте, нужно решение задачи: Поменять местами слова с максимальной и минимальной длиной при выполнения условия, что такие слова...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

17.12.2009, 10:54

Помогаю со студенческими работами здесь

В матрице поменять местами строки с максимальной и минимальной суммой элементов
Помогите плиз. Заданы 2 матрицы действительных чисел размером 5х6 и 8х7. В матрице поменять местами строки с максимальной и минимальной...

Поменять в строке предпоследнее слово и слово минимальной длины, содержащее не менее двух букв "и"
Поменять в данной строке предпоследнее слово и слово минимальной длины (первое по порядку), содержащее не менее двух букв «и». ...

Поменять местами слова с максимальной и минимальной длиной при условии, что такие слова единственные
Поменять местами слова с максимальной и минимальной длиной при условии, что такие слова единственные. Текст вводит пользователь.

Определить, какое слово - максимальной или минимальной длины - находится ближе к концу строки
Помогите пожалуйста. Дана строка символов. Определить, какое слово - максимальной или минимальной длинны - находится ближе к концу строки.

Поменять в данной строке третье слово и слово минимальной длины
Поменять в данной строке третье слово и слово минимальной длины (первое по порядку).

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

Наверх