Паскаль программа

[ololo111]

Нужно создать программы по блок-схемам. (задание под блоками). нужна помощь

[vova_]

Сообщение от ololo111

ololo

trolololo
хоть удосужся написати суть вопроса
или хоть язык програмирования укажы turbo-visual-...
и где пробная прога

[ololo111]

Var
 x,y,z:Real;

Function f(u,v:Real):Real;
begin
 If u*v>0 then f:=Ln(Abs(u))+Ln(Abs(v)) else f:=(u+v);
end;

Begin
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 z:=f(Sqrt(Abs(x))+y,x)+f(Exp(x),Abs(y));
 Writeln('z= ',z:0:5);
 Readln
End.

[ololo111]

а в проверке при Х=1 и У=0, в выводе Z=2.17

[ololo111]

Var
 A,B,h,x:Real;
 n,i:Byte;

Function f(z:Real):Real;
begin
 f:=z*Ln(2)*Ln(z)/Ln(10);
end;

Begin
 Write('A= ');
 Readln(A);
 Write('B= ');
 Readln(B);
 Write('n= ');
 Readln(n);
 h:=(B-A)/(n-1);
 x:=A;
 for i:=1 to n do
  begin
   write(i:2,'   x= ',x:3:1,'   y= ');
   if Abs(x)=0 then writeln('Not defined!') else writeln(f(x):6:3);
   x:=x+h;
  end;
 Readln
End.

[ololo111]

короче программа чёто неправильно делает, и её ответы с проверкой не сходятся!

[ACE Valery]

ololo111, пользуйтесь кнопкой "Правка", незачем плодить кучу подряд идущих сообщений

[BDA]

В первой задаче, судя по блок-схеме, так:

var
  x, y, z: Real;

function f(u, v: Real): Real;
begin
  if u * v > 0 then f := Ln(Abs(u)) + Ln(Abs(v)) else f := abs(u + v);
end;

begin
  Write('x= ');
  Readln(x);
  Write('y= ');
  Readln(y);
  z := f(Sqrt(Abs(x)) + y, x) + f(Exp(x), Abs(y));
  Writeln('z= ', z:0:5);
  Readln
end.

Во второй:

var
  A, B, x, h: Real;
  n, i: integer;

function f(z: Real): Real;
begin
  f := exp(z * Ln(2)) * Ln(z) / Ln(10);
end;

begin
  Write('A= ');
  Readln(A);
  Write('B= ');
  Readln(B);
  Write('n= ');
  Readln(n);
  h := (B - A) / (n - 1);
  x := A;
  for i := 1 to n do
  begin
    write(i:2, ' x= ', x:3:1, '   y= ');
    if Abs(x) = 0 then writeln('Not defined!') else writeln(f(x):6:3);
    x := x + h;
  end;
  Readln
end.