Вопрос Составить и реализовать на pascal программу для табуляции функции в заданном интервале

[Sasha28]

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

Только 4вариант пожалуйста

 

[zakan]

вот похожая
Program Z_1; // /протабулировать функцию на [-10;6] и шаг
uses crt;
var a,b,x,y,h:real;
begin
a:=-10; b:=6;
write('vvesti h ' readln(h);
x:=a;
writeln(' x y'
writeln('-----------------'
repeat
if x<0 then y:=-(x+6)/2 else
if x<3 then y:=-sqrt(9-x*x) else
if x<=6 then y:=sqrt(9-sqr(x-6));
writeln(x:5:2,y:10:5);
x:=x+h;
until x>b+0.01;
end.

 

[Sunter]

Универсальная процедура:

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

procedure Tabulate(f: TSimpleFunction; LowLimit, HighLimit, Step: real);
var
x:Real;
i:integer;
begin
x:=LowLimit;
i:=0;
while x

 

[Kit]

program p4;
var x,d:real; i:integer;
begin
write('d: ' readln(d);
for i:=0 to 100 div 7 do
begin x:=i*0.07; writeln(x:4:2,(x*x-4*power(x,3.5)+8.1*exp(x+0.1)):11:5) end;
end.

 

[Андрей124]

const h = 0.07;
var i, n: integer;
d, x: real;
begin
write('d: ');
readln(d);
n := trunc(1 / h);
writeln('==========================');
writeln(' x', 'z':15);
writeln('==========================');
for i := 0 to n do
begin
x := i * h;
writeln(x:4:2,(x*x*(1-4*x*sqrt(x))+8.1*exp(x+0.1))*d:22:15)
end;
writeln('==========================')
end.