Создать две Паскаль программы по готовым блок-схемам

[ololo111]

Создать две Паскаль программы по готовым блок-схемам

Блоки правильные! но задание под ними. помогите кто-нибудь.

 

[Vladimir_S]

В первом задании в f(u,v) во второй строке - сумма u+v в круглых скобках или под знаком абсолютной величины?

 

[Vladimir_S]

... и молчанье гробовое было ему ответом... Ладно, вроде каракули на блок-схеме показывают, что всё-таки абсолютная величина. Между прочим, следовать блок-схеме я не собираюсь: там наворочена куча промежуточных переменных (H,G), абсолютно ненужных и бессмысленных. Детский сад какой-то. Вот:

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,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]

этоо. а, извиняюсь, да в круглых

 

[Vladimir_S]

этоо. а, извиняюсь, да в круглых

Точно? А то на блок-схеме я вижу вертикальные! Но если круглые, то в функции после else уберите ABS.

 

[ololo111]

else f:=(u+v); получается... ответ не изменился, чё-то с проверкой не сходится, ни в 1м ни во 2м...
в 1м при Х=1 и У=0, в выводе Z=2.17
при Х=1 и У=1, в выводе Z=-0.08


во втором при A=1; B=1; N=2, в выводе X=1; I=2
этоо

 

[Vladimir_S]

Так, ну это уже вообще черт-те-что. И сбоку бантик.

else f:=(u+v); получается... ответ не изменился, чё-то с проверкой не сходится, ни в 1м ни во 2м...

Значит, говорите, "не сходится"? Ну что же, будем проверять:

Теперь смотрим результат работы программы:

в 1м при Х=1 и У=0, в выводе Z=2.17 при Х=1 и У=1, в выводе Z=-0.08

Значит так. Не сходится - и сходиться не должно! А если должны получиться приведенные Вами числа, то это значит, что Вы напортачили в формулах. И больше это не означает ничего.

во втором при A=1; B=1; N=2, в выводе X=1; I=2

Ну да, так и получается. И что не устраивает?


Этоо

 

[ololo111]

во 2м ответ кагбы непонятный, ну всёравно спасибо