• Пример записи в текстовый файл:

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._

• Написать программу, вычисляющую корни квадратного уравнения и вывести результаты в файл.

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.

• На диске имеется файл с именем Karl.txt, в котором записана скороговорка:

"Карл у Клары украл кораллы, Клара у Карла украла кларнет."

Требуется подсчитать кол-во букв «К»

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.

• Ввести текст в текстовый файл f1. Переписать файл f1 в f2 – первую половину файла в прямом, а вторую – в обратном порядке следования символов.

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.

Приложение 1. Структура типов данных

Типы данных

простые

порядковые

целые

вещественные

логические

структурированные

массивы

символьный

указатели

записи

перечисляемый

строки

множества

Тип-диапазон

процедурные

файлы

объекты