тел.: 8(961)008-77-55

Вычислить значения функции при заданных значениях аргументов. Результаты вывести на печать в виде таблицы значений аргументов
и функции с заголовками.

pascal значения аргументов функции

Решение ABC Pascal:

program func;

var

x,t,a,b: real;

begin

a:=5.82;

b:=-7.66;

x:=-3;

writeln('a':3,'b':8,'x':5,'t':20);

writeln('-------------------------------------');

while x<=18 do

begin

if (x<=0) then t:=2*x+3.2+ln(power(x,3)+x)+1/3*a*sqr(b)*x;

if (x>0) and (x<a) then t:=(2*a*x-sqrt(power(x,4)+sqr(b)))/(-2.015);

if (x>=a) and (x<=b) then t:=power(sin(power((a*x),3)),2)-2/9;

if (x>=b) and (x<=10) then t:=Pi/x;

if (x>=10) then t:=abs(a*x)/sqr(b)-1;

writeln(a:3,b:8,x:5,t:20);

x:=x+3;

end;

end.

pascal Запущенная программа

Добавить комментарий