TUGAS AP 4 KASUS ELEKTRONIKA - PROCEDURE

TUGAS AP 4 KASUS ELEKTRONIKA


MENCARI NILAI TEGANGAN DENGAN MENGGUNAKAN PROCEDURE




Sebagai seorang engineer terkadang kita harus menghitung suatu  perhitungan yang sulit dilakukan secara manual.
Oleh karena itu, sebagai alternatif kita dapat menggunakan program untuk membantu kita dalam melakukan perhitungan tersebut.
Berikut ini adalah sebuah contoh pogram sederhana dalam menggunakan procedure untuk melakukan perhitungan mencari voltage :


uses crt;

procedure voltage;
var V, I ,R : integer;
begin
clrscr;
writeln (‘masukkan nilai I (arus) : ‘);
readln (I);
writeln (‘masukkan nilai R (hambatan) : ‘);
readln (R);
V = I*R;
writeln (‘     ‘);
writeln (‘==============’);
writeln (‘     ‘);
writeln (‘nilai V (voltage) adalah  ‘, V);
readln;
end;

begin
voltage;
end.

input :

output :