РАБОТА С ФАЙЛАМИ - Помощь студентам

tanek · 12.03.2009, 00:15

ДОБРыЙ ВЕЧЕР.у меня возникла проблема : необходимо напечатать самое длинное слово, найденное в тексте. Я написала программу, но нужно что бы была ссылка на фал, а не пользовалеть вводил текст, как это исправить?

Код:

program dlin;
uses crt;
var s,k,l:string;
i,c,p:integer;
begin
clrscr;
writeln('vvedi stroku');
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then
begin
c:=c+1;
k:=k+s[i];
end
else
begin
if c>p then
begin
p:=c;
l:=k;
end;
c:=0;
k:='';
end;
writeln('4islo simvolov samogo dlinogo slova: ', p);
writeln('slovo: ',l);
readln;
end.

Sazary · 12.03.2009, 00:33

Если файл не существует, программа завершится.

Код:

program dlin;
uses crt;
var s,k,l:string;
i,c,p:integer;
fin : text;
filename : string;
ch : char;

begin
clrscr;
writeln('Vvedite imya faila: ');
readln(filename);
assign(fin,filename);
{$I-}
reset(fin);
{$I+}
if IOResult <> 0 then
 begin
 writeln('Fail ne naiden.');
 readln;
 exit;
 end;

s := '';
while not eof(fin) do
 begin
 read(fin,ch);
 s := s + ch;
 end;
close(fin);

c:= 0;
k := '';
p := 0;
for i:=1 to length(s) do
if s[i]<>' ' then
begin
c:=c+1;
k:=k+s[i];
end
else
begin
if c>p then
begin
p:=c;
l:=k;
end;
c:=0;
k:='';
end;
writeln('4islo simvolov samogo dlinogo slova: ', p);
writeln('slovo: ',l);
readln;
end.

tanek · 15.03.2009, 00:09

Моя программа должна напечатать самое длинное слово, найденное в тексте,, а данная програма находит только самое длинное слово в первой строке:

Код:

program dlin;
uses crt;
var s,k,l:string;
i,c,p:integer;
fin : text;
filename : string;
ch : char;

begin
clrscr;
writeln('Vvedite imya faila: ');
readln(filename);
assign(fin,filename);
{$I-}
reset(fin);
{$I+}
if IOResult <> 0 then
 begin
 writeln('Fail ne naiden.');
 readln;
 exit;
 end;

s := '';
while not eof(fin) do
 begin
 read(fin,ch);
 s := s + ch;
 end;
close(fin);

c:= 0;
k := '';
p := 0;
for i:=1 to length(s) do
if s[i]<>' ' then
begin
c:=c+1;
k:=k+s[i];
end
else
begin
if c>p then
begin
p:=c;
l:=k;
end;
c:=0;
k:='';
end;
writeln('4islo simvolov samogo dlinogo slova: ', p);
writeln('slovo: ',l);
readln;
end.

не подскажете как это исправить?

Sazary · 15.03.2009, 00:18

Код:

program dlin;
uses crt;
var s,k,l:string;
i,c,p:integer;
fin : text;
filename : string;
ch : char;

begin
clrscr;
writeln('Vvedite imya faila: ');
readln(filename);
assign(fin,filename);
{$I-}
reset(fin);
{$I+}
if IOResult <> 0 then
 begin
 writeln('Fail ne naiden.');
 readln;
 exit;
 end;

s := '';
while not eof(fin) do
 begin
 read(fin,ch);
 if ch=#13 then
  s:=s + ' '
 else if ch=#10 then continue
 else s := s + ch;
 end;
close(fin);

c:= 0;
k := '';
p := 0;
for i:=1 to length(s) do
if s[i]<>' ' then
begin
c:=c+1;
k:=k+s[i];
end
else
begin
if c>p then
begin
p:=c;
l:=k;
end;
c:=0;
k:='';
end;
writeln('4islo simvolov samogo dlinogo slova: ', p);
writeln('slovo: ',l);
readln;
end.

tanek · 15.03.2009, 00:45

большое спасибо, вы мне очень помогли!!!!

polkop · 01.02.2011, 17:00

Подскажите как эта программа будет выглядеть в СИ

12.03.2009, 00:33	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Если файл не существует, программа завершится. Код: program dlin; uses crt; var s,k,l:string; i,c,p:integer; fin : text; filename : string; ch : char; begin clrscr; writeln('Vvedite imya faila: '); readln(filename); assign(fin,filename); {$I-} reset(fin); {$I+} if IOResult <> 0 then begin writeln('Fail ne naiden.'); readln; exit; end; s := ''; while not eof(fin) do begin read(fin,ch); s := s + ch; end; close(fin); c:= 0; k := ''; p := 0; for i:=1 to length(s) do if s[i]<>' ' then begin c:=c+1; k:=k+s[i]; end else begin if c>p then begin p:=c; l:=k; end; c:=0; k:=''; end; writeln('4islo simvolov samogo dlinogo slova: ', p); writeln('slovo: ',l); readln; end. Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с файлами	ФЁкЛА	Общие вопросы C/C++	8	26.02.2009 00:16
Работа с файлами на С++	nec117	Общие вопросы C/C++	4	24.02.2009 23:18
Работа с файлами	LeoN	Общие вопросы Delphi	5	23.12.2006 13:33
Работа с файлами	El_Bint0	Помощь студентам	1	20.12.2006 02:07

12.03.2009, 00:15	#1
tanek Форумчанин Регистрация: 07.03.2009 Сообщений: 209	РАБОТА С ФАЙЛАМИ ДОБРыЙ ВЕЧЕР.у меня возникла проблема : необходимо напечатать самое длинное слово, найденное в тексте. Я написала программу, но нужно что бы была ссылка на фал, а не пользовалеть вводил текст, как это исправить? Код: `program dlin; uses crt; var s,k,l:string; i,c,p:integer; begin clrscr; writeln('vvedi stroku'); readln(s); for i:=1 to length(s) do if s[i]<>' ' then begin c:=c+1; k:=k+s[i]; end else begin if c>p then begin p:=c; l:=k; end; c:=0; k:=''; end; writeln('4islo simvolov samogo dlinogo slova: ', p); writeln('slovo: ',l); readln; end.` Последний раз редактировалось Stilet; 12.03.2009 в 08:23.

15.03.2009, 00:45	#5
tanek Форумчанин Регистрация: 07.03.2009 Сообщений: 209	большое спасибо, вы мне очень помогли!!!!

01.02.2011, 17:00	#6
polkop Регистрация: 31.01.2010 Сообщений: 3	Подскажите как эта программа будет выглядеть в СИ