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