20 значений функции.

[ByFly]

Парни ПОЖАЛУЙСТА помогите решить эту задачу ОЧЕНЬ-ОЧЕНЬ нужно.

Для аргумента Х, изменяющегося от -0.6 с шагом 0.05, вычислить 20 значений функции:

[alex_fcsm]

Какой функции?

Как пример - считаем квадрат аргумента

uses crt;
const n=20;
      step=0.05;
var x,h,l:real;
    i:integer;
function fun(x:real):real;
begin
fun:=sqr(x);
end;
    
begin
clrscr;
l:=-0.6;
for i:=0 to n-1 do
 begin
   x:=l+i*step;
   writeln(x:4:3,'---',fun(x):6:4);
 end;
end.

[Sazary]

А функцию самим придумать?

Вот код, вместо y := x; поставьте то, что нужно

uses crt;
var
x,y,h : real;
i : integer;
begin
clrscr;
x := -0.6;
h := 0.05;
writeln('   |    x    ||     y   ');
for i:=1 to 20 do
 begin
 y := x;
 writeln(i:2,' |  ',x:6:2,' || ',y:7:3);
 x := x + h;
 end;

readln;
end.

[ByFly]

alex_fcsm and Sazary огромное спасибо парни!