§ Пример записи в текстовый файл:
uses crt;
var f:text; r,i:integer; rr:string;
begin
clrscr;
rr:='Dautova';
assign(f,'dddddd');
rewrite(f);
writeln(f,rr);
for i:=1 to 20 do begin
r:=random(10);
writeln(f,r); end;
close(f);
end._
§ Считывание из текстового файла (см программу выше):
uses crt;
var f:text; r,i:integer; rr:string;
begin
clrscr;
assign(f,'dddddd');
reset(f);
readln(f,rr);
writeln(rr);
for i:=1 to 20 do begin
readln(f,r);
writeln(r); end;
close(f);
end._
- Написать программу, вычисляющую корни квадратного уравнения и вывести результаты в файл.
- На диске имеется файл с именем Karl.txt, в котором записана скороговорка:
- Ввести текст в текстовый файл f1. Переписать файл f1 в f2 – первую половину файла в прямом, а вторую – в обратном порядке следования символов.
Uses crt;
Var a,b,c,x1,x2, d: real; f:text;
Begin
Assign(f,’result.txt);
Rewrite(f);
Readln(a,b,c);
D:=b*b-4*a*c;
If d>=0 then
Begin
X1:=-b+sqrt(d)/(2*a);
X2:=-b-sqrt(d)/(2*a);
End;
Writeln(‘решени квадратного ур-я’);
Writeln(f,'a=',a:6:3,'b=', b:6:3,'c=',c:6:3);
If d<0 then writeln(f,’у урав-я нет корней’) else writeln(f, ‘корни: x1=’, x1:6:3,’x2=’, x2:6:3);
Close(f);
Writeln(‘рез-ты работы программы в файле result.txt’);
Repeat until keypressed; end.
"Карл у Клары украл кораллы, Клара у Карла украла кларнет."
Требуется подсчитать кол-во букв «К»
Uses crt;
Var f:text; s:integer; a:char;
Begin
Assign(f,’Karl.txt’); Reset(f);
S:=0;
While not eof(f) do Begin
While not eoln(f) do Begin
Read(f,a); If a=’k’ then s:=s+1;
End;
Readln(f);
End;
Close(f); Writeln(s);
Repeat until keypressed; end.
Uses crt;
Var f1,f2:text; s,s1,sa,sb:string; a:char; n,y,i:integer;
Begin
Clrscr;
Assign(f1,’file1’); Assign(f2,’file2’);
Rewrite(f1);
Readln(s); Writeln(f1,s); Close(f1);
Reset(f1); Rewrite(f2); Read(f1,s1);
N:=lenght(s1); Y:=n div 2; Writeln(y);
Sa:=’’; sb:=’’;
For i:=n downto y+1 do Sa:=sa+s1[i];
Writeln(sa);
For i:=1 to y do Sb:=sb+s1[i];
Writeln(sb);
S1:=sb+sa;
Writeln(s1); Write(f2,s1);
Close(f1); Close(f2); Repeat until keypressed; end.
