Лабораторна робота № 11 Організація підпрограм з використанням функцій

Мета: навчитися описувати фрагменти програми у вигляді підпрограм і використовувати їх у програмі.

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

Функції

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

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

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
1		30	60	20
2		0	/2	30
3		6.2	8.4	32
4		0.45	0.61	15
5		3.75	5.5	22
6		0.53	0.71	14
7		3.4	5.6	25
8		2.1	12.1	36
9		10.5	17.5	40
10		0	5	24
11		-3	5	50
12		3	9	30
13		-		40
14		0	100	28
15		-		34

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

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

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