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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2009, 00:40   #1
Wefast
 
Регистрация: 22.12.2009
Сообщений: 5
По умолчанию Ошибка в работе программы

Программа должна находить самое короткое слово, и удалять лишние пробелы. Так вот если ввести много пробелов в начале, потом слово , потом пробелы, а потом слово опять , то он не выводит самое короткое слово.
Код:
uses crt;
var s,s1,s2,s3:string;
    mx,mn:byte;
begin
clrscr;
textcolor(White);
write('Строка:  ');
readln(s);
s:=s+' ';{добавление пробела в конец}
while pos('  ',s)>0 do{удаляем лишние пробелы, пока есть 2 пробела рядом}
delete(s,pos('  ',s),1);{1 удаляем}
mx:=0;mn:=255; {начальное значение}
 
 
textcolor(red);
writeln;
writeln('Строка без лишних пробелов: ',s);
while pos(' ',s)>0 do{пока есть пробел в строке}
 begin
  s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово до пробела}
  if length(s1)<mn then{если меньше всех}
   begin
    mn:=length(s1); {самая маленькая длина}
    s2:=s1;     {запоминаем слово}
   end;
  delete(s,1,pos(' ',s));{удаляем это слово следующее будет первым}
 end;
textcolor(green);
writeln('Самое короткое слово ',s2);
readln
end.
Wefast вне форума Ответить с цитированием
Старый 25.12.2009, 08:13   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Я не вникал в Ваш код, но могу посоветовать использовать функцию Trim(х) - отсечение пробелов по краям строки.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при работе автофильтра ruavia3 Microsoft Office Excel 5 21.09.2009 15:05
Ошибка при работе с объектами transgd Microsoft Office Excel 11 25.06.2009 09:26
Ошибка при работе с потоками vitalik007 Общие вопросы Delphi 6 09.03.2008 09:25
Ошибка при работе с БД malevich БД в Delphi 8 25.11.2007 15:10