3. Контрольні запитання
Як оголошуються символьні змінні мовою Pascal?
Скільки символів може міститись в одному програмному рядку ?
Як визначити кількість символів в тексті мовами Pascal?
Яким програмним засобом виконується перегляд тексту по одному чи по m символів мовою Pascal?
Лабораторна робота №15
Тема: Алгоритми і програми для організації файлів.
Мета: Формування умінь створення програм для організації файлів та опрацювання даних, що містяться у файлах, на алгоритмічній мові високого рівня Pascal.
1. Теоретичні відомості
Файл – це сукупність даних, які розташовані на зовнішньому носії. Дані у файлі називаються елементами. Файловий тип даних описують у розділі описів типів :
type <ім’я типу> =file of <базовий тип> ;
або безпосередньо у розділі оголошення змінних :
var <список змінних>: file of <базовий тип> ;
Є такі різновиди файлів : файл послідовного доступу і файл прямого доступу.
Для опрацювання файлу його необхідно відкрити, виконати необхідна дії та закрити. Файл можна відкрити лише або для читання, або для записування в нього інформації.
Для роботи з файлами є такі команди :
assign(<ім’я файлу>,<зовнішнє ім’я>) – налагоджує зв'язок між іменем файлу і файлом на зовнішньому носії;
reset(<ім’я файлу>) – відкриває файл для читання з нього даних;
read(<ім’я файлу>,<ім’я змінної>) – читає (вводить) дане з файлу в оперативну пам'ять;
close(<ім’я файлу>) – закриває файл;
rewrite(<ім’я файлу>) – відкриває файл для записування в нього даних;
write(<ім’я файлу>,<ім’я змінної>) – записує (виводить) дане у файл;
eof(<ім’я файлу>) – стандартна функція, яка визначає кінець файлу.
Тут <ім’я файлу> - ім’я файлової змінної, задане у розділі оголошення змінних, <зовнішнє ім’я> - ім’я файлу даних на зовнішньому носії, взяте у лапки.
2. Хід роботи
2.1. Постановка задачі
Сформувати файл, який містить інформацію про 10 автолюбителів: прізвище, марка автомобіля, колір, номер. Використовуючи ці дані, надати інформацію про автолюбителів, які мають “Жигулі” білого кольору і їх номер починається з 45.
2.2. Графічний алгоритм показаний на рис.1.
так
ні
ні
так
Рис.1. Графічний алгоритм
2.3. Програма мовою Pascal та результати обчислень
Program Файли;
Type
info=record
pr,m,k,no:string;
end;
Var
rr:info;
i,n:integer;
f1:file of info;
Begin
assign(f1,'a');
rewrite(f1);
write('Введіть кількість автолюбителів: ');
readln(n);
for i:=1 to n do
begin
write('Прізвище '); readln(rr.pr);
write('Марка '); readln(rr.m);
write('Колір '); readln(rr.k);
write('Номер '); readln(rr.no);
writeln(rr.pr,' ',rr.m,' ',rr.k,' ',rr.no);
write(f1,rr);
end;
writeln(' ');
reset(f1);
writeln('Білі жигулі з номером, який починається на 45 :');
writeln(' ');
while not eof(f1) do
begin
read(f1,rr);
if(rr.m='жигулі ')and(rr.k='білий ')and(copy(rr.no,1,2)='45') then
writeln(rr.pr,' ',rr.m,' ',rr.k,' ',rr.no);
end;
end.
Результат виконання програми:
Введіть кількість автолюбителів: 10
Іванів жигулі білий 45-96
Петрів водга чорний 85-97
Романів жигулі білий 45-66
Антонів форд синій 55-72
Лесів опель сірий 45-22
Гармаш жигулі білий 33-88
Шишко волга білий 66-12
Дудак ауді червоний 55-96
Гуцуляк жигулі білий 45-00
Носко волга сірий 78-95
Білі жигулі з номером, який починається на 45 :
Іванів жигулі білий 45-96
Романів жигулі білий 45-66
Гуцуляк жигулі білий 45-00