Напишите программу печати самой короткой строки файла

@EkateRinaZ · Регистрация: 08.12.2014

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

Решите с объяснением, пожалуйста. не понимаю я это программирование(((( Заранее спасибо!
Создайте текстовый файл р так, чтобы он был разбит на непустые строки. Напишите программу печати самой короткой его строки.

@ZX Spectrum-128 · 04.03.2015, 19:51

Изначально: (С) mrRastom

Pascal

Uses
  crt;
Var
  p: text;
  i, n, dlinS, dlinMin: byte;
  s,min: string;
Begin
  ClrScr;
  Assign(p,'data.txt');
  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,'data.txt');
  reset(p);
  readln(p,s);
  min:=s;
  while not eof(p) do
    begin
      readln(p,s);
      if length(s) < length(min) then
        min:=s;
    end;
  writeln('Самая короткая строка: ', min);
  close(p);
  Readln;
End.

@EkateRinaZ · 04.03.2015, 22:05 **[ТС]**

спасибо!

@EkateRinaZ 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 16
		1
	Напишите программу печати самой короткой строки файла 04.03.2015, 18:17. Показов 1961. Ответов 2 Метки нет (Все метки) Решите с объяснением, пожалуйста. не понимаю я это программирование(((( Заранее спасибо! Создайте текстовый файл р так, чтобы он был разбит на непустые строки. Напишите программу печати самой короткой его строки. 0

@EkateRinaZ 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 16
	04.03.2015, 22:05 [ТС]	3
	спасибо! 0

Напишите программу печати самой короткой строки файла

Решение