Pascal Examples

Type
Product = record
Name:string;
Number:integer;
End;
My_text = file of string[80];
Var
F1: file of char;
F2 : text;
F3: file;
F4: my_text;
F5: file of product;

Piemērs 1.

Var
F: file;
Begin
Assign(f, ‘c: fails1.bat’); {faila inicializācija}
Reset(f, 1); (atver failu lasīšanai)
Writeln(‘Faila lielums ir ’, filesize(f));
Close(f); {aizver failu}
End.

Piemērs 2.
Var
F:text;
P:char;
Begin
Assign(f, ‘tests.dat’); { faila inicializācija }
Reset(f); { atver failu lasīšanai }
While not eof(f) do {kamēr neatrod faila beigas}
Begin
Read(f, p); {nolas datus līdz rindas beigām}
Write(p); {ieraksta failā noteiktu mainīgo}
End;
End.

Piemērs 3.
Var
f1, f2: text;
p:string;
Begin

…