ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ

Приклад №1Обчислитизначення функції по формулі:

.

Находження кореня n-ой ступеня здійснити через функцію, а розрахунок значення по формулі через процедуру. Підпрограми помістить у модуль.

Лістинг модуля Second

Unit second; { ім'я модуля}

{second.pas}

interface {початок розділу оголошень}

Function FunSqrt (x1 : real; k : integer) : real;{обчислення кореня}

Procedure ProcY (var y1 : real; x1 : real);{Розрахунок по по формуле}

Implementation {початок розділу реалізації}

Uses Crt;

Function FunSqrt; {тело функції}

begin

FunSqrt := exp((1/k) * ln(x1));

end;

Procedure ProcY; {тело процедури}

Const b = 10.7;

c = 0.4;

var a : real;

begin

a := exp(0.1*x1) + x1;

y1 := ln(FunSqrt(a,2)) / (x1 + FunSqrt(b,3) + arctan(x1)) + c;

end;

End.

Лістинг основної програми

program Task;

Uses crt,

second;{підключення модулю, в якому зберегаються функціяобчислення кореня та процедура обчислення по формулі }

Var x, y : real; {глобальні змінні}

s : char;

begin

ClrScr;

Repeat

TextColor(12); {зміна кольору текту}

Writeln('Введіть значення Х:');

Readln (x);

ProcY (y,x); {обчислення згідно формули}

TextColor(9); { зміна кольору текту}

Writeln(' Значення змінної Y рівно :', '':2, y:10:6);

TextColor(14);

Writeln('Знову (Y/N) ?');

Readln (s);

Until (s = 'N') or (s = 'n');

end.