Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2014, 15:02   #1
DimzNOVIchok45
 
Регистрация: 18.09.2014
Сообщений: 6
По умолчанию Требуется помощь в доработке программы для работы с файлами(PASCAL): Определить самое длинное и самое короткое слова предложения

Задача:
Создать текст. Определить самое длинное слово и самое короткое слово каждого
предложения. Вывести их на печать.
Текст программы:
Код:
var txt:text;
     s,s1,imax,imin:string;
    max,min:integer;
       
Begin
        assign(txt,'text.txt');
        reset(txt); 
        
        
    while not eof(txt) do begin
       
    
    max:=0;imax:='';min:=255;imin:='';
    s:=s+' ';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Length(s1)>max then//ищем слово максимальнлй длины 
       Begin
        max:=Length(s1);
        imax:=s1;
       End;
      if Length(s1)<min then//ищем слово минимальной длины
       Begin
        min:=Length(s1);
        imin:=s1;
       End;
      End;
         end;
      writeln('Самое длинное слово: ',imax);
     writeln('Самое короткое слово: ',imin);
End.
Проблема в том, что программа зацикливается и не выводит слова. Как это исправить?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 14.12.2014 в 13:44.
DimzNOVIchok45 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
самое короткое и самое длинное слово Evelin_18 Помощь студентам 2 10.12.2012 00:44
С# найти самое длинное и самое короткое слово в строке и вывести их Зеленый Чай Помощь студентам 4 06.01.2012 18:40
Простая прога - самое длинное и короткое слово TaylorGang Паскаль, Turbo Pascal, PascalABC.NET 1 29.12.2011 21:54
Найти самое короткое и длинное слова и указать позиции на паскале Klik_1602 Помощь студентам 6 04.01.2011 19:39
заменить самое длинное слово, на самое короткое в Delphi сер4ей Помощь студентам 5 05.03.2009 18:40