Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал - 5

Question

Информатика

Анфуса

18 декабря, 15:20

Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал - 5

+4

Ответы (1)

Знаете ответ на вопрос?

Митюня · Answer 1

{Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал - 5
const

max_x = 7;

min_x = - 5;

d_x = 0.5;

var

x, y: real;

begin

x : = min_x;

while (x < max_x) do

begin

if (x 0) then

y : = 1 / (x * x)

else y : = 0;

writeln ('x=', x:2:1, ' y=', y:2:5) ;

x : = x + d_x;

end;

end.