17.Записи. Програмування задач з даними типу Record.

Запис – це струтурований тип даних, призначений для зберігання в оперативній пам'яті та опрацювання даних, що складаються з полів – даних різних типів. Можливість включення в запис різнотипних полів є головною його перевагою. Запис описують в розділі type (можна і у розділі var) за допомогою такої конструкції:

type <назва типу запису>=record

<назва поля 1>:<тип поля 1>

…

<назва поля n>:<тип поля n>

end;

Доступ до конкретного поля запису дає складне ім’я вигляду

<ім’я змінної типу запис>.<назва поля>

Команда приєднання with викор. для уникання складних імен:

with <ім’я змінної типу запис> do begin

<звертання до полів запису як до звич. змінних>.

Над полями запису можна здійснювати будь-які операції, що доступні для типів цих полів. Для запису як об’єкту визначена тільки операція присвоєння.

18.Організація масивів із записів.

Після оголошення типу запис, в розділі опису змінних оголошуємо масив типу вище оголошеного запису: <ідентифікатор масиву>: array[a..b] of <ідентифікатор_запису>.

Конструкція запису разом із масивом:

type <назва типу запису>=record

<назва поля 1>:<назва поля 2>;

…

<назва поля n>:<тип поля n>

end;

var <ідентифікатор масиву>: array[a..b] of <ідентифікатор запису>;

Приклад:

type avto=record

marka: string[20];

year:integer;

end;

var a1:array[1..n] of avto;

19.Файлова система на pascal, Процедури для роботи з файлами.

В PASCAL використовується для опрацювання інформації три види файлів: 1)текстовий файл, який оголошують так var <лог. ім’я файлу>: text; в текстові файли найчастіше записують результати роботи програми у вигляді звітів, форм, документів, в символьному представлені;

Текстовий файл можна проглянути найпростіше у вигляді текстового редактора.

2)Типовані(бінарні) файли оголошують у вигляді: var < лог. ім’я файлу>: file of <базовий тип>; базовим типом у файлі може бути довільний стандартний тип або тип визначений користувачем крім файлового типу. В типований файл можна записати тільки інформацію строгого визначеного базового типу. Інф. в ньому подається в машинному представленні, тому такі файли назив. бінарними. Типовані файли використовують для запису вхідних даних, які підлягають опрацюванню, а також результатів роботи програми, які в подальшому будуть опрацьовуватись. 3) нетиповані файли - файли, які користувач викор. д/викон. системних операцій (перейм., копіюв., та ін.).

Процедури для роботи з файлами: assign – налагоджує зв’язок між іменем файлу і файлом на зовнішньому носії; reset(<ім’я файлу>) – відкриває файл для читання з нього; close(<ім’я файлу>) – закриває файл; write(<ім’я файлу>, <ім’я змінної>) – записує (виводить)дане у файл; rewrite (<ім’я файлу>) – відкриває файл для записування в нього даних; read(<ім’я файлу>, <ім’я змінної>) – читає (вводить) дане з файлу в ОЗУ.

20.Створення та читання файлу. Модуль system. Програмування задач з використанням файлів.

Модуль SYSTEM: містить всі стандартні процедури та функції Паскаля. Цей модуль пікл. до будь-якої програми, незалежно від того, оголошений він у розділі uses чи ні, тому його константи, змінні і підпрограмми вважаються вбудованими в Турбо Паскаль(напр. write, writeln, readln та ін.). Алгоритм створення файлу: 1)визначити тип файлу згідно постановки задачі та оголосити фізичну назву файла, яка відповідає визначеному логічному імені файлу. var f1:text; begin assign(f1,’D:\result.txt’);

2)відкриваємо файл для запису: rewrite(f1); 3)організовуємо підготовку даних для запису у файл та записуємо інформацію у файл:

for n:=1 to 5 do begin

write(‘vvedire text’); readln(s);

writeln(f1,s); end;

Для типованих файлів використовується тільки команда write.

4)по завершенні виводу інф. в файл, файл треба закрити: close(f1);

Алгоритм читання файлу: 1)при написані нової програми для читання файлу оголошуємо файлову зміну відповідного типу з директивою VAR; 2)в розділі операторів задаємо фізичну назву файлу з директивою assign; 3)відкриваємо файл для читання: reset(f1); 4)організовуємо цикл д/читання файлу на екран.

while not eof(f1) do

begin

readln(f1,s);

writeln(s);

end;

5) закрити файл (необов'язкова дія)