Contoh PROGRAM Pilihan

//Contoh  PROGRAM Pilihan dengan menggunakan Program Bahasa Paskal

uses wincrt;

label

1,2,keluar;{ Deklarasi label yg ditentukan }

var
ketik,ulang: char;

begin

1: {  Label ke-1 sebagai pokok program }
clrscr;
writeln(' Menu Masakan Hari Ini :');
writeln('=========================');
writeln;
writeln('a. Nasi Putih + Rendang ');
writeln('b. Nasi Putih + Telur Dadar');
writeln('c. Nasi Putih + Tempe Goreng');
writeln;
writeln(' Masukan Huruf a, b, atau c untuk Pesanan Anda.');
write(' Pilihan Anda ???');
readln(ketik);

if ketik='a'        then
begin
 goto 2;
 end;

if ketik ='b'        then
begin
 goto 2;
 end;
                            
if ketik='c'        then
begin
 goto 2;
 end

else ;
begin

clrscr;
writeln(' Anda Tidak Pesan Apa-Apa.');
writeln(' Mungkin Anda Tidak Lapar..');
writeln;
writeln(' Tekan ENTER untuk keluar.');
readln;

goto keluar;
end;

2:{ Label ke2 Bila User Pilih a/A}
clrscr;
writeln(' Pesanan Anda Nasi Putih + Rendang, Terima Kasih.');
writeln;
write(' Pilih Lagi..(y/n)?');
readln(ulang);

if (ulang='y') or (ulang='Y') then
begin
goto 1;
end
  else
  begin
  goto keluar;
  end;

  keluar:
end.

=================================================


//Contoh membuat PROGRAM  Segitiga dengan menggunakan Program Bahasa Paskal

program segitiga;
uses wincrt;
var
   i,j:integer;
begin
     clrscr;
     i := 1;
     repeat
           j := 1;
           repeat
           write((i*j),' ');
    inc(j);
    until (j > i);
           inc(i);
           writeln;
     until (i > 5);
end.

Share This

• 
• 
• 
• 
• 
• 
• 

Subscribe Here