Лабораторна робота 15 коректування файлів

Мета роботи: виробити практичні навички в розробленні алгоритмів та програм для організації роботи з додавання інформації в раніше створений файл.

Обробка і коректування файла

При виконанні завдання передбачається організувати запис у файл додаткової інформації одним з наступних способів:

а) запросити в діалозі кількість записів, що вводяться, і ввести за допомогою циклу з параметром рівно N записів;

б) організувати введення за допомогою циклу з умовою доти, поки не буде введена ознака кінця введення.

Для розширення існуючого файла з типом (занесення записів у кінець файла), варто виконати позиціонування у кінець файла, а потім робити запис:

Var

F : File Of <Type>;

X : <Type>

…………………………

Seek (F, FileSize(F));{позиціонування за останнім компонентом файла}

Write(F,X); {запис нового компонента в кінець файла}

Завдання до лабораторної роботи

Додати N записів у кінець зовнішнього файла, створеного в лабораторній роботі 14, і роздрукувати записи отриманого файла за умовою таблиці 23.

Таблиця 23

Варіант	Умова задачі	N
1	Список абітурієнтів, що мають в атестаті оцінки тільки 5	2

Продовження таблиці 23

Варіант	Умова задачі	N
2	Список абітурієнтів, що мають в атестаті одну оцінку 4, а інші 5	3
3	Список абітурієнтів, що мають середній бал атестата більше 4,5	4
4	Список абітурієнтів, що мають середній бал атестата менше 4	2
5	Список абітурієнтів, яким не потрібен гуртожиток	3
6	Список абітурієнтів, що склали вступні іспити тільки на оцінки 5	2
7	Список абітурієнтів, яким потрібен гуртожиток	4
8	Список абітурієнтів, що склали іспити з двома оцінками 4 та іншими оцінками 5	3
9	Список абітурієнтів, що склали вступні іспити на оцінки 4 і 5	4
10	Список абітурієнтів, що одержали на вступних іспитах одну оцінку 3	2
11	Список абітурієнтів, яким потрібен гуртожиток і які склали вступні іспити без оцінок 3	3
12	Список абітурієнтів не старше 18 років	4
13	Список абітурієнтів, що мають середній бал в атестаті більше 4	2
14	Список абітурієнтів, що не одержали на іспитах жодної оцінки 5	3
15	Список абітурієнтів, що одержали на іспитах хоча б одну оцінку 5	4
16	Список абітурієнтів, що одержали на вступних іспитах оцінку 2	2
17	Список абітурієнтів, що одержали на вступних іспитах усі оцінки 3	3
18	Список абітурієнтів, що мають середній бал іспитів не менше 4	4
19	Список абітурієнтів, що мають середній бал в атестаті більше 4,5	2

Продовження таблиці 23

Варіант	Умова задачі	N
20	Список абітурієнтів, що мають середній бал в атестаті менше 4 і які старші 18 років	3
21	Список абітурієнтів, що не одержали на вступних іспитах жодної оцінки 3	4
22	Список абітурієнтів, що мають відмінний атестат	2
23	Список абітурієнтів, яким потрібен гуртожиток і які одержали на іспитах усі оцінки 5	3
24	Список абітурієнтів, що одержали хоча б одну оцінку 3 на іспитах	4
25	Список абітурієнтів, що мають в атестаті оцінки тільки 4 і 5	2
26	Список абітурієнтів, що мають середній бал в атестаті не менше 4 і яким потрібен гуртожиток	3
27	Список абітурієнтів, що одержали на іспитах всі оцінки 4 чи 5	4
28	Список абітурієнтів, що закінчили школу 2 роки тому й одержали на іспитах одну оцінку 2	2
29	Список абітурієнтів, що мають середній бал іспитів не менше 4,5	3
30	Список абітурієнтів, що мають відмінний атестат і яким потрібен гуртожиток	4

Лабораторна робота 16

РОБОТА З ЕКРАНОМ У ТЕКСТОВОМУ РЕЖИМІ

ЗАСОБАМИ МОВИ ПАСКАЛЬ

Мета роботи: набути практичні навички роботи з екраном в текстовому режимі засобами мови Паскаль.

Загальні вказівки

Дисплей служить основним засобом відображення увідної та вивідної інформації під час роботи програм. Паскаль підтримує роботу із текстовими i графічними дисплеями на монохромних (чорно-білих) i кольорових електронно-променевих трубках.

Текстові режими служать для відображення символів кодової таблиці i характеризуються максимальною кількістю символів у рядку (зазвичай 80) i кількістю рядків на екрані (зазвичай 25). Графічні режими використовуються при відображенні графічної інформації i характеризуються розв'язуючою спроможністю екрана, тобто максимально можливою кількістю точок за горизонталлю й вертикаллю. В робочому полі екрана ПЕОМ залежно від графічного адаптера дисплея уміщується до 640х480 точок (пікселів). X-координата змінюється від 0 до 639, Y-координата - від 0 до 479. При цьому початок прямокутної декартової системи координат міститься в лівому верхньому куті екрана.

При роботі на кольоровому дисплеї колір встановлюється за таблицею 24. Для монохромних дисплеїв можливі тільки білий i чорний кольори.

Таблиця 24

Темні кольори	Світлі кольори
0 – чорний	8 - темно-сірий
1 – синій	9 - світло-синій
2 – зелений	10 - світло-зелений
3 – бірюзовий	11 - ясно-блакитний
4 – червоний	12 - світло-червоний
5 – фіолетовий	13 - світло-фіолетовий
6 – коричневий	14 – жовтий
7 – світло-сірий	15 – білий