Лабораторна Робота № 5. Тема:turbopascal. Лінійні алгоритми і програми

2 3 4 5 6 7 8

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End.

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

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

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

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

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

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

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

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

Хід роботи

Порядок виконання лабораторних робіт по вивченню мови 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 r₁ r₂ 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 – Графічний алгоритм

3 Контрольні запитання

1. Для чого призначена команда READ

2. Для чого призначена команда WRITE?

3. З яких розділів складається програма мовою Pascal?

4. В якому розділі описують сталі?

5. В якому розділі описують змінні?

6. Які є типи змінних?

Варіантів завдань наведені в таблиці 5.1.

Таблиця 5.1 –Варіанти завдань

№ ва- ріан-ту	Функція	Аргу- мент	Значення аргумента

	; ; R=4,21; g=3; =11,6; Q=89,52	x	2,456
	; ; =4,215; =26,35; C=6,28; d_k=8,351; b= -12,6	x	2,456
	; f=21,85; x=31,3; =9,06; T=161,58	t	1,362
	; A=18,365; =2,1; =6,28; =6,31	t	2,035
	; ; U1=120; U2=63,5; =1.86; R1=15; R3=4,8	R₂	8,75

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


n=12; g=22,68	x	2,863
; ; x=3,141		/10
; =1,48; x=3,685	p	1,46
; N=8; L=4206,5; Qn=6250; =2,83; k=0,82		1,59
=1.25;Q=0.762; L=405; C=13.856; =83	B1	4,35
; I=0,36; q=9,81; G=35,68
; a=3,65; z=4,83; =11,862	r	24,5
; U1=12,3; T2=3,856; n0=840; n1=610	k	1,485

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


; ; =150; x=2,8 рад.
 C=161,5; =550	k	1,65
; a=465; ; t=0,15
w=700; L=0,1; R=32,5; Um=320,4	t	0,225
T=20,86; a=0,015; w=20	Z	321,8
P1=8,564; P2=4,116; =0,156; d=4,5; g=9,81; =1,262	g	1,21
p=1,105; S=2,6; f=285,1; r=0,328; =12,86	l	362,5
=1,63; c1=15,65; c2=8,21; T1=1,265; T2=2,035	x	0,65