1.6 Функції (function).

Функція, на відміну від процедури, може повертати в місце виклику лише один результат простого стандартного типу.

Загальний опис функції:

function <назва>(<список формальних параметрів>): <тип функції>;

<розділи описів і оголошень функції>; begin

<розділ команд функції, де має бути така команда:

назва: =вираз> end;

У розділі команд функції має бути команда присвоєння значення деякого виразу назві функції. Результат функції повертається в основну програму через її назву (як і випадку використання стандартних функцій, таких як sin, cos). Виклик функції здійснюється лише з виразів так:

<назва> (<список фактичних параметрів>).

Приклад. Створимо функцію для обчислення tg(x) та обчислимо значення виразу tg(x)+ctg(x)+tg²(x). program Myfunc; uses Crt; var x,y:real; function tg(x:real):real; begin

tg:=sin(x)/cos(x) end; begin clrscr;

writeln('Введіть х'); readln(x);

y:=tg(x)+l/tg(x)+sqr(tg(x)); writeln('y=', y:5:2); readln end.

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

Частина 1:

1. Обчислити елементи матриці за формулою ­­­­­­­­­­­­­­ ,

(i = 1,2,…,5; j = 1,2,…,5).

2. Сформувати вектор Х (х₁,х₂,х₃,…,х₅) , визначивши суму елементів другого та третього

стовпців матриці.

3 . Обчислити значення функції G за формулою.

Частина 2:

.

3. Алгоритм розв’язання задачі

Частина 1:

1 Складемо блок-схему підпрограми обчислення елементів матриці за формулою

, (i = 1,2,…,5; j = 1,2,…,5).

Вхід

і:=1

ні так

і >5

j:=1 Вихід

так ні

j >5

i :=i+1 a[i,j] := ((4+j)/(2+i))*exp((1/4)*ln(i*j))+exp(i-j)

Вивести a[i,j]

j:=j+1

2. Складемо блок-схему підпрограми формування вектора Х (х₁,х₂,х₃,…,х₅) , визначити

суму елементів другого та третього стовпців матриці.

Вхід

і:=1

ні так

і >5

x [i]:=0 Вихід

j :=2

так ні

j >3

Вивести(‘Suma x [‘,i,’]=’,x [i] ) x [i]:= x [i]+a[i,j]

j: = j+1

3. Складемо блок-схему підпрограми обчислення значення функції G за формулою

.

Вхід

G : =1

i : =1

ні так

i >5

P: =1 Вивести (‘G=’,G)

k: =1 Вихід

так ні

k>i

G:=G*(x [i] – i *i *i / P) P: = P +x [k]*k

i:=i+1 k: =k+1

4. Загальний алгоритм масиву

Початок

Використовую

підпрограму-процедуру:

Masiv(a)

Використовую

підпрограму-процедуру:

Suma (A,X)

Використовую

підпрограму-процедуру:

Funk (X,G)

Кінець