Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лаб.роб..doc
Скачиваний:
21
Добавлен:
06.11.2018
Размер:
5.92 Mб
Скачать

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end.

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

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

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

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

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

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

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

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

2 Хід роботи

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

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

Значення сталих величин: f=1863,4; r1=61,4; r2=4,51; Q=2,1.105

Значення аргумента: =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 – Графічний алгоритм

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

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

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

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

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

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

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

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

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

№ ва- ріан-ту

Функція

Аргу- мент

Значення аргумента

1

2

3

4

1

;

;

R=4,21; g=3; =11,6; Q=89,52

x

2,456

2

;;

=4,215; =26,35; C=6,28; dk=8,351;

b= -12,6

x

2,456

3

; f=21,85; x=31,3; =9,06; T=161,58

t

1,362

4

; A=18,365; =2,1; =6,28; =6,31

t

2,035

5

;; U1=120; U2=63,5;=1.86; R1=15; R3=4,8

R2

8,75

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

1

2

3

4

6

n=12; g=22,68

x

2,863

7

; ; x=3,141

/10

8

; =1,48; x=3,685

p

1,46

9

;

N=8; L=4206,5; Qn=6250; =2,83; k=0,82

1,59

10

=1.25;Q=0.762; L=405; C=13.856; =83

B1

4,35

11

; I=0,36; q=9,81; G=35,68

18

12

;

a=3,65; z=4,83; =11,862

r

24,5

13

;

U1=12,3; T2=3,856; n0=840; n1=610

k

1,485

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

1

2

3

4

14

;; =150; x=2,8 рад.

32

15

C=161,5; =550

k

1,65

16

;

a=465; ; t=0,15

314

17

w=700; L=0,1; R=32,5; Um=320,4

t

0,225

18

T=20,86; a=0,015; w=20

Z

321,8

19

P1=8,564; P2=4,116; =0,156; d=4,5; g=9,81; =1,262

g

1,21

20

p=1,105; S=2,6; f=285,1; r=0,328; =12,86

l

362,5

21

=1,63; c1=15,65; c2=8,21; T1=1,265; T2=2,035

x

0,65

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

1

2

3

4

22

x=-0,355; t=2,608;

k

3

23

D=0,865; d=0,532; g=9,81; ; =1,63

h

245,6

24

f=1863,4; r1=61,4; r2=4,51; Q=2,105

4,173

25

d=-1,735; =3,06; B=10,5

A

6,35