Contoh Program Pascal

//Contoh membuat PROGRAM Perbandingan 2 buah bilangan dengan menggunakan Program Bahasa Paskal

program perbandingan;
uses wincrt;
var

x,y: integer;


begin
writeln;
write(' Masukan bil pertama= ');
readln(x);
write(' Masukan bil kedua  = ');
readln(y);
writeln;

if x>y then       
begin
writeln(' Nilai',x,' Lebih besar dari pada ',y);
end

else
begin
write  (' Nilai',y,' Lebih besar dari pada ',x);
end;     
end.

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

//Contoh membuat PROGRAM Menghitung Operasi matematika X^2 + Y^2 + Z dengan menggunakan Program Bahasa Paskal

uses wincrt;

var
x,y,z:integer;
lagi:char;

nama:string;

begin

lagi:= 'y';

while (lagi= 'y') or (lagi= 'Y') do

begin
clrscr;
  write(' Siapa nama anda =...?');
  readln(nama);
  writeln( 'Halo ',nama,',Coba kamu');
  writeln('masukan nilai x,y dan z ');
  writeln('pada operasi matemetika ini.');
  writeln;

  writeln(' Operasi matematika X^2 + Y^2 + Z =...');
  write(' masukan nilai x = ');
  readln(x);
  write(' masukan nilai y = ');
  readln(y);
  write(' masukan nilai z = ');
  readln(z);
  writeln;

  writeln(' nilai operasi X^2 + Y^2 + Z adalah: ',x*x + y*y + z);
  writeln;

  write(' Mau hitung lagi apa tidak (y/n),',nama,'?');
  readln(lagi);

  end;
end.

Contoh Program Faktorial dengan menggunakan Bahasa Paskal

//Contoh  Program  Faktorial dengan menggunakan Bahasa Paskal

program contohfungsi4;
uses wincrt;
function Faktorial(Nilai : integer) : real;
begin
     if Nilai = 0 then
        Faktorial := 1
     else
         Faktorial := Nilai * Faktorial(Nilai-1);
end;
var
   N : integer;
begin
     write('Berapa faktorial ? ');
     readln(N);
     writeln(N,'  faktorial = ',Faktorial(N):4:0);
end.

Contoh membuat PROGRAM Nilai UTS dan UAS

//Contoh membuat PROGRAM  Nilai UTS dan UAS disertai nilai Indexnya dengan menggunakan Program Bahasa Paskal

uses wincrt;
var

uts,uas    :real;
tot        :real;
ulang:char;



begin
ulang:='y';
while (ulang= 'y') or (ulang= 'Y') do
begin
clrscr;
write(' Masukan nilai UTS (Ujian Tengah Semester): ');
readln(uts);
write(' Masukan nilai UAS (Ujian Akhir Semester) : ');
readln(uas);
writeln;

tot:=0.6 * uas+0.4*uts;
writeln(' Nilai Akhir   : ',tot:0:2);

if (tot>=80) then
writeln(' Nilai Indeks  : A');

if (tot<80) and (tot>=70) then
writeln(' Nilai Indeks  : B');
if (tot<70) and (tot>=50) then
writeln(' Nilai Indeks  : C');
if (tot<50) and (tot>=30) then
writeln(' Nilia Indeks  : D');
if (tot<30) then
writeln(' Nilai Indeks  : E');
writeln;
write(' Apakah anda ingin mengulang? (y/n) ');
readln(ulang);
end;
end.


==========================
//Contoh  Program Bahasa Paskal dengan menggunakan statment while

program RataWhile;
uses wincrt;
var
   maxl,i : integer;
   nilai, totnilai, rata : real;

