3. Контрольні запитання
Як оголошується двовимірний масив?
Яким способом можна записати значення індексів елементів?
Який порядок зміни індексів елементів двовимірного масиву?
4. Які способи введення елементів двовимірного масиву ви знаєте?
5. В чому полягає різниця між перебором елементів двовимірного масиву по рядках і по стовпцях?
Лабораторна робота №12
Тема: Алгоритми і програми з використанням підпрограм-функцій.
Мета: Формування умінь створення програм з використанням підпрограм-функцій на алгоритмічній мові високого рівня Pascal.
1. Теоретичні відомості
Підпрограми призначені для реалізації алгоритмів опрацювання окремих частин (модулів) деякої складної задачі, які можуть взаємодіяти між собою. Кожна підпрограма описується один раз і при необхідності до неї можна багаторазово звертатись. Розрізняють два види підпрограм – підпрограми-процедури і підпрограми-функції.
Функції використовуються для обчислення одного значення і мають вигляд :
function <назва>(<список формальних параметрів>):<тип функції>;
<розділи описів і оголошень функції>;
begin
<розділ команд функції, де має бути така команда:
назва:= вираз>
end;
У розділі команд функції має бути команда присвоєння значення деякого виразу назві функції. Результат функції повертається в основну програму через її назву. Виклик функції здійснюється таким чином:
<назва>(<список формальних параметрів>).
2. Хід роботи
2.1. Постановка задачі
Скласти графічний алгоритм і програму для обчислення значення функції
,
де
;
;
,
використовуючи
функцію
.
2.2. Графічний алгоритм показаний на рис.1 :
а) графічний алгоритм основної програми;
б) графічний алгоритм підпрограми-функції SUM .
б)
а)
Рис.1. Графічний алгоритм
2.3. Таблиця ідентифікації змінних
-
Змінна
y
х
t
q
NR
NT
NQ
Ідентифікатор
y
х
t[i]
q[i]
NR
NT
NQ
2.4. Програма мовою Pascal та результати обчислень
Program Підпрограми_функції;
Const
n=100; x=3.2;
Type
vect= array[1..n] of real;
Var
i,NR,NT,NQ:integer;
t,q:vect;
y:real;
Function SUM(mas:vect;k,mm:integer):real;
Var
s:real;
j:integer;
Begin
s:=0;
for j:=k to mm do
s:=s+mas[j];
SUM:=s
end;
Begin
writeln('Введіть значення NR,NT,NQ');
read(NR,NT,NQ);
writeln('Введіть елементи масиву t ');
for i:=1 to NT do
read(t[i]);
writeln('Введіть елементи масиву q ');
for i:=1 to NQ do
read(q[i]);
y:=SUM(t,1,NR)*x*x+SUM(t,NR+1,NT)*x+SUM(q,1,NQ);
writeln('РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ:');
write('y=',y:6:3)
end.
РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ:
у= 117.680