Program Pascal Procedur Delta Bintang

Listing Program

User crt;

Procedure delta bintang ;

Var

r1,r2,r3 : integer ;

ra,rb,rc : real ;

begin

clrscr;

write<’masukan nilai R1 :’>;readln<r1>;

write<’masukan nilai R2 :’>;readln<r2>;

write<’masukan nilai R3 :’>;readln<r3>;

ra :=<r1*r3/<r1+r2+r3>>;

rb :=<r1*r2/<r1+r2+r3>>;

rc :=<r2*r3/<r1+r2+r3>>;

writeln<’nilai Ra adalah :’,ra>;

writeln<’nilai Rb adalah :’,rb>;

writeln<’nilai Rc adalah :’,rc>;

readln;

end;

begin

delta bintang;

end.

Flowchart

Penjelasan

Bintang Delta :