Такая фигня вот(((

[Wawancher]

Задали лабу по информатике, а как делать незнаю, в паскале нубарез, помогите кто может)

[whatever]

Опять же, только потому, что мне делать нечего.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, math;
function z1(a,x:real):real;
begin
  if (tan((a-x)/x))<0 then
    result:=9999999999999    //если тангенс отрицательный, то корень из него не извлечсется => нам эта функция не интересна.
  else
    result:=sqrt((tan((a-x)/x)));
end;

function z2(a,x:real):real;
begin
  result:=ln(a*a/x);
end;

function z3(a,x:real):real;
begin
  result:=arctan((x*x*x*sqrt(a))/(a+2.5));
end;

function FindMin(a,x:real):real;
begin
  if z1(a,x)<z2(a,x) then
    result:=min(z1(a,x),z3(a,x))
  else
    result:=min(z2(a,x),z3(a,x));
end;

var
  x,a,z:real;
begin
  x:=1;
  a:=2;
  while x<=3 do
    begin
      while a<=4 do
        begin
          z:=FindMin(a,x);
          Writeln('a= ',a:2:2,', x= ',x:2:2,', z= ',z:2:2,';');
          a:=a+1.7;
        end;
      a:=2;
      x:=x+1.1;
    end;
  readln;
end.

Написано в дэлфи, так что поправь под паскаль.

[Wawancher]

Спасибо дружище)))

[Wawancher]

А кто нить знает форму построения там( Начало, Конец)

[Poma][a]

Блок-схему шоль? тыц