Технический форум - Подпрограмма

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Подпрограмма (http://www.tehnari.ru/f41/t52980/)

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

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

Цитата:

Сообщение от Makar_An (Сообщение 535593)

Пожалуйста, срочно!!! решите мне эту программу на 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 (Сообщение 540700)

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

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

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