Помогите написать программу и блок схему в Паскале

[миледи]

Помогите написать программу и блок схему в Паскале

задание по тебе табулирование в Турбо паскаль.Протабулировать функцию f (x,у) при х, изменяющимся от а до b с шагом hx и у, изменяющимся от с до d с шагом hy. а, b, c, d, hx, hy подобрать самостоятельно z=(sqrt(sqr(x)-1)/((abs(sin(x)))+(abs(cos)))
[MOD2]У нас клонирование тем НЕ ДОПУСКАЕТСЯ!
Дубликат удален.
Модератор[/MOD2]

 

[Vladimir_S]

задание по тебе табулирование в Турбо паскаль.Протабулировать функцию f (x,у) при х, изменяющимся от а до b с шагом hx и у, изменяющимся от с до d с шагом hy. а, b, c, d, hx, hy подобрать самостоятельно z=(sqrt(sqr(x)-1)/((abs(sin(x)))+(abs(cos)))

Пожалуйста.
Несколько слов о выборе диапазонов, шагов и т.п.
1. Функция Z - четная по обоим аргументам, а потому достаточно ограничиться неотрицательными значениями.
2. Чтобы подкоренное выражение в числителе не оказалось отрицательным, значения х<1 исключаются.
3. Ну и чтобы поместилось в экран.
Результат представлен в виде матрицы, строки которой соответствуют х, а столбцы - у.

Const
 a=1.0;
 b=3.0;
 c=0.0;
 d=1.8;
 hx=0.1;
 hy=0.2;
VAR
 Nx,Ny,i,j:Integer;
 x,y:Real;

Function Z(Xz,Yz:Real):Real;
begin
 Z:=SQRT(SQR(Xz)-1)/(Abs(Sin(Xz))+Abs(Cos(Yz)));
end;

BEGIN
 Nx:=Round((b-a)/hx);
 Ny:=Round((d-c)/hy);
 Write('     ');
 For j:=0 to Ny do Write('  y=',c+hy*j:3:1);
 Writeln;
 For i:=0 to Nx do
  begin
   x:=a+hx*i;
   Write('x=',x:3:1);
   For j:=0 to Ny do
    begin
     y:=c+hy*j;
     write(Z(x,y):7:3);
    end;
   Writeln;
  end;
 Readln
END.

P.S. Блок-схемами, извините, не занимаюсь.