Функції

Якщо результатом виконання деякої процедури є одне скаляр­не значення, то цю процедуру бажано оформити як функцію.

Формат опису функції:

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

Звернення до функції (обов'язково повинно бути включене у вираз як операнд) має такий вигляд :

<ім'я функції> (список фактичних параметрів).

Задача. Знайти значення числа комбінацій n!

Знаходження значення факторіалу числа оформимо у вигляді функції. Тоді програма розв'язання даної задачі матиме вигляд:

Program KOMBINACIJ;

var N,M,C:integer;

function FACT(K:mteger):integer;

var i,F :integer;

begin

F:=l;

for i:=l to K do F:=F*i;

FACT:=F;

end;

begin

write('n='); readln(N);

write('m='); readln(M);

C:=FACT(N)Div(FACT(M)*FACT(N-M));

writeln('Кількість комбінацій з ',n,' no ',m,' = ',C );

end.

Примітка.

Зверніть увагу на те, що в самому тілі функції FACT необхідно змінній, ім'я якої співпадає з ім'ям самої функції, присвоїти значення результату виконання функції: FACT:=F.

Завдання

1. Обчислити визначений інтеграл за формулою трапеції:

.

Вимоги до програми:

Вхідні дані вибрати в таблиці за варіантом вказаним викладачем:

№	F(x)	a	b	n
			p/2
		6.2	8.4
		0.45	0.61
		3.75	5.5
		0.53	0.71
		3.4	5.6
		2.1	12.1
		10.5	17.5
		-3
		-p	p
		-p	p

Описати та використати в програмі функцію за такими характеристиками:

Назва функції	Результат функції	Параметри функції
Тип	Опис	Ідентифікатори	Тип	Призначення
Func	Дійсне число	Математична функція	X	Дійсне число	Аргумент функції
Integral	Дійсне число	Визначений інтеграл	A, B	Дійсне число	Межі інтегрування
N	Ціле число	Кількість точок розбиття

2. Записати відповідний текст та результат виконання програми у звіт.

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

Організація підпрограм з використанням процедур

Мета:. навчитись створювати та реалізовувати програми з використанням підпрограм.

Теоретичний матеріал