Подпрограмма

[Makar_An]

Подпрограмма

Пожалуйста, срочно!!! решите мне эту программу на borland pascal
1-x^2=kx k[0.5; 9] h=0.5 с помощью процедур.

 

[Vladimir_S]

Пожалуйста, срочно!!! решите мне эту программу на borland pascal
1-x^2=kx k[0.5; 9] h=0.5 с помощью процедур.

Да пожалуйста:

Const
 Kmin=0.5;
 Kmax=9.0;
 Dk=0.5;
VAR
 N,i:Integer;
 k,x1,x2:Real;

Procedure Root(Kr:Real; var Xr1:Real; var Xr2:Real);
begin
 Xr1:=-Kr/2+SQRT(SQR(Kr/2)+1);
 Xr2:=-Kr/2-SQRT(SQR(Kr/2)+1);
end;

BEGIN
 N:=Round((Kmax-Kmin)/Dk);
 Writeln('   k         x1          x2');
 For i:=0 to N do
  begin
   k:=Kmin+Dk*i;
   Root(k,x1,x2);
   Writeln(k:5:1,x1:12:5,x2:12:5);
  end;
 Readln
END.

 

[Makar_An]

Спасибо большое, что бы я делал без вас

 

[Vladimir_S]

Спасибо большое, что бы я делал без вас

Может быть, учились бы?

 

[Makar_An]

вот честно, я не учил информатику, но по остальным экзаменам я уже сдал все на "5" и "4".