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

1. Як оголошуються масиви ?

2. Для чого оголошуються масиви?

3. Як записується елемент масиву?

4. Які способи введення і виведення одновимірних масивів ви знаєте?

5. Як визначається номер індексу, який заданий арифметичним виразом?

6. Охарактеризуйте основні атрибути масиву.

7. Який алгоритм пошуку найменшого елемента масиву?

8. Що таке масив?

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

Тема: Програмування вкладених циклів.

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

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

Необхідно обчислити значення y_i=f(z,x_i), де параметр циклу z змінюється від початкового до кінцевого значення з постійним кроком z, а змінна x_i(і=1,2,…,n) є елементом одновимірного масиву (дійсні числа).

Для заданої функції необхідно:

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

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

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

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

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

Перед складанням алгоритму слід визначити кількість значень функції, які будуть одержані в результаті розв’язання задачі, т. б. кількість значень функції від кожного аргумента. Загальна кількість значень функції дорівнюватиме добутку кількостей значень всіх аргументів.

2. Хід роботи

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

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

, = 0.65 .

Аргумент q змінюється від початкового значення 2.8 до кінцевого 5.4 з кроком 1.3. Змінна с являє собою одновимірний масив (с₁=-1.85; с₂=2.39; с₃=3.65).

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

ні

так

Рис.1. Графічний алгоритм

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

Змінна	a	q	zm	cm
Ідентифікатор	a	q	z[m]	c[m]

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

Program Bкладені_цикли;

const

a=0.65;

Var

m:integer;

q:real;

c,z: array [1..3] of real;

begin

for m:=1 to 3 do

begin

write('c(',m,')=');

read(c[m])

end;

q:=2.8;

writeln('РЕЗУЛЬТАТИ РОЗРАХУНКУ:');

repeat

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

for m:=1 to 3 do

begin

z[m]:=c[m]+(exp(m)-q)/abs(1-a);

writeln('z(',m,')=',z[m]:6:3,' c(',m,')=',c[m]:6:3)

end;

q:=q+1.3;

until q>5.4

end.

РЕЗУЛЬТАТИ РОЗРАХУНКУ:

q= 2.800

z(1)=-2.083 c(1)=-1.850

z(2)=15.502 c(2)= 2.390

z(3)=53.037 c(3)= 3.650

q= 4.100

z(1)=-5.798 c(1)=-1.850

z(2)=11.787 c(2)= 2.390

z(3)=45.608 c(3)= 3.650

q= 5.400

z(1)=-9.512 c(1)=-1.850

z(2)= 8.073 c(2)= 2.390

z(3)=45.609 c(3)= 3.650