Предыдущий уровень изложения текущего раздела   Текущий уровень изложения предыдущего раздела   Текущий уровень изложения следующего раздела   Первый уровень изложения следующего раздела   Уровень: Глоссарии:


ФУНКЦИИ

Пример функции:

Составить программу, которая вычисляет и выводит на экран значения функции Y=A*XN+B*X(-N) для значений аргумента Х, изменяющихся от 0.1 с шагом 0.1 до 1.9. Операцию возведения действительного числа в целую степень реализовать в виде функции.

Program POW;
var a, b, x, y: Real;
 n: Integer;
function PowR(x: REAL; n: Integer): Real;
var P, t: Real;
 c: Integer;
begin
 if n = 0 then P:=1
 else begin
 t:= x;
for c:=2 to abs(n) do t:= t*x;
 if n < 0 then P:=1/t
 else P:=t
 end;
 PowR:=P;
end;
begin
 WriteLn(' ВВЕДИ a,b,n');
 ReadLn(a,b,n);
 x:=0.1;
 repeat
 y:=a*PowR(x,n)+b*PowR(x,-n);
 WriteLn(x:5:1,y:10:3);
 X:=X+0.1
 until x > 1.9
end.