UNIT . , / . , , , . , ,
UNIT Triangle;
TRIANGLE.S. .
USES < >
USES - ;
< > - , ; , , :
USES CRT, Grahy, Printer, Triangle;
INTERFACE. (, , ), / . . . , : , , , .. , . . .
IMPLEMENTATION , . - , , , , .
, , , ( ), . , .. , , .
, , , .
. BEGIN - BEGIN END.( ).
, . . , , , ..
|
|
, .. .
, .
5.1. Triangle, : S, , Rv Ro . :
) , , ;
b) , b, (6 );
) , ;
d) .
a d TR_a, TR_b, TR_c, TR_d. .
UNIT TRIANGLE;
INTERFACE
Procedure TR_a (A,B,C:Real;Var S,P,Rv,Ro:Real);
Procedure TR_b (Xa,Ya,Xb,Yb,Xc,Yc:Real; Var S,P,Rv,Ro:Real);
Procedure TR_c (A,B,Ugol:Real; Var S,P,Rv,Ro:Real);
Procedure TR_d (A,Ugol1,Ugol2:Real; Var S,P,Rv,Ro:Real);
{ , }
IMPLEMENTATION
Procedure TR_a; { , }
Begin { }
:= ( + + 0/2; { - }
S:= Sqrt (*(-)*(-)*(-0); { S - }
Rv:= S/P; Ro:= A*B*C/(4*S); { Rv Ro}
: = 2*; { }
End;
Function R(X1,Y1,X2,Y2:Real):Real; { 2 }
Begin R:= Sqrt(Sqr(X1-X2) + Sqr(Y1-Y2)) End;
Procedure TR_b:
Var A,B,C:Real;
Begin A:= R(Xa,Ya,Xb,Yb); { A}
B:= R(Xa,Ya,Xc,Yc); { }
:= R(Xb,Yb,Xc,Yc); { }
TR_a(A,B,C,S,P,Rv,Ro) { TR_a }
End; { }
Procedure TR_c;
Var : Real;
Begin
C:=Sqrt(Sqr(A)+Sqr(B)-2*A*B*Cos(Ugol));
TR_a(A,B,C,S,P,Rv,Ro); { TR_a}
End;
Procedure TR_d;
Var B,C,D:Real;
Begin
D:=Sin(pi-UgoH-Ugol2);
B:=A*Sin(Ugol1)/D; { }
C:=A*Sin(Ugol2)/D;
TR_a(A,B,C,S,P,Rv,Ro); { TR_a}
End; { }
END. { }
, TR_a, , , . TR_b R, . R : . R , . TR_a R , : , - , . R , R .
|
|
5.2. , Triangie , abc def, , . .
Program Treug; { }
Uses Triangle, Printer; { USES!!}
Var Xa,Ya,Xb,Yb,Xc,Yc,Xd,Yd,Xe,Ye,Xf,Yf: Real;
Sabc,Pabc,Sdef,Pdef,Rv,Ro: Real;
BEGIN
Writeln ( );
Readln (Xa,Ya,Xb,Yb,Xc,Yc,Xd,Yd,Xe,Ye,Xf,Yf);
{ }
{ - }
Write (Lst, /);
Write (Lst, ); { }
TR_b (Xa,Ya,Xb,Yb,Xc,Yc,Sabc,Pabc,Rv,Ro);
TR_b (Xd,Yd,Xe,Ye,Xf,Yf,Sdef,Pdef,Rv,Ro);
If (Sabc/Pabc > Sdef/Pdef) Then Writein (Lst, def)
END.
. Rv Ro , .
, . .TPU, , (-) . ( ).
64 , .TPU- 64 . COMPILE:
Compile Alt-F9
Make F9
Build
Destination Memory/Disk
Primary file...
- . , USES.
COMPILE USES TPU.
(. 5.2)
USES Triangle, Printer;
Printer - , , UNIT DIRECTORIES, TRIANGLE.TPU. .
MAKE .TPU . -TPU , PAS, .. , . MAKE . - , . , , , . , .
USES. , . , . , :
Unit A; Unit ;
Interface interface
Uses ; Uses A;
......
Implementation implementation
End. End.
, USES :
|
|
Unit A; Unit ;
Interface Interface
......
Implementation Implementation
Uses ; Uses A:
......
End. End.
, . . , , .