- •З м і с т
- •Лабораторна робота 13. Робота з множинними типами даних . . . 76 Лабораторна робота 14. Створення й обробка файлів . . . . . . . . . . 79
- •Порядок виконання лабораторних робіт
- •Оператор привласнювання
- •Оператори уводу-виводу
- •Завдання до лабораторної роботи
- •Лабораторна робота 2 програмування розгалуЖеного обчислювального процесу
- •Структура Паскаль–програми
- •Умовний оператор
- •Завдання до лабораторної роботи
- •Програмування розгалуЖеного циклічного
- •Завдання до лабораторної роботи
- •Лабораторна робота 4 нестандартні й обмежені типи даних. Оператор варіанта
- •Нестандартні типи даних
- •Обмежені типи даних
- •Оператор вибору варіанта
- •Оператор циклу for
- •Приклади виконання завдання лабораторної роботи
- •Завдання до лабораторної роботи
- •Лабораторна робота 5 регулярні типи даних. Селективна обробка масивів
- •Регулярні типи даних
- •Приклади виконання завдання лабораторної роботи
- •Завдання до лабораторної роботи
- •Лабораторна робота 6 формування робочих масивів за допомогою операцій селекції вихідного масиву
- •Сортування масивів
- •Завдання до лабораторної роботи
- •Лабораторна робота 7 вкладені цикли. Обробка двовимірних масивів
- •Загальні вказівки
- •Завдання до лабораторної роботи
- •Лабораторна робота 8 процедури і функції
- •Процедури
- •Функції
- •Завдання до лабораторної роботи
- •Лабораторна робота 9 обробка символьних даних
- •Символьний тип даних
- •Завдання до лабораторної роботи
- •Лабораторна робота 10 обробка строкових даних
- •Строковий тип даних
- •Процедури
- •Функції
- •'Abcdef' copy(s,2,3) 'bcd';
- •'System' length(s) 6;
- •Завдання до лабораторної роботи
- •Лабораторна робота 11 комбіновані типи даних
- •Приклади виконання завдання лабораторної роботи
- •Завдання до лабораторної роботи
- •Лабораторна робота 12 файли і файлові типи даних
- •Файловий тип даних
- •Процедури обробки файлів
- •Завдання до лабораторної роботи
- •Лабораторна робота 13 робота з множинними типами даних
- •Завдання до лабораторної роботи
- •Лабораторна робота 14 створення й оброблення файлів
- •Файли з типом
- •Процедури для роботи з файлами з типом
- •Функції для обробки файлів з типом
- •Завдання до лабораторної роботи
- •Лабораторна робота 15 коректування файлів
- •Завдання до лабораторної роботи
- •Лабораторна робота 16 робота з екраном у текстовому режимі засобами мови паскаль
- •Загальні вказівки
- •Процедури роботи з екраном
- •Процедури установлення текстових режимів I управління кольором
- •Процедури управління курсором
- •Процедура установлення текстових вікон
- •Завдання до лабораторної роботи
- •Лабораторна робота 17 перевірка достовірності даних
- •Вибір критеріїв достовірності
- •Типові алгоритми уводу I перевірки достовірності даних
- •Завдання до лабораторної роботи
- •Лабораторна робота 18 графічні засоби мови паскаль
- •Графічні процедури мови Паскаль
- •Завдання до лабораторної роботи
- •Розрахунок масштабу I зрушення графіка
- •Процедура для креслення графіка
- •Завдання до лабораторної роботи
- •Порядок виконання роботи
- •Зміст звіту
- •Список рекомендованої літератури
- •Додаток а
Приклади виконання завдання лабораторної роботи
Приклад 35. Запис має п'ять полів, що містять прізвище, ім'я студента, найменування, рік створення і номер групи. Написати програму, що вводить інформацію про студентів і виводить на друк прізвища й імена студентів групи ІТ98-2.
Програма має вид:
PROGRAM PR35;
USES CRT;
CONST GRU='ІТ'; GOD=98; NOM=2; M=5;
type student=record
fa,im,gr:string;
g:85..95; n:1..4; end;
mas=array[1..m] of student;
VAR S:MAS; I:INTEGER; C:CHAR;
BEGIN
CLRSCR;
{УВЕДЕННЯ ВИХІДНИХ ДАНИХ}
FOR I:=1 TO M DO
WITH S[I] DO BEGIN
WRITELN(' ДАНІ ПРО ',I,'-Ого СТУДЕНТА:');
WRITELN(' ПРІЗВИЩЕ?:'); READLN(FA);
WRITELN(' ІМ'Я?:'); READLN(IM);
WRITELN('НАЙМЕНУВАННЯ ГРУПИ?:'); READLN(GR);
WRITELN('РІК СТВОРЕННЯ ГРУПИ?:'); READLN(G);
WRITELN(' НОМЕР ГРУПИ?:'); READLN(N);
END;
WRITELN('===КІНЕЦЬ УВЕДЕННЯ====');
C:=READKEY;
CLRSCR;
WRITELN(' ':5,'СПИСОК УСІХ СТУДЕНТІВ:');
for i:=1 to m do
with s[i] do
writeln(' ', fa:10,im:10,gr:5,g:3,'-',n);
WRITELN(' ':5,'СПИСОК СТУДЕНТІВ ГР.ІТ98-2');
for i:=1 to m do
with s[i] do
if (gr=gru) and (g=god) and (n=nom) then
writeln(' ',fa:10,im:10);
c:=readkey
end.
Приклад 36. Скласти програму перерахунку полярних координат точки (R,) у декартові (Х,Y), прийнявши спосіб зображення точки у виді запису з двома полями.
Програма має вид:
program pr36;
uses crt;
label 1;
type polar=record r,fi:real; end;
dekar=record x,y:real; end;
VAR P:POLAR; D:DEKAR; C:CHAR;
BEGIN CLRSCR;
1: WRITE('ПОЛЯРНІ КООРДИНАТИ ТОЧКИ (R,FI):');
READLN(P.R,P.FI);
IF P.R=0 THEN BEGIN
WRITELN('УВЕДЕННЯ ЗАКІНЧЕНЕ');
c:=readkey; exit end;
with p,d do begin
X:=R*COS(FI*PI/180);
Y:=R*SIN(FI*PI/180);
WRITE('ДЕКАРТОВІ КООРДИНАТИ ТОЧКИ (X,Y):');
writeln(x:5:2,’ ‘,y:5:2)
end;
goto 1
end.
Завдання до лабораторної роботи
Складіть програми для розв’язання наступних задач.
Варіант 0n та 3n. Запис має чотири поля, що містять прізвище і дату народження (число, місяць, рік) студента. Напишіть програму, що вводить та друкує цю інформацію і друкує прізвища студентів, що народилися <умова А> (табл. 16).
Таблиця 16
n |
Умова А |
n |
Умова А |
1 |
Після 1970 року |
2 |
У січні |
3 |
15 числа |
4 |
У 1972 році |
5 |
У березні 1973 року |
6 |
10 квітня |
7 |
Улітку |
8 |
Восени |
9 |
Узимку |
0 |
Навесні |
Варіант 1n. Обравши спосіб зображення точки на площині у виді запису з двома полями x,y:real, напишіть програму, що визначає <умова Б> (табл. 17).
Таблиця 17
n |
Умова Б |
1 |
Площу трикутника, заданого координатами його вершин |
2 |
Периметр трикутника, заданого координатами його вершин |
3 |
Довжини висот трикутника, заданого координатами його вершин |
4 |
Довжини медіан трикутника, заданого координатами його вершин |
5 |
Довжини бісектрис трикутника, заданого координатами його вершин |
6 |
Радіуси вписаного й описаного кола трикутника, заданого координатами його вершин |
7 |
Довжину кола, описаного навколо трикутника, заданого координатами його вершин |
8 |
Площу круга, вписаного в трикутник, заданий координатами його вершин |
9 |
Периметр чотирикутника, заданого координатами його вершин |
0 |
Площу чотирикутника, заданого координатами його вершин |
Варіант 2n. Обравши спосіб зображення раціонального числа у виді запису з двома полями
чисельник, знаменник: integer;
напишіть програму, яка позволяє <умова В> (табл. 18).
Таблиця 18
n |
Умова В |
1 |
Складати раціональні числа a і b і їхню суму привласнювати раціональному числу c |
2 |
Віднімати раціональні числа a і b і результат привласнювати раціональному числу c |
3 |
Множити раціональні числа a і b і результат привласнювати раціональному числу c |
Продовження таблиці 18
n |
Умова В |
4 |
Ділити раціональне число a на b і результат привласнювати раціональному числу c |
5 |
Визначати середнє арифметичне раціональних чисел a і b і результат привласнювати раціональному числу c |
6 |
Знаходити абсолютну величину раціонального числа a і результат привласнювати числу b |
7 |
Раціональне число a зводити в цілий ступінь і результат привласнювати числу b |
8 |
Визначати рівність двох раціональних чисел a і b |
9 |
Обчислювати найбільше з масиву раціональних чисел |
0 |
Обчислювати найменше з масиву раціональних чисел |