menghitung torsi pada motor

Listing program

program fungsi1;

uses crt;

function torsi 1 (s,f:integer):integer ;

function torsi 2 (s,f:integer):integer;

begin

torsi :=f*d;

end;

var

x,y:integer

begin

clrscr;

writeln(‘program menghitung torsi motor’);

writeln;

write(‘masukan gaya= ‘);readln(x);

write(masukan jarak= ‘);readln(y);

writeln;

writeln(‘torsi motor  adalah= ‘,frekuensi (x,y));

readln;

end.

Penjelasan   

                                                                                                                                                                                                                                                                                                    Pada Program pascal ini saya akan membuat listing program fmenghitung torsi pada motor ini saya memakai dua pilihan jadi mempunyai dua torsi motor yaitu torsi motor 1 dan torsi motor 2 ,sehingga bisa memilih salah satu torsi motor untuk membuat  outputnya.Apabila sudah terpilih salah satu. Program akan lanjut atau mencetak nilai.