Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Tuesday, April 14

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


0 Comments:

Post a Comment

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...