- Buka halaman kerja baru.
- Untuk program ini, berikan kode program sebagai berikut :
- Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.
- Tampilan program yang sudah berjalan.
Jika nilai
nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48
Berikut
keterangan dan logika dari tiap kode pada program
Program
Fungsi;
(judul
program)
uses
crt;
(unit yang
digunakan dalam program)
function
besar (a,b : integer): integer;
(memulai
proses function dengan nama ‘besar’, dimana nilai variabel a dan b yang ada dip
roses tersebut bertipe integer / bilangan bulat)
begin
(awal dari
blok statement function ‘besar’)
if
a>b then
(memulai
printah kondisi, dimana jika nilai dari variabel a lebih besar dari nilai
variabel b, maka akan menjalankan perintah di bawah)
besar
:= a
(nilai
procedure ‘besar’ akan sama dengan nilai variabel a)
else
(selain
kondisi di atas, maka akan menjalankan perintah di bawah)
besar
:= b;
(nilai
procedure ‘besar’ akan sama dengan nilai variabel b)
end;
(akhir dari
blok statement function ‘besar’)
var
(pendeklarasian
variabel)
a,b:
integer;
(Pendeklarasian
data variabel bertipe integer / bilangan bulat)
begin
(awal dari
blok statement)
clrscr;
(membersihkan
layar)
write(‘Nilai
Bilangan 1 = ‘); readln(a);
(mencetak
kalimat ‘Nilai Bilangan 1 = ’ lalu meletakan pointer ke sebelah kanan kalimat,
setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai
variabel ‘a’)
writeln;
(menempatkan
pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)
write(‘Nilai
Bilangan 2 = ‘); readln(b);
(mencetak
kalimat ‘Nilai Bilangan 2 = ’ lalu meletakan pointer ke sebelah kanan kalimat,
setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai
variabel ‘b’)
writeln;
(menempatkan
pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)
write(‘Bilangan
Terbesar = ‘, besar (a,b):5);
(mencetak
kalimat ‘Nilai Terbesar = ‘ lalu memasukan nilai procedure ‘besar’, dimana
nilainya didapat dari nilai variabel a dan b yang telah dimasukan sebelumnya
dengan penempatan nilai variabel setelah 5 x spasi )
readln;
(menunggu
penekanan enter)
end.
(akhir
program)
Tidak ada komentar:
Posting Komentar