Реферат: 10 задач с решениями программированием на Паскале

var i:integer; s:string;

begin assign(f,'c:\f.txt');rewrite (f);

for i:=1 to n do

begin writeln('введите ',i,'-ю строку');readln(s);

writeln(f,s);

end; close(f);

end;

procedure kslov(var f:ft);

var s,pk,p:string;k:integer; buf:ft;

begin

reset(f);

assign(buf,'c:\buf.txt');

rewrite(buf);

while not eof(f) do begin k:=0;readln(f,s);

p:=s;

while pos(' ',p)>1 do begin k:=k+1; delete(p,1,pos(' ',p));end;

str(k,pk);insert(pk,s,length(s)+1); writeln(buf,s);end;

close(f); close(buf);

erase(f);

rename(buf,'c:\f.txt');

end;

procedure w(var f:ft);

var s:string;

begin writeln('измененный фаил будет выглядеть так:');

reset(f);

while not eof(f) do begin readln(f,s); writeln(s)

end; close(f);

end;

begin

К-во Просмотров: 421
Бесплатно скачать Реферат: 10 задач с решениями программированием на Паскале