Завдання для самостійної роботи:

Скласти програму яка буде виводити на екран таблицю (7-10 рядків), одразу після вводу даних та сортування по другому стовпцю. Варіанти таблиць (перелічені шапки таблиць):

1. Таблиця «Деякі види антилоп». Назва, Чисельність популяції, Середовище проживання.

2. Таблиця «Фірми-виробники програмного забезпечення». Назва, Кількість продуктів, Річний об’єм продажу, Відсоток ринку.

3. Таблиця «Відділ кадрів». ПІБ, Рік народження, Оклад.

4. Таблиця «Характеристики ЕОМ». Процесор, Частота (Ггц), ОЗУ, Об’єм жорсткого диску.

5. Таблиця «Каталог бібліотеки». Автор книги, Назва, Рік випуску, Група (Х,У,С)

6. Таблиця «С/г культури». Назва, Посівна площа, Врожайність.

7. Таблиця «Конфігурація програмних засобів інформаційних систем». Операційна система, СУБД, Мін об’єм пам’яті, Ціна.

8. Таблиця «Прайс-лист». Назва товару, Тип товару, Ціна за 1 шт., Мінімальна кількість в партії.

9. Таблиця «Японські острова». Острів, Площа (кв. м), Довжина берегової лінії.

10. Таблиця «Держави». Назва, Площа, Кількість населення, Континент.

Лабораторна робота №16. Множини: поняття, оголошення, іменування структурних частин, основні процедури оброблення, зберігання у пам`яті комп`ютера.

Метою роботи є ознайомлення із поняттям «множини», та отримання практичних навичок з основних процедур їх оброблення та зберігання у пам’яті комп’ютера.

Текст програми №16:

Program lab4;

Var chars: set of ‘a’..’z’; {задаём множество}

ch: char;

Begin

Writeln (‘Please enter some char, “e” - exit’);

Repeat

Write(‘Enter char:’);

Readln(ch);

If ch in chars then writeln(ch,‘ is latin char’)

Else writeln(ch,‘ is NOT latin char’);

Until (ch<>’e’);

End.

Завдання для самостійної роботи:

1. У стандартному модулі System існує функція UpCase, яка виконує перетворювання маленьких латинських літер на великі. Запрограмуйте свій варіант цієї функції. Ord(‘A’)=Ord(‘a’)-32.

2. Запрограмувати функцію LowCase яка перетворює великі латинські літери на маленькі. Ord(‘a’)=Ord(‘A’)+32.

3. Написати програму яка формує дві множини на основі строки. В першу множину входитимуть великі символи які зустрічалися у строчці, в другу тільки маленькі літери.

4. Написати програму яка формує множину на основі строки, в яку входитимуть тільки великі літери та розділові знаки які зустрічаються у строчці.

5. Написати функцію яка обчислює кількість розділових знаків у рядку.

6. Написати програму яка розпізнає який символ ввів користувач (цифра/літера/розділовий знак) та повідомляє про це. Вихід програми здійснюється за вводом символу «e».

7. Написати програму яка замінює в реченні всі входження літери «а», «б», «в» на «Г».

8. Задано два речення. Необхідно знайти символи які є в обох реченнях, є тільки в першому реченні, є тільки в другому реченні.

9. (+) Написати програму яка рахує кількість великих та маленьких літер, та розділових знаків у реченні, та виводе ці числа у відсотковому відношенні.

10. (+) Написати програму яка формує випадкову підмножину літер латинського алфавіту.

Лабораторна робота №17. Зберігання даних на зовнішніх носіях: фізичні і логічні файли даних. Технологія роботи із файлами.

Метою роботи є отримання практичних навичок з основних технологій роботи із файлами.

Текст програми №17:

Program lab5;

Var f: text;

st: string;

Begin

Writeln(‘Please write something:’);

Readln(st);

Assign(f,’file.txt’); {запись в текстовый файл}

Rewrite(f);

Writeln(f,st);

Close(f);

Assign(f,’file2.txt’); {чтение из текстового файла}

Reset(f);

While not EOF(f) do

begin

readln(f,st);

writeln(st);

end;

close(f);

readln;

End.

Завдання для самостійної роботи:

1. Написати програму яка буде записувати у зовнішній текстовий файл рядки, доти доки користувач не введе пустий рядок. Ім’я файлу вводиться з клавіатури.

2. Написати програму яка буде читати зовнішній файл та обчислювати кількість слів у тексті який міститься у файлі.

3. Написати програму яка буде читати зовнішній файл та обчислювати кількість голосних та приголосних у тексті файлу.

4. Написати програму яка читає типізований файл (file of Char). Та обчислює скільки раз зустрічається у файлі деякий символ c. Символ с вводиться з клавіатури.

5. Написати програму яка обчислює кількість речень у текстовому файлі. (Речення може закінчуватися символами . ! ?)

6. Написати програму яка визначає, чи містить в собі текстовий файл символи латинського алфавіту.

7. Написати програму яка читає файл file1.txt та дописує інформацію яка в ньому міститься у файл file2.txt

8. (+) Написати програму яка записує в типізований файл інформацію про студентів – «ПІБ, група, середній бал» доти, доки не буде введено символ «е». Після цього необхідно вивести інформацію з файлу на екран та середній бал студентів.

9. (+) Написати програму яка записує в типізований файл (file of Integer) числа типу integer доти, доки не буде введено число «0». Після цього необхідно прочитати файл, обчислити середнє арифметичне число, та кількість парних та непарних чисел.

10. (++) Написати програму яка записуватиме в типізований файл (file of integer) довільну кількість випадкових чисел. Після цього програма повинна прочитати файл, обчислити значення полусуми найбільшого та найменшого елементів, підрахувати кількість чисел, що не перевищують полусуму та таких, що перевищують полусуму.

Лабораторна робота №18. Основні структури файлів даних. Системні операції із файлами.

Метою роботи є ознайомлення із основними структурами файлів даних та отримання практичних навичок щодо застосування системних операцій із файлами.

Текст програми №18:

Program lab6; {программа копирования файла}

Uses WinCrt;

Var From, To : File;

NumRead, NumWritten : Word;

Buf : Array [1..1024] Of Char;

Begin

Assign(From, ‘file1.exe’); {Открываем входной файл}

Reset(From, 1); {Размер буфера чтения = 1 байт}

Assign(To, ‘file2.exe’); {Открываем выходной файл}

ReWrite(To, 1); {Размер буфера записи = 1 байт}

WriteLn('Копирую ', FileSize(From), ' байт...');

Repeat

BlockRead(From, Buf, SizeOf(Buf), NumRead);

BlockWrite(To, Buf, NumRead, NumWritten);

Until (NumRead = 0) Or (NumWritten <> NumRead);

Close(From);

Close(To);

End.