. 40- . , , , , . ( ) . . 50- ; , , ( ) . .
() - / . . , ( ). . , , , ( ). , , .
. . - . ( ) . , sin(), cos(x), abs() .
. . . (Unit), , , . - (Object). TurboVision.
, , ( ) , , . , , , . ?
|
|
. :
program KvadUravn;
var , , , D, XI, 2: REAL;
begin
writeln;
writeln(' ,,'); read(A,B,C);
D:=B*B-4*A*C;
if D<0 then write(' ')
else begin
X1:=(-B+sqrt(D))/(2*A);
X2:=(-B-sqrt(D))/(2*A);
write('X1=', X1,' X2=', 2);
end
end.
, ( ) , . ( ). ( , , ) ( ). , , (read) (write, writeln), (sqrt). {*}.
- - ( ). , Write , . (, , link editor) , , . , , .com ..
, , . , ( ).
. , . , , , - .
, , -, - .
. , .. .
|
|
, . . , ( ). , , , , , .
, . ( , ), .
- , , . , (.. ), . , . , . - , .
. - , , .. .
, , . : BEGIN END ; ( , ), .. ( - ).
, , . , - ( , , ..).
, . , , ..
1. , .
2. ?
3. .