Program Voltage menggunakan fungsi dalam Bahasa Pascal

Program Voltage;
{dibaca resistor dan arus, hitung voltage dan tampilkan hasilnya dilayar}

var
        R,A:integer;
        V:integer;
        function tegangan(R,A:integer) :integer;

begin
        V:=R*A;
end;

begin
        write('masukkan R : ');readln(R);
        write('masukkan A : ');readln(A);
        V:=tegangan(R,A);
        writeln('V = ',V);
end.

Posting Komentar

0 Komentar