Паскаль, Процедура

[Omiira]

я вас умоляю...
с процедурами=)
1. На заданном отрезке АВ(А = 0,55; В = 1)  разбитом на n одинаковых систем n=10, где х меняется по закону арифметической прогрессии. вычислите функцию y заданной по формуле и напечатать цикл ее значений.
sqrt ( 1 / 5 + e x p (1 / 5 * ln ( e x p ( X ) ) ) / a b s ( l n ( s q r ( X ) ) - 1 , 3 )

[Данила]

чтот не совсем понятно...тоесть берется  10 значений х,с заданого отрезка,и просто подставляется в формулу? если да то вот

Код: [Выделить]

procedure formula(n:integer;a,b:real);
var arr:array [1..100] of real;
answ1,answ2,answ:real;
i:integer;
begin
 for i:=1 to n do
  begin
  arr[i]:=a+i*(b-a)/n
  end;
 for i:=1 to n do
 begin
   answ1:=0.2+exp(0.2*ln(exp(arr[i])));
   answ2:=abs(ln(sqr(arr[i]))-1.3);
   answ:=sqrt(answ1/answ2);
   writeln(answ:1:3);
 end;
 readln
end;


 var n:integer;
 a,b:real;
 begin
  readln(n,a,b);
  formula(n,a,b);
 end.

зделал навсякий случай с возможностью задавать отрезок,и количество х-ов