Вычислить 7 значений функций ( Задача номер 2) - Pascal

Формулировка задачи:

Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

Код к задаче: «Вычислить 7 значений функций ( Задача номер 2) - Pascal»

textual
const n=7;
      da=0.22;
var a,x,a1,y:real;
    i:byte;
begin
write('x=');
readln(x);
a:=0.14*x;
for i:=0 to n-1 do
 begin
  a1:=a+i*da;
  y:=(0.15*x+a1)/(a1*a1+x*x);
  writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' y=',y:5:2);
 end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