Тема: Створення та реалізація програм, що використовують програми функції.
Мета:Уміти створювати та опрацьовувати програми, що використовують підпрограми функції.
Теоретичні відомості
У структурному програмуванні поряд із процедурами широко застосовуються функції. Відмінність від процедур полягає в тому, що результатом функції є єдине значення. Це обчислювальне значення надається ідентифікатору функції. Структура опису функції аналогічна опису процедури, і докладно ми на ній не зупинятимемося.
Наведемо приклад опису і використання функції для обчислення виразу.
Обчислення модуля оформимо як функцію користувача Modul.
proqram SumMod;
vax
X, Y: real;
function Modul (X: real);
beqin
if X<0 then X:=-X;
Modul:=X
end;
beqin
Writeln (‘Введите Х‘);
Readln (X);
Y:=Modul (X+1)+Modul (X+2);
Writeln (Y:6:3);
end.
У наступному прикладі показане обчислення цілого степеня числа, тобто степеневої функції Y=XN. Цієї функції немає серед вбудованих функцій Паскаля, тому для її обчислення вводимо функцію користувача Deq. Піднесення числа до цілого степеня виконуємо за допомогою оператора циклу while:
Proqram Deqree;
Var
Z,F: real;
M: inteqer;
Function Deq (N: inteqer; X real) : real;
var
I: inteder; Y real;
beqin
I:=1; Y=1;
while I<=N do
beqin
Y:=Y*X; I:=I+1
end;
Deq:=Y
end;
beqin
Writeln (‘Введите Z ,M‘);
Readln (Z,M);
F:=Deq (M,Z);
Writeln (F:8:3);
end.
Хід роботи
1.Створіть функції, яка рахує значення тангенса і інші для гіперболічних функцій і включіть їх у програму, яка малює графіки sh(x), сh(x), th(x), сth(x). Вибираючи їх зі списку.
2.Створіть програму знаходження коренів квадратного рівняння з довільним значенням коефіцієнтів використовуючи функцію для знаходження дискримінанта і коренів.
3.Створити програму, яка в довільному тексті заміняє всі літери А на О, а одиниці на 0.
Контрольні запитання
Які підпрограми використовуються в Турбо Паскаль?
Що таке функція, і для чого вона використовується?