1.5. , , Triangle, S, , Rv Ro , :
) , , ;
b) ,, ( );
) , ;
d) .
- :
, , . , , Enter. , - , , .. Read, Readln ReadKey. . , 289.49.4 .
, , , . st , , Enter Val. 12.
, :
Program Primer_3;
Uses CRT, { CRT}
Triangle; { }
Const V: Array[1..12] of String[17] =
( :, :, :,
:, :, ,
Xa=,Ya=,Xb=,Yb=,Xc=,Yc=);
Var j:Word; ch:Char; prm:Array[1..12] of Real; S,P,Rv,Ro: Real;
Function Value: Real; { }
Var i,er:Word;z:Real;ch:Char;st:String[12];Perv: Boolean;
Begin Perv:= True; i:=0;
Repeat ch:= ReadKey; { }
If (ch>#47) And (ch < #58) Or { ...}
(ch = #46) And Perv Or {... - ...}
(ch = #45) And (i =0) Then {... 1- ...}
Begin i:=i+1: st[i]:=ch; {... st}
If ch = #46 Then Perv: = False;
Write(ch)
End
Else If ch <> #13 Then Write(#7); {3oo }
Until (ch = #13) Or (i >12); { , }
{ Enter i 12}
st[0]:=Char(i); { }
Val(st, z, er);
Value:= z { st z}
End; { Value}
Procedure Vivod; { }
Begin
Writeln (#13#10' :#13#10);
Writeln ( S =,5:7:3,#13#10' P=,P:7:3);
|
|
Writeln ( Rv =,v:7:3,#13#10' Ro =,Ro:7:3);
Write (#13#10' , #13#10 Enter)
End; { Vivod}
BEGIN
TextBackGround (0);ClrScr; { }
TextColor (14); Window (2,1,35,16);
TextBackGround (Blue); { }
CIrScr;
For j:= 1 to 12 do { }
Begin
Write (#13#10' + V[j]); { }
if j<>6 Then prm[j]:=Value; { 6- }
End;
Write (#13#10' :#13#10' ,, d);
Repeat ch:= ReadKey;
Case ch of { d}
a: Tr_a (prm[1],prm[2],prm[3],S,P,Rv,Ro);
b: Tr_b (prm[7],prm[8],prm[9],prm[10],prm[11],prm[12],S,P,Rv,Ro):
c: Tr_c (prm[1],prm[2],prm[4],S,P,Rv,Ro);
d: Tr_d (prm[1],prm[3],prm[4],S,P,Rv,Ro)
Else Write(#7) { . }
End
Until ch in[a..d]; { ; }
Window (45,1,75,16);TextBackGround(2);
CIrScr; { . }
Window (48,2,75,16); { 3- }
Vivod; { }
Readln { }
END. { . [6], .178-179}
(, ). .