Skip navigation

Function Resistor(Var V,I : integer): integer;

Begin

Hitung := V/I;

End;

Var V,I : integer;

Begin

Write(‘Nilai V = ‘);

Readln(V);

Write(‘Nilai I = ‘);

Readln(I);

Writeln;

Writeln(‘V’ / ‘I’) = ‘,Hitung(V,I);

End

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: