Вычислить 7 значений функций - Pascal

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

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

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

textual
const n=7;
      da=0.22;
var a,x,a1,b,z:real;
    i:byte;
begin
write('x=');
readln(x);
a:=0.14*x;
for i:=0 to n-1 do
 begin
  a1:=a+i*da;
  z:=a1*a1-x*x;
  if(z<=0)or(z=1)then writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b не определено')
  else
   begin
    b:=(0.15*x-a1)/ln(z);
    writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b=',b:5:2);
   end;
 end;
end.

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

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

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


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