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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2011, 19:42   #1
mrRastom
Пользователь
 
Регистрация: 10.12.2010
Сообщений: 16
Сообщение Pascal создать файл и вывести самую короткую строку

Всем здравствуйте.

Текст задачи:
Цитата:
создать текстовый файл p так, чтобы он был разбит на непустые строки. напишите программу печати самой короткой строки.
Мой листинг:
Код:
Uses crt;
Var  p: text;
      i, n, dlinS, dlinMin: byte;
      s,min: string;
Begin
ClrScr;
Assign(p,'d:\myfile');   rewrite(p);
   
   write('Количество строк: ');  readln(n);
   writeln('Введите строки ');
   for i:=1 to n do
    begin
      write(i,': ');     readln(s);
      writeln (p,s);
    end;
Close (p);

Assign(p,'d:\myfile');   reset(p);

    read(p,s); min:=s;
    
    for i:=1 to n do
    begin
      readln(p,s);  
      dlinS:=length(s);                     {длина строки}
      dlinMin:=length(min);                {длина min строки}
      if dlinS<dlinMin then min:=s;       {нахождение минимальной строки}
    end;
close(p);
    write('самая короткая строка: ',min);
Readln
End.
Не пойму в чем ошибка. Программа запускается, но не выдает результат.

update:
заменил на
Цитата:
while not eof(p) do
begin
readln(p,s);
if length(s) < length(min) then min:=s;
end;
writeln('Самая короткая строка: ', min);
все работает.

Последний раз редактировалось mrRastom; 01.06.2011 в 20:38.
mrRastom вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скопировать содержимое текстового файла, удалив самую длинную строку. Nice Plant Помощь студентам 1 25.10.2010 12:54
C++. Прочитать файл и вывести в другой файл каждую N-ую строку Straiker Помощь студентам 3 15.12.2009 05:49
Создать файл с названиями мировых столиц. Вывести на экран столицы на букву А... ЛиК@ Помощь студентам 1 29.09.2009 10:10
Создать файл записей (таблицу) и вывести на экран информацию о людях (имя, год рожденя, день рождения) пепелаЦО Паскаль, Turbo Pascal, PascalABC.NET 3 24.05.2009 12:15
[Pascal] Создать текстовый файл Катуха Помощь студентам 1 23.12.2008 21:11