Вычислить значения функции при заданных значениях аргументов. Результаты вывести на печать в виде таблицы значений аргументов
и функции с заголовками.
Решение 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.