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

Тема: Turbo Pascal. Циклічні програми , які містять розгалуження.

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

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

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

Для виконання поставленої задачі необхідно:

• побудувати графічний алгоритм;

• скласти програму з використанням операторів циклу та розгалуження;

• вивести на друк результати виконання програми;

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

• проаналізувати одержані результати.

2 Хід роботи

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

Обчислити різницю між максимальним і мінімальним значеннями функції:

= 0,28.

Аргумент х змінюється від початкового значення 0,1 з кроком 0,32 до кінцевого значення 6,5.

2.2 Графічний алгоритм показаний на рис. 8.1

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

Змінна	Ідентифікатор
	А
y	Y
x	X
Максимальний елемент	max
Мінімальний елемент	min
Різниця	rizn

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

Program C_R{цикли_розгалуження};

Const

a=0.28;

Var

y,x,max,min,rizn:real;

Begin

x:=0.1;

max:=cos(x-a)/sqrt(x);

min:=cos(x-a)/sqrt(x);

while x<=6.5 do begin

y:=cos(x-a)/sqrt(x);

if y>max then max:=y;

if y<min then min:=y;

x:=x+0.32; end;

rizn:=max-min;

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

writeln('max=',max:6:3,' min=',min:6:3);

writeln('rizn=',rizn:6:3);

end.

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

max=3.111 min=-0.546

rizn=3.658

ні ні

так так

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

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

1. Які дані необхідні для організації циклу?

2. Що таке цикл?

3. Напишіть програму без застосування оператора циклу.

4. Чи може розгалуження не входити до тіла циклу?

5. Побудуйте програму з використанням оператора циклу з післяумовою.

6. Як побудувати програму мовою Turbo Pascal за допомогою оператора циклу з параметром?

Варіанти завдань наведені нище:

8.1. Обчислити значення функції

у набуває значення від 0 до 8 з кроком 0,15.

8.2. Обчислити значення функції

,

де =2; 2,4; 2,8; 3,2; 3,6; 4,0;

q=0,1; 0,3; 1,1; 1,25; 1,9; 2,8.

Величини і q змінюються одночасно.

8.3. Знайти найменше значення функції і відповідне їй значення аргумента:

Аргумент змінюється від початкового значення 0,3 з кроком 0,25 до кінцевого значення 3,3 (радіан).