Menggabungkan Beberapa Menu dalam Sebuah Program Pascal

prosedur deret

uses wincrt;                                        

#perintah untuk mengawali  Pascal

var i,j,n,x: byte;                                  

#Mendeklarasikan variable I,j,n,x dengan tipe data byte

procedure deret;                     

# Mendeklarasikan prosedur deret

begin                                                  

#Memulai program

clrscr;                                                  

#Membersihkan layar

write('masukkan nilai:');readln(n);     

# Mencetak “masukkan nilai:” dan n sebagai variable untuk nilai yang diinput

for i:= n downto 1 do                        

#Perulangan nilai I dari n sampai 1

begin                                                  

#Mulai program

for j := i downto 1 do                                    

#Perulangan nilai  j dari I sampai 1

begin

write (j);                                             

#Mencetak j secara mendatar

end;

writeln;                                               

#Turun 1 baris ke bawah

end;

end;                                                    

#Akhir dari program

Membuat Prosedur Luas segitiga

procedure luas;                                   

#Mendeklarasikan Prosedur Luas

var a,b,c:real;                                      

#Mendeklarasikan a,b,c  sebagai variable bertipe data real

begin                                                  

#Memulai program

clrscr;                                                  

#Membersihkan layar

write('alas='); readln(a);                     

# Mencetak “alas=” dan variable a sebagai nilai yang diinput

write('tinggi='); readln(b);                  

#Mencetak “tinggi=” dan variable b sebagai nilai yang diinput

c:= a*b/2;                                           

#Memasukkan rumus luas segitiga(axb:2) dengan c sebagai variabelnya

writeln('luas=',c:5:2);                          

#Mencetak “luas = “ dan nilai c sebagai luas

writeln;                                               

#Turun 1 baris

end;                                                    

# Akhir dari program

Membuat Program Utama

var pil : integer;                                  

#Mendeklarasikan variable pil dengan tipe data integer,

lg: char;                                              

# lg dengan tipe data char.

Begin                                                  

# Memulai program

repeat                                                 

#Perulangan repeat until

clrscr;                                                 

# Membersihkan layar

writeln('>>>>menu<<<<)');               

#Mencetak “>>>>menu<<<<”

writeln('1. deret');                               

#Mencetak “1. deret”

writeln('2. segitiga');                          

#Mencetak “2. Segitiga”

writeln('3. exit');                                             

#Mencetak “3. Exit”           

write('pilih (1-3)=');readln(pil);          

#Mencetak “ pilih (1-3)” dengan pil sebagai variable yang diinput

case pil of                                           

# Memilih menampilkan prosedur dengan Case of dan pil sebagai variable yang diinput.

1: begin                                              

#Menampilkan prosedur deret jika menginput 1

deret;

end;

2:begin                                               

#Menampilkan prosedur luas jika menginput 2

luas;

end;

3:begin                                               

#Mencetak “terima kasih” dan Program terhenti secara paksa

clrscr;

write('terima kasih');

halt;

end;

end;

write('kembali ke menu?');readln(lg);

#Mencetak “kembali ke menu?” dengan lg sebagai variable yang di input.

until (lg= 't') or (lg = 'T');                   

# Repeat until pernyataan di atas terus berulanng sampai lg = t atau T

end.

 

Program utama

Deret

Luas segitiga

exit