Найти самое длинное слово в файле и номер строки, в которой оно находится

@Myrena · Регистрация: 20.06.2016

Для файла f1 содержащего символьную информацию , найти самое длинное слово и номер строки в которой оно находиться

@Joy · 21.06.2016, 12:22

если не наврал, то так:

Pascal

var
  f:text;
  c:char;
  s,t:string;
  l,i:longint;
procedure ch;
begin
  if length(t)<length(s) then begin
    l:=i;
    t:=s;
  end;
end;  
begin  
  assign(f,'f1');
  reset(f);
  t:='';i:=0;
  while not eof(f) do begin
    i:=i+1;
    while not eoln(f) do begin
      read(f,c);
      if c=' ' then begin 
        ch;
        s:='';
      end else s:=s+c;
    end;
    readln(f);
    ch;
    s:='';
  end;
  close(f);
  writeln('Самое длинное слово:',t,' в строке ',l);
end.

@Myrena · 21.06.2016, 20:27 **[ТС]**

Премного благодарна )

@Myrena 0 / 0 / 0 Регистрация: 20.06.2016 Сообщений: 4
		1
	Найти самое длинное слово в файле и номер строки, в которой оно находится 20.06.2016, 17:05. Показов 1791. Ответов 2 Метки нет (Все метки) Для файла f1 содержащего символьную информацию , найти самое длинное слово и номер строки в которой оно находиться 0

@Myrena 0 / 0 / 0 Регистрация: 20.06.2016 Сообщений: 4
	21.06.2016, 20:27 [ТС]	3
	Премного благодарна ) 0

Опции темы

Найти самое длинное слово в файле и номер строки, в которой оно находится

Решение