Напечатать все строки, имеющие минимальную длину

@Xelinel32 · Регистрация: 19.04.2016

Author24 — интернет-сервис помощи студентам

Выполнение Задания предусматривает предварительное создание файла на диске с помощью программы (файл создается с указанной пользователем количества строк / цифр или до введения указанной признаки окончания)

Дан текстовый файл, разбитый на строки. Напечатать все строки, имеющие минимальную длину.

@ZX Spectrum-128 · 27.04.2016, 14:08

Pascal

program filestr;
var
  f:text;
  ml:integer;
  s:string;
begin
  ml:=1;
  assign(f,'f.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f,s);
      if length(s)<ml then
        ml:=length(s);
    end;
  reset(f);
  while not eof(f) do
    begin
      readln(f,s);
      if length(s)=ml then
        writeln(s);
    end;
  close(f);
  readln;
end.

@Xelinel32 0 / 0 / 1 Регистрация: 19.04.2016 Сообщений: 139
		1
	Напечатать все строки, имеющие минимальную длину 27.04.2016, 11:44. Показов 1845. Ответов 1 Метки нет (Все метки) Выполнение Задания предусматривает предварительное создание файла на диске с помощью программы (файл создается с указанной пользователем количества строк / цифр или до введения указанной признаки окончания) Дан текстовый файл, разбитый на строки. Напечатать все строки, имеющие минимальную длину. 0

	27.04.2016, 14:08

Напечатать все строки, имеющие минимальную длину

Решение