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