Лабораторна робота №7. Тема: Типи в програмах.

Мета: Засвоїти та закріпити практичні навички по роботі в програмному коді різних типів даних в програмах.

Теоретичні положення

Типи даних в Паскалі можна розділити на стандартні, які є частиною мови

Паскаль, та нестандартні, що визначаються програмістом.

Стандартні типи мови Паскаль можна класифікувати наступним чином:

1. Прості типи

а). Порядкові типи

• Цілі

• Символи

• Булевскі

• Перераховні

• Обмежені

б). Дійсні типи

2. Строки

3. Структуровані типи

а). Множини

б). Масиви

в). Записи

г). Файли

д). Об’єкти

4. Покажчики

5. Процедурні типи

Стандартні типи не потребують, щоб їх визначали у розділі опису типів. Їх можна одразу використовувати при визначенні змінних у розділі опису змінних.

Нестандартні типи потребують, щоб програміст їх перед використанням визначив.

Хід роботи

Завдання 1. Скласти дiалогову програму для введення свого прізвища, імені, по батькові, року народження та виводу їх на екран в рядок та стовпчик.

Спочатку пишемо приклад, потім вносимо зміни.

Program PR1;

Var Prizv, Imya, PoBat:String[20]; Rik:Integer;

Begin {Введення даних}

Write('Введи своє прізвище '); ReadLn(Prizv);

Write('Введи своє ім"я '); ReadLn(Imya);

Write('Введи по батькові '); ReadLn(PoBat);

Write('Введи рік народження '); ReadLn(Rik);

{Виведення результатів в стовпчик}

WriteLn(Prizv); WriteLn(Imya); WriteLn(PoBat); WriteLn(Rik);

{Виведення результатів в рядок}

Write(Prizv,' '); Write(Imya,' '); Write(PoBat,' '); Write(Rik); End.

Результати роботи програми:

Введи свої прізвище Iваненко

Введи свої ім"я Iван

Введи по батькові Iванович

Введи рік народження 1982

Iваненко Iван Iванович 1982

Iваненко

Iван

Iванович

1982

Завдання 2. Скласти програму для введення даних про підручник з математики (назва, автор, видавництво, рік виданн). Вивесиведення результатів в рядок та стовпчик.

Завдання 3. Оператор безумовного переходу.

Скласти програму для обчислення суми перших десяти цiлих чисел.

S = 1 + 2 + 3 + ...+ 10.

Program PR1;

Label M1;

Const N=10;

Var S,i:Integer;

Begin

I:=1; {Перше число}

S:=0; {Початкове значення суми}

M1: S:=S+i; {Додаємо число}

I:=i+1; {Визначити наступне число}

If i <= N Then Goto M1; {Перевiрити чи всi числа додали}

WriteLn ('S =',S) {Надрукувати результат на екранi}

End.

Результати роботи програми: S=55

Завдання 4. Знайти суму парних чисел вiд 1 до 10. Результат (=30).

Program PR1;

Label M1;

Const N=10;

Var S,i,f,a,b,q:Integer;

Begin

I:=2; {Перше число}

F:=4; {2 число}

A:=6; {3 число}

B:=8; {4 число}

Q:=10; {5 число}

S:=0; {Початкове значення суми}

M1: S:=S+i+f+a+b+q; {Додаºмо число}

I:=i+2; {Визначити наступне число}

If i >= N Then Goto M1; {Перевiрити чи всi числа додали}

WriteLn ('S =',S) {Надрукувати результат на екранi}

End.

Завдання 18. Знайти суму непарних чисел 1 до 10.Результат (=25).

Завдання 19. Скласти програму для обчислення добутку перших десяти цiлих чисел.

D = 1 * 2 * 3 * ...* 10.

Program PR1;

Label M1;

Const N=10;

Var D,i:Integer;

Begin

I:=1; {Перше число}

D:=1; {Початкове значення добутку}

M1: D:=D*i; {Визначаїмо добуток}

I:=i+1; {Визначити наступне число}

If i<= N Then Goto M1; {Перевiрити чи всi числа перемножили}

WriteLn ('D =',D) {Надрукувати результат на екранi}

End.

Для того щоб програма обчислення добутку давала вiрний результат потрiбно слiдкувати за тим, щоб значення результату не виходимо за межi допустимих значень для величин типу integer (32767) , або використовувати величину типу Real, що має значно бiльший дiапазон допустимих значно.

Написати висновок та оформити звіт по роботі. Закріпити його скріншотими.