TUGAS AP 3 KASUS ELEKTRONIKA - FUNCTION

TUGAS AP 3 KASUS ELEKTRONIKA

MENCARI NILAI TEGANGAN DENGAN MENGGUNAKAN FUNCTION

Pada tugas kali ini saya akan menunjukan bagaimana sebuah program sederhana dapat membantu kita dalam menentukan berapa nilai tegangan pada suatu rangkaian. Program yang akan digunakan pada tugas ini adalah Turbo Pascal dengan menggunakan function pada codingnya.

Berikut adalah listing/coding nya :

uses crt;

function Tegangan(Resistansi: integer; Arus:integer) : Integer;

var v:integer;

begin

v:= Resistansi*Arus;

Tegangan:= v;

end;

var i,r:integer;

v : integer;

begin

clrscr;

writeln('-======Program Fungsi Mencari Nilai Tegangan======-');

writeln;

write('Masukkan Nilai Resistor : '); readln(r);

write('Masukkan Nilai Arus : '); readln(i);

write('Maka Nilai Tegangan adalah : ', Tegangan(i,r));

readln;

end.

Dalam Turbo Pascal tampilannya akan sebagai berikut :

Dan outputnya adalah sebagai berikut :

Bentuk Flowchart nya adalah sebagai berikut :