• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Параметри - процедури і параметри – функції.

В мові Паскаль вв якості формальних параметрів крім параметрів-значень і параметрів- змінних використовують імена процедур і функцій.

В багатьох задачах, особливо в завданнях обчислювальної математики, необхідно передавати імена процедур і функцій у вигляді параметрів. Для цього в Turbo Pascal запроваджений новий тип даних - процедурний або функціональний, залежно від того, що описується. Опис процедурних і функціональних типів здійснюється в розділі опису типів:

Type

Functype = Function( z : Real) : Real;

Proctype = Procedure( a, b : Real; var x, y : Real);

Функціональний і процедурний тип визначається як заголовок процедури і функції зі списком формальних параметров, але без імені. Можна визначити функціональний чи процедурний тип без параметрів, наприклад:

type Proc = Procedure;

Після оголошення процедурного або функціонального типу його можна використати для опису формальних параметрів - імен процедур і функцій. Крім того, необхідно написати ті реальні процедури чи функції, імена яких будуть передаватися як фактичні параметри. Ці процедури і функції повинні компiлюватися в режимі дальньої адресації з ключем {$f+}.

Приклад. Скласти програму для обчислення визначеного iнтегралу

за методом Сiмпсона. Обчислення підiнтегральної функції реалізувати за допомогою функції, ім'я якої передається як параметр.

Значення визначеного iнтеграла по формулі Сiмпсона вираховується за формулою:

де а і b - нижня і верхня межа iнтервалу iнтегрування,

N - кількість точок поділу iнтервалу iнтегрування,

h = (B - A)/n - крок зміни аргумента, причому N повинно бути парним.

Program INTEGRAL;

type Func= function(x: Real): Real;

var I,TN,TK:Real;

N:Integer;

{$F+}

Function Q(t: Real): Real;

begin

Q:=2*t/Sqrt(1-Sin(2*t));

end;

{$F-}

Procedure Simps(F:Func; a,b:Real; N:Integer; var INT:Real);

var sum, h: Real;

j:Integer;

begin

if Odd(N) then N:=N+1;

h:=(b-a)/N;

sum:=0.5*(F(a)+F(b));

for j:=1 to N-1 do

sum:=sum+(j mod 2+1)*F(a+j*h);

INT:=2*h*sum/3

end;

begin

WriteLn(' Введіть TN,TK,N');

Read(TN,TK,N);

Simps(Q,TN,TK,N,I);

WriteLn('I=',I:8:3)

end.

Читайте також:

1. Аналітичні параметри
2. Аналітичні параметри
3. Аналітичні процедури внутрішнього аудиту та їх класифікація.
4. Антропометричні параметри людини, які використовуються в ергономіці (см)
5. Артеріальний пульс, основні параметри
6. Аудиторські докази: поняття та процедури отримання
7. Банківська система: сутність, принципи побудови та функції. особливості побудови банківської системи в Україн
8. Банківська система: сутність, принципи побудови та функції. Особливості побудови банківської системи в Україні.
9. Банківська система: сутність, принципи побудови та функції. Особливості побудови банківської системи в Україні.
10. Болтове рознімне з’єднання та його параметри
11. Будова, характеристики і параметри біполярного транзистора
12. Бульові функції.

Переглядів: 943