Наименьшая/наибольшая строка файла на Pascal

      Комментарии к записи Наименьшая/наибольшая строка файла на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Наименьшая/наибольшая строка файла на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 6 мес., 3 нед. назад.

  • Автор
    Сообщения
  • #3762

    В файл вводиться n-ое количество строк. Вывести на экран наименьшую и наибольшую строку.

    program file_2;
    uses crt;
    var
      n, i: integer;
      s, smin, smax: string;
      f: text;
    begin
      clrscr;
      write('Количество строк > '); read(n);
      assign(f, 'fail.txt');
      rewrite(f);
      for i:=1 to n do
      begin
        write(i, ' строка > '); read(s);
        writeln(f, s);
      end;
      smin:=s; smax:=s;
      reset(f);
      while not eof(f) do
      begin
        readln(f, s);
        if length(smin)>length(s) then smin:=s;
        if length(smax)<length(s) then smax:=s;
      end;
      writeln('Наименьшая строка: ', smin);
      writeln('Наибольшая строка: ', smax);
      close(f);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.