Question

Sos! вычислить множество значений функций

Answer 1

var a,b,x,y,i:real;
begin;
a:=-1.4;
b:=0.5;
x:=30;
while x<>0 do
begin;
y:=(a*sqr(x)+b)/(2*a*b);
writeln('При x=',x,' y=',y);
x:=x-2;
end;
end.
При x=30 y=899.642857142857
При x=28 y=783.642857142857
При x=26 y=675.642857142857
При x=24 y=575.642857142857
При x=22 y=483.642857142857
При x=20 y=399.642857142857
При x=18 y=323.642857142857
При x=16 y=255.642857142857
При x=14 y=195.642857142857
При x=12 y=143.642857142857
При x=10 y=99.6428571428572
При x=8 y=63.6428571428571
При x=6 y=35.6428571428571
При x=4 y=15.6428571428571
При x=2 y=3.64285714285714