Лабораторна робота № 5

Тема: Turbo Pascal. Лінійні алгоритми і програми.

Мета: Формування умінь створення лінійних алгоритмів і програм на алгоритмічній мові високого рівня Turbo Pascal.

1 Теоретичні відомості

Лінійною називається програма, в якій всі оператори виконуються послідовно один за одним.

Структура лінійної програми складається із:

• заголовка program <ім’я програми>;

• розділів описової частини:

• uses - приєднання бібліотек та модулів;

• label - оголошення міток (позначок);

• const - оголошення сталих;

• type - опис типів;

• var - оголошення змінних;

• procedure - оголошення процедур;

• function - оголошення функцій користувача;

• виконуваної частини: begin

<розділ команд>;

end.

Розділ команд складається з команд присвоєння, введення аргументу чи аргументів, обчислення значень функції за заданими залежностями і виведення результатів обчислень.

При складанні Turbo Pascal програм необхідно :

• скласти графічний алгоритм;

• виконати ідентифікацію змінних;

• скласти програму мовою Pascal, передбачивши введення аргументу і виведення проміжних результатів обчислень, значення аргументу та функції;

• налагодити програму;

• розв’язати задачу на ЕОМ в діалоговому режимі.

Варіант завдання студент отримує згідно з порядковим номером списку групи журналу викладача.

2 Хід роботи

Порядок виконання лабораторних робіт по вивченню мови Turbo Pascal проводити за розділами, наведеними нище.

2.1 Постановка задачі

Скласти графічний алгоритм і програму для обчислення функції:

Значення сталих величин: f=1863,4; r₁=61,4; r₂=4,51; Q=2,1^.10⁵ .

Значення аргумента:  =4,173 .

2.2 Графічний алгоритм наведений на рис. 5. 1 .

2.3 Таблиця ідентифікації змінних

Змінна	Ідентифікатор
g r1 r2 p f	G R1 R2 P рі Q P1 F

2.4 Програма мовою Pascal та результати обчислень

Program LP{лінійна_програма};

Const

f=1863.4;R1=61.4;R2=4.51;Q=210000;pi=3.14;

Var P,P1,G:real;

Begin

write('Введіть аргумент ');

read(P1);

P:=F/(pi+sqr(R1));

G:=Q*sqrt(P/P1)*ln(R1/R2);

writeln('Результати обчислень: ');

write('P1=',P1:6:3,' P=',P:6:3,' G=',G:8:3);

end.

Введіть аргумент 4.173

Результати обчислень:

Р1=4.173 Р=0.494 G=188636.011

Рисунок 5.1 – Графічний алгоритм