1. Створити файл записів, який містить інформацію про автомобілі: модель, колір, рік випуску, прізвище власника. Вивести вміст файлу на екран.
Програма розв’язання даної задачі.
type avto=record
model:string;
color:string;
rik:integer;
vlasnuk:string;
end;
var f:file of avto;
a1:avto;
i,n:integer;
nf:string;
Begin
writeln('Введіть кількість авто');
readln(n);
writeln('Введіть назву файла');
readln(nf);
assign(f,nf);
rewrite(f);
for i:=1 to n do
Begin
writeln('Введіть модель авто, колір, рік випуску, прізвище власника');
readln(a1.model);
readln(a1.color);
readln(a1.rik);
readln(a1.vlasnuk);
write(f,a1);
end;
close(f);
writeln(' Модель авто Колір Рік Власник');
writeln('---------------------------------------------------------');
reset(f);
for i:=1 to n do
Begin
read(f,a1);
writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20);
end;
readln;
End.
2.Запишіть у звіт результат виконання програми.
3. Використовуючи файл записів, створений попередньою програмою, вивести на екран інформацію про авто, рік випуску яких не перевищує введеного.
Програма розв’язання даної задачі.
type avto=record
model:string;
color:string;
rik:integer;
vlasnuk:string;
end;
var f:file of avto;
a1:avto;
i,k:integer;
nf:string;
Begin
writeln('Vvedite nazvu file');
readln(nf);
writeln('Vvedite rik');
readln(k);
assign(f,nf);
reset(f);
writeln(' model avto colir rik vlasnuk');
writeln('--------------------------------------------------');
while not eof(f) do
begin
read(f,a1);
if a1.rik<k then
writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20);
end;
readln
End.
4.Запишіть у звіт результат виконання програми.
5. Доповнити файл створений у завданні 1, ще двома записами. Вивести вміст файлу на екран.
Програма розв’язання даної задачі.
typeavto=record
model:string;
color:string;
rik:integer;
vlasnuk:string;
end;
var f:file of avto;
a1:avto;
i,n,m:integer;nf:string;
Begin
writeln('Vvedite kilkist zapusiv');
readln(n);
writeln('vvedite nazvu file');
readln(nf);
assign(f,nf);
reset(f);
m:=filesize(f);
seek(f,m);
for i:=1 to n do
begin
writeln('vvedite model avto, colir, rik, vlasnuka');
readln(a1.model);
readln(a1.color);
readln(a1.rik);
readln(a1.vlasnuk);
write(f,a1);
end;
close(f);
reset(f);
writeln(' model avto colir rik vlasnuk');
writeln('--------------------------------------------------');
for i:=1 to filesize(f) do
Begin
read(f,a1);
writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20);
end;
readln;
end.
6.Запишіть у звіт результат виконання програми.
