Прошу помощи в задаче на вывод текста из файла
Помогите пожалуйста кто нить с таким заданием на паскале
1)прочитать текст из файла найти в тесте первое вхождение заданного слдова и вывести его позицию (номер строки-колонки) на экран
В паскале не рублю вообще(((((:(
1)прочитать текст из файла найти в тесте первое вхождение заданного слдова и вывести его позицию (номер строки-колонки) на экран
В паскале не рублю вообще(((((:(
[highlight=Pascal]
var tmp,word :string;
f :text;
b :boolean;
i, j :byte;
begin
writeln('Enter file path');
readln(tmp);
assign(f, tmp);
writeln('Enter word to search');
readln(word);
i:=0;
j:=0;
reset(f);
while (not eof(f)) and (j=0) do
begin
readln(f, tmp);
if(pos(word, tmp)<>0) then j:=pos(word, tmp);
inc(i);
end;
if(j=0) then writeln('No such word')
else writeln('This word is met at string #', i, ' on position #', j);
readln;
close(f);
end.
[/highlight]
var tmp,word :string;
f :text;
b :boolean;
i, j :byte;
begin
writeln('Enter file path');
readln(tmp);
assign(f, tmp);
writeln('Enter word to search');
readln(word);
i:=0;
j:=0;
reset(f);
while (not eof(f)) and (j=0) do
begin
readln(f, tmp);
if(pos(word, tmp)<>0) then j:=pos(word, tmp);
inc(i);
end;
if(j=0) then writeln('No such word')
else writeln('This word is met at string #', i, ' on position #', j);
readln;
close(f);
end.
[/highlight]
Спасибо большое за помощь)