Создать текстовый файл. Вывести его на экран. Определить, есть ли в тексте заданное слово.
Условие Задачи:
Создать текстовый файл. Вывести его на экран. Определить, есть ли в тексте заданное слово.
program PascalGuru; var f,g:text; procedure vvod(var f1:text); var a:string; i,l:integer; begin writeln('skolyko strok'); readln(l); rewrite(f1); writeln('vvedi text'); for i:=1 to l do begin readln(a); writeln(f1,a); end; close(f1); end; procedure vvyvod(var f1:text); var a:string; begin; reset(f1); while not eof(f1) do begin readln(f1,a); writeln(a); end; close(f1); end; procedure iskaty(var f1,f2:text); var a,s:string; k:integer; begin reset(f1); rewrite(f2); writeln('vvedite iskomoe slovo'); readln(a); k:=0; while not eof(f1) do begin readln(f1,s); if pos(a,s)<>0 then k:=k+1; end; if k<>0 then begin writeln(f2,'esty slovo'); writeln('esty slovo'); end else begin writeln(f2,'net slovo'); writeln('net slovo'); end; close(f2); close(f1); end; begin assign(f,'D:/input.txt'); assign(g,'D:/on.txt'); vvod(f); vvyvod(f); iskaty(f,g); readln; end.