3. Контрольні запитання
1. Які дані необхідні для організації циклу?
2. Що таке цикл?
3. В яких межах змінюється параметр циклу в приведених програмах?
4. Яка різниця в алгоритмах циклів, побудованих за допомогою оператора циклу і за допомогою умовних операторів?
5. Який оператор в наведених програмах контролює умову виходу з циклу?
6. Дайте зрівняльну характеристику програм з використанням оператора з передумовою і оператора циклу з параметром?
7. З яких етапів складається цикл?
8. Яка різниця між циклом з передумовою та циклом з післяумовою?
Лабораторна робота №6
Тема: Циклічні програми , які містять розгалуження.
Мета: Формування умінь створення циклічних програм, які містять розгалуження на алгоритмічній мові високого рівня Pascal.
1. Теоретичні відомості
Цикл - це процес виконання певного набору команд певну кількість разів. Розрізняють цикли, де кількість повторень відома заздалегідь і цикли, де вона заздалегідь невідома, але її можна визначити під час виконання циклу.
Для виконання поставленої задачі необхідно:
побудувати графічний алгоритм;
скласти програму з використанням операторів циклу та розгалуження;
вивести на друк результати виконання програми;
розв’язати задачу на ЕОМ в діалоговому режимі;
проаналізувати одержані результати.
2. Хід роботи
2.1. Постановка задачі
Обчислити різницю між максимальним і мінімальним значенням функції:
=
0.28.
Аргумент х змінюється від початкового значення 0.1 зкроком 0.32 до кінцевого значення 6.5.
2.2. Графічний алгоритм показаний на рисунку 1.
2.3. Таблиця ідентифікації змінних
-
Змінна
y
x
Макси-мальний елемент
Міні-мальний елемент
Різниця
Ідентифікатор
А
Y
X
max
min
rizn
ні
так
так
ні
так ні
так
так
Рис.1. Графічний алгоритм
2.4. Програма мовою Pascal та результати обчислень
Program цикли_розгалуження;
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