Function pada Pascal

Contoh program menentukan program besar dan kecilnya suatu input.
Window Coding:

Tampilan Output Program:

Cara Kerja Program:

USES CRT;

Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),

FUNCTION BESAR (A,B:INTEGER):INTEGER;

Program akan membuat sebuah function dengan A,B sebagai Integer.

BEGIN

Program akan memulai proses

IF A>B THEN BESAR:=A ELSE BESAR:=B; END;

Maksudnya jika A > B maka Variabel Besar = A, tetapi bila bukan itu atau dengan kata lain sebaliknya, maka program akan mendefinisikan variable B sebagai Besar.

Lalu program akan keluar dari fungsi

VAR NIL1,NIL2:INTEGER;

Mendefinisikan NIL1, dan NIL2 sebagai Integer,

BEGIN

Proses dimulai,

CLRSCR;

Program akan menghapus semua sisa pengolahan data sebelumnya,

WRITE ('BILANGAN PERTAMA: '); READLN (NIL1);

Program akan menulis “BILANGAN PERTAMA: “ lalu akan membaca input dari user sebagai NIL1

WRITE ('BILANGAN KEDUA : '); READLN (NIL2);

Program akan menulis “BILANGAN KEDUA: “ lalu akan membaca input dari user sebagai NIL2

WRITELN ('BILANGAN TERBESAR ADALAH ',BESAR(NIL1,NIL2):2);

Program akan menulis “BILANGAN TERBESAR ADALAH” dan akan memilih bilangan mana yang terbesar dari kedua bilangan yang telah kita input sebelumnya.

READLN;

Program akan berhenti untuk sementara sebelum berhenti sebelum user menekan Enter.

END.

Program akan berhenti

Related Posts