Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 29.12.2011, 20:53   #1
TaylorGang
 
Регистрация: 14.11.2011
Сообщений: 3
По умолчанию Простая прога - самое длинное и короткое слово

Написать прогу которая будет находить самое длинное и самое короткое слово. Пояснение к каждому коду + блок схема. Не бесплатно))
TaylorGang вне форума Ответить с цитированием
Старый 29.12.2011, 20:54   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
uses crt;
var min, max, len, i : integer;
    s, str, max_str, min_str : string;
begin
clrscr;
readln(s); // читаем строку
s:=s+' ';
max := 0; // обнуляем переменную
min := length(s); // длина строки
len := 0; // обнуляем переменную
max_str := ''; // обнуляем переменную
min_str := ''; // обнуляем переменную
str := ''; // обнуляем переменную
for i:=1 to length(s) do // циклом проходимся по всей строке - от 1-го символа и до последнего
        if s[i]<>' ' then begin // если символ не является пробелом, то:
                inc(len); // увеличиваем длину слова на 1
                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; // а ето будет ожидать нажатия Enter
end.
Вложения
Тип файла: rar схема.rar (3.5 Кб, 44 просмотров)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 29.12.2011 в 22:08.
Mad_Cat вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти самое короткое и длинное слова и указать позиции на паскале Klik_1602 Помощь студентам 6 04.01.2011 19:39
Строки. найти самое короткое слово. bratello41 Общие вопросы C/C++ 2 13.12.2010 23:30
C#. Найти самое короткое слово StudentPolitech C# (си шарп) 0 14.11.2010 18:31
Самое короткое слово MAKEDON Общие вопросы C/C++ 2 15.04.2009 16:01
заменить самое длинное слово, на самое короткое в Delphi сер4ей Помощь студентам 5 05.03.2009 18:40


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS