Question

SOS... Протабулировать (найти значение функции) y=x³ на отрезке [3;-3] с шагом 0,5. Составить программу по блок-схеме ​

Answer 1

Var x, y : integer ;

Begin

x:=3;

y:=sqr(x)*x;

While x>=-3 do

Begin

Writeln ('x=', x:3,'y=',y);

x:=x-0,5;

y:=sqr(x)*x;

End;

end.