Паскаль, работа с файлами.

[Ebon]

Вывести на экран строки с наибольшим количеством слов из файла:
Сделал, чтобы выводилась только 1 максимальная строка, а как сделать чтобы выводились все максимальные.

uses crt;
var f: text;
s,smax: string;
i,k,kmax:integer;
Begin
assign (f,'C:\in.txt');
reset(f);
kmax:=0;
while not(eof(f)) do
      begin
      k:=0;
      readln(f,s);
      for i:=1 to length(s) do
          if s[i]=' ' then inc(k);
      inc(k);
      if k>kmax then
         begin
         kmax:=k;
         smax:=s;
         end;
      end;
close(f);
writeln('',kmax);
writeln(smax);
readln;
end.

[Базиля]

Что вы понимаете под "все максимальные"?
В том смысле, что если попались одинаковые строки по количеству слов? Или как?

[Serge_Bliznykov]

Что вы понимаете под "все максимальные"?

очевидно, что максимальная это

с наибольшим количеством слов

Ebon, во-первых, у Вас не очень корректно считаются слова.
мало того, что разделителем слов у вас выступает только пробел (ну это ещё ладно, раз ничего в задании не сказано, то можно допустить), но почему Вы считаете слова по пробелам?!
введите такую строчку

"   a     b    "

(обратите внимание, что пробелов больше одного и они есть вначале и сзади..)

во-вторых, по сути проблемы, нужно либо сохранять где-то (в массиве, например) строчки с максимальной длиной,
либо, банально сделать ДВА прохода по файлу.
1-й проход - (ваш код из пост #1) ищем максимальное значение слов в строке, 2-й проход по файлу - печатаем всё строки, где количество слов равно максимальному. всё.

[Ebon]

Ну вот:

Program qwerty;
uses crt;
var f: text;
s: string;
i,k,kmax:integer;
Begin
assign (f,'D:\file.txt');
reset(f);
kmax:=0;
while not(eof(f)) do
      begin
      k:=0;
      readln(f,s);
      for i:=1 to length(s) do
          if s[i]=' ' then inc(k);
      inc(k);
      if k>kmax then
         kmax:=k;
      end;
writeln('maximalnoe kolvo slov ',kmax,' v:');
reset(f);
while not(eof(f)) do
      begin
      k:=0;
      readln(f,s);
      for i:=1 to length(s) do
          if s[i]=' ' then inc(k);
      inc(k);
      if k=kmax then
         writeln(s);
      end;
close(f);
readln;
end.

А как сделать чтобы программа слова считала не по пробелам?

[Hacker19_90]

А как сделать чтобы программа слова считала не по пробелам?

А как же ещё считать слова, если не по разделительным знакам?

[Ebon]

Например, у меня строка состоит из слов, которые разделены пятью пробелами. В этом случае программа работать не будет.