Якщо результатом виконання деякої процедури є одне скалярне значення, то цю процедуру бажано оформити як функцію.
Формат опису функції:
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
Організація підпрограм з використанням процедур
Мета:. навчитись створювати та реалізовувати програми з використанням підпрограм.
Теоретичний матеріал