Ketiklah Listing dibawah ini dan amati hasilnya program Sub_Program; uses crt; var hasil, nilai1, nilai2 : integer; hbagi : real; procedure Tambah; begin hasil := nilai1+nilai2; writeln('Nilai X + Y = ',hasil); end; procedure Kurang(p, q : integer); begin hasil := nilai1 - nilai2; writeln('Nilai X - Y = ',hasil); end;function Kali : integer; begin Kali := nilai1 * nilai2; end; function Bagi(p,q : integer) : real; begin bagi := p/q; end; procedure tukar(var p, q : integer); var r : integer; begin r := p; p := q; q := r; end; var pilih : integer; begin clrscr; pilih := 0; while (pilih <> 5) do begin writeln; writeln(' Masukkan Pilihan Proses '); writeln('-------------------------'); writeln(' 1. Penjumlahan'); writeln('
Banyak Baca Banyak Tau