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 :

Daya Mekanik

Listing program

Program fungsi1;

Uses crt;

Function daya (p,a,s:integer):integer;

Begin

daya:=p*(a-s);

End;

Var

x,y,z:integer;

Begin

Clrscr;

Writeln(‘ program daya mekanik ‘);

Writeln;

Write(‘masukan daya= ‘);readln(x);

Write(‘masukan angka= ‘);readln(y);

Write(‘masukan slip= ‘);readln(z);

Writeln;

Writeln(‘ daya mekanik adalah= ‘,daya (x,y,z));

Readln;

End.

Penjelasan

Menghitung Rumus Daya Mekanik

Pm = P(1xS)

Pm : Daya Mekanik

P : Daya

S : Slip