Page 121 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Bil_1, Bil_2, Hasil : integer;

procedure Awal;
begin

Writeln('Latihan Pascal 2 : Prosedur dan Fungsi');

Writeln('--------------------------------------');
Writeln;

Writeln('Nama : ____________________');

Writeln('NIM : __________');
Writeln;

end;
procedure Baca_Data;

begin

Write('Masukkan bilangan pertama : ');
Readln(Bil_1);

Write('Masukkan bilangan kedua : ');

Readln(Bil_2);
Writeln;

end;
procedure Kali(A,B : integer);

var

I : integer;
begin

Hasil := 0;

for I := 1 to B do Hasil := Hasil + A;
end;

procedure Kalikan(A,B : integer; var C : integer);

var
I : integer;

begin

C := 0;
for I := 1 to B do C := C + A;

end;

begin