begin
   clrscr;
   write ('Jumlah Data = ' );
   readln(maxl);
   writeln('');

   i:=1;
   while (i<=maxl) DO
   begin
        write('Nilai Data ke ',i ,' ? ');
        readln(nilai);
        totnilai := totnilai+nilai;
        i:=i+1;
   end;
   writeln('');
   rata:= totnilai/maxl;
   writeln('Total Nilai     = ',totnilai:0:2);
   writeln('Jumlah Data     = ',maxl);
   writeln('Rata-rata Nilai = ',rata:0:2);
end.

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.

Contoh Membuat Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai dengan menggunakan bahasa Pascal

// Contoh Membuat  Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai  dengan menggunakan bahasa Pascal


uses wincrt;

var
  nilai, i, jum, min, max: integer;
  rata: real;

begin
  writeln('Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai');
  writeln;
  jum:=0;  min:=999; max:=0;

  for i:= 1 to 10 do begin
    write('Nilai ke-',i,'= '); readln(nilai);

    jum:=jum+nilai;

    if(nilai<min) then min:=nilai;
    if(nilai>max) then max:=nilai;
  end;

  rata:=jum/10;
  writeln;
  writeln('Jumlah   : ' , jum);
  writeln('Rata-rata: ' , rata:7:1);
  writeln('Terkecil : ' , min);
  writeln('Terbesar : ' , max);
end.

//Atau dengan menggunakan perintah while

uses wincrt;
var
i,nilai,min,max,jum:integer;
rata:real;
lagi:char;
begin

lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;
writeln('masukan 5 angka bilangan bulat dibawah ini:');
min:=999; max:=0; jum:=0;
 for i:=1 to 5 do
 begin
 write(' Data ke_',i,' = ');
 readln(nilai);
 jum:=jum+nilai;
 
 if (nilai<min) then min:=nilai;
 if (nilai>max) then max:=nilai;


 end;
writeln;
writeln(' Jumlah semua   = ',jum);
writeln(' Rata2          = ',jum/5:0:2);
writeln(' Nilai terkecil = ',min);
writeln(' Nilai terbesar = ',max);
write(' Apakah akan mengulang lagi?y/n...');
readln(lagi);
end;
writeln('     ===== TRIMA KASIH =====');
end.

Contoh Membuat Program penghitungan Gaji dengan menggunakan bahasa Pascal

// Contoh Membuat Program penghitungan Gaji  dengan menggunakan bahasa Pascal

program gaji_bersih;
uses wincrt;
var
g,gaji,tunjangan,pajak:real;
nm:string;

begin
gotoxy(4,3);
write('Masukan Nama : ');
readln(nm);
write('Masukan Gaji ',nm,' = ');
readln(gaji);
tunjangan:= 0.2 *gaji;
pajak:= 0.15 * (gaji + tunjangan);
g:= gaji + tunjangan - pajak;
writeln;
writeln(nm,' Gaji bersih = Rp.',g:7:2);
end.

Contoh Program mengubah waktu detik menjadi Jam dan menit dengan menggunakan bahasa Pascal

// Contoh Program mengubah waktu detik menjadi Jam dan menit dengan menggunakan bahasa Pascal

program detik_kejam;
uses wincrt;
var
dtk,j,m,d:integer;

begin
gotoxy(3,4);
write('Masukan Detik = ');
readln(dtk);
j:=dtk div 3600;
m:=dtk mod 3600 div 60;
d:=dtk mod 3600 mod 60;
writeln;


writeln(dtk,' Detik Ada: ',j,' Jam. ',m,' Menit. ',d,' Detik.');
end.

========================================================================
// Contoh Program mengubah waktu detik menjadi Hari,Jam dan menit dengan menggunakan bahasa Pascal

program mencari_detik_kehari;
uses wincrt;
var
h,j,m,d:integer;
dtk:longint;

begin
write('Masukan Detik = ');
readln(dtk);
writeln;

writeln(dtk,' Detik adalah :');

h:=dtk div 86400;
dtk:= dtk - h *86400;
j:= dtk div 3600;
dtk:=dtk -  j* 3600;
m:= dtk div 60;
dtk:=dtk - m * 60;

writeln;
writeln(h,' Hari,',j,' Jam,',m,' Menit,',dtk,' Detik');
end.

Contoh Program Bahasa Pascal mengubah dejat celcius menjadi Fahrenheit

//Contoh Program Bahasa Pascal mengubah dejat celcius menjadi Fahrenheit

uses wincrt;
var
x:integer;
C,F:real;
begin
writeln('--------------------------');
writeln(' Celcius       Fahrenheit ');
writeln('--------------------------');
C:=0;
for x:=1 to 10 do
begin
F:=1.8* C +32;
writeln('|',C:5:2,F:15:2,'   |');
C:=C+0.25;
end;
writeln('--------------------------');
end.

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

//Contoh membuat PROGRAM KONVERSI SUHU dengan menggunakan Program Bahasa Paskal

uses wincrt;
label
1,2,3,4,5,6,keluar;

var
ketik,ulang:char;
c:real;
begin
1:
writeln('PROGRAM KONVERSI SUHU');
WRITELN('---------------------');
writeln;
writeln;
writeln('Pilih menu berikut dengan menekan tombol [1..4]');
writeln('[1] Konversi Celcius ke Fahrenheit');
writeln('[2] Konversi celcius ke Reamur');
writeln('[3] Conversi Celcius ke Kelvin');
writeln('[4] Keluar Program');
writeln;
write('Nasukan Pilihan Anda: ');
readln(ketik);
if ketik ='1' then
begin
goto 2;
end;
if ketik ='2' then
begin
goto 3;
end;
if ketik ='3' then
begin
goto 4;
end;
if ketik ='4' then
begin
goto 6 ;
end;
{ TAMBAHAN JIKA USER TDK PILIH NO. PILIHAN / TDK MILIH SAMA SEKALI( ENTER ) MAKA:}

if (ketik='5') or (ketik='6') or (ketik='7') or (ketik='8') or
   (ketik='9') or (ketik='0') or not(ketik=' ') then
begin
goto 5 ;
end;


2:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c*9/5)+32:0:0,' Fahrenheit');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
3:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c*4/9):0:0,' Reamur');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
4:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c+273):0:0,' Kelvin');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
5:
clrscr;
writeln;
writeln(' Maaf !!!!!');                 
writeln(' Anda SALAH memasukan Nomer Pilihan.');
writeln('      ----- ');                          
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;

6:
begin  
writeln;
writeln(' Anda keluar dari Program.');
write(' TERIMA KASIH.');

goto keluar;
end;
keluar:
end.

Contoh Program Pascal dengan menggunakan statment CASE-OF

// Contoh Program Pascal dengan menggunakan statment CASE-OF

uses wincrt;
var
x: byte;
begin
gotoxy(5,6);
write('Masukan bil bulat( 0-6 )= ');
readln(x);
gotoxy(4,8);
case (x) of
1:writeln(' Senin.');
2:writeln(' Selasa.');
3:writeln(' Rabu.');
4:writeln(' Kamis.');
5:writeln(' Jum`at.');
6:writeln(' Sabtu.');
0:writeln(' Minggu.')
else
writeln(' Tidak ada hari.');

end;
end.

Contoh Program Pascal Mencari Bilangan Ganjil dan Totalnya

 Contoh Program Pascal Mencari Bilangan Ganjil dan Total Jumlahnya :

uses wincrt;
var
x,sisa,y:integer;
hasil:string;
 begin
 write('Masukan Bilangan Bulat= ');
 readln(y);
 hasil:='';
 x:=y;

 repeat
 sisa:= x mod 2;
 x:= x div 2;

 case (sisa) of
 0: hasil:='0' + hasil;
 1: hasil:='1' + hasil;
 end;

 until (x=0) ;
 gotoxy(5,3);
 writeln(y,' Bil biner = ',hasil);
 end.


Preview :