Завдання

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

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, ще двома записами. Вивести вміст файлу на екран.

Програма розв’язання даної задачі.

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

Індивідуальні завдання

7. Створити файл, із N записами (N>5). Структуру запису файлу обрати з поданої нижче таблиці за номером вказаним викладачем.

№	Опис полів запису
1	Номер запису, прізвище студента, назва предмету, дата оцінка
2	Номер запису, назва книги, прізвище автора, рік видання, кількість сторінок
3	Номер запису, назва держави, назва столиці, кількість населення, площа території, існування виходу до моря
4	Номер запису, назва області, назва обласного центру, площа території, кількість населення
5	Номер запису, прізвище поета, рік народження, національність, роки життя
6	Номер запису, назва канцелярського товару, вартість, виробник
7	Номер запису, Інтернет-провайдер, рік заснування, сфера послуг, вартість послуг
8	Номер запису, інтернет-клуб, адреса, телефон, години роботи, вартість послуг
9	Номер запису, час відправлення потягу, напрям, вартість квитка
10	Номер запису, прізвище студента, номер лабораторної роботи, загальна кількість завдань, кількість виконаних завдань
11	Номер запису, назва журналу, загальна спрямованість, вартість, періодичність
12	Номер запису, прізвище, стать, дата народження, телефон
13	Номер запису, назва тварини, тривалість життя, середовище існування, вага
14	Номер запису, прізвище студента, розмір матеріальної допомоги, дата
15	Номер запису, адреса аптеки, назва препарату, вартість, термін придатності

8. Записати відповідний текст програми у звіт.

9. Доповнити існуючий файл новими даними та здійснити перегляд даних файлу.

10. Записати відповідний текст та результат виконання програми у звіт.

11. Здійснити перегляд даних файлу, які відповідають критеріям відбору з поданої нижче таблиці.

№	Критерій відбору
1	вивести інформацію про студентів, які отримали оцінку … з предмету…
2	назви книг заданого автора
3	назви держав, які мають вихід до моря
4	кількість населення не менша за вказану
5	національність
6	виробник
7	сфера послуг і вартість послуг
8	вартість послуг не більша за вказану
9	напрям
10	виконані всі завдання вказаної лабораторної роботи
11	загальна спрямованість
12	стать
13	середовище існування
14	розмір матеріальної допомоги
15	назва препарату

12. Записати відповідний текст та результат виконання програми у звіт.