Загальні завдання

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.Запишіть у звіт результат виконання програми.