• Contoh 1: Apakah Anda irit atau boros?

program Irit_Boros;
uses crt;
var
saku, peng, hasil : integer;

begin
write(‘Jumlah uang saku Anda per minggu : ‘); readln(saku);
write(‘Pengeluaran Anda per minggu : ‘); readln(peng);
hasil:=saku-peng;
if hasil>=peng then
writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang irit’)
else
writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang boros’);
end.

• Contoh 2: Contoh program Pascal untuk Menghitung Gaji

program hitung_gaji;
uses crt;

var
nama_karyawan:string;
alamat:string;
gaji_pokok,tunjangan,pajak,gaji_bersih:comp;

begin
writeln(‘menghitung gaji bersih karyawan’);
write (‘nama karyawan:’);readln(nama_karyawan);
write (‘alamat:’);readln(alamat);
write (‘gaji pokok:’);readln(gaji_pokok);
tunjangan:=0.15 * gaji_pokok;
pajak:=0.075 * gaji_pokok;
gaji_bersih:=gaji_pokok+tunjangan-pajak;
writeln(nama_karyawan);
writeln(‘gaji pokok Anda adalah’,gaji_pokok);
writeln(‘tunjangan Anda sebesar’,tunjangan);
writeln(‘pajak penghasilan Anda sebesar’,pajak);
writeln(‘maka gaji bersih Anda adalah’,gaji_bersih);
end.

• Contoh 3: Program “If_Kombinasi”

program IfKombinasi;

uses crt;

var
angka1,angka2 : integer;

begin
writeln(‘Masukkan angka pertama: ‘); readln(angka1);
writeln(‘Masukkan angka kedua: ‘); readln(angka2);
if {not} (angka1>3) and {or} (angka2>4) then
begin
writeln(‘Anda memasukkan nilai angka pertama > 3 dan kedua > 4’);

end

• Contoh 4: Program Tebak Angka

program Tebak_Angka;

uses crt;

var
angka,tebakan : integer;

begin
clrscr;
angka:= 2;
writeln(‘Coba tebak angka antara 1 sampai 10’); readln(tebakan);
if angka = tebakan then
writeln(‘Selamat!, tebakan kamu benar.’)
else
writeln(‘Wakwawww, tebakan kamu salah.’)
end.

• Contoh 5: Program Menghitung Detik Menit

program JamKeMenit;

uses crt;

var
jam, menit,i,hasil,dtk,hasildtk : integer;

begin
clrscr;
write(‘Masukkan Nilai Jam : ‘); readln(jam);
i:=60;
dtk:=3600;
if jam =1 then
begin
hasil:=jam*i;
hasildtk:=jam*dtk;
writeln(jam, ‘ jam sama dengan ‘,hasil,’ menit dan ‘, hasildtk, ‘ detik’);
end
else
begin
hasil:=jam*60;
hasildtk:=jam*dtk;
writeln(jam,’ jam sama dengan ‘,hasil, ‘ menit dan ‘, hasildtk, ‘ detik’);
end;
end.

• Contoh 6: Program Kalkulator

Program Kalkulatia;
uses crt;

var angka1,angka2,hasil:real,2;
operasi:char;

begin
clrscr;
writeln(‘KALKULATOR’);
writeln(‘===================’);
write(‘Input Angka Pertama : ‘); readln(angka1);
write(‘Operasi yang dilakukan(+,-,/,*) : ‘); readln(operasi);
write(‘Input Angka Kedua: ‘); readln(angka2);
case operasi of
‘+’: hasil :=angka1+angka2;
‘-‘: hasil :=angka1-angka2;
‘*’: hasil :=angka1*angka2;
‘/’: hasil :=angka1/angka2;
end;
writeln(‘Hasil dari ‘,angka1,’ ‘, operasi,’ ‘, angka2, ‘ = ‘,’ ‘, hasil);
end.

• Contoh 7: Pangkat Kuadrat

program pangkat_kuadrat;
uses crt;

var
bil : integer;

function pangkat2(b: integer) : integer;
var
hasil : integer;  {hasil sebagai variabel lokal}

begin
hasil := b *b;
pangkat2 := hasil;
end;

{bagian prog.utama}
begin
clrscr;
write(‘masukan bilangan bulat : ‘); readln(bil);
write(‘hasil pangkatnya adalah ‘, pangkat2(bil));
readkey;
end.

• Contoh 8: Menghitung Luas Persegi Panjang

program Luas_Persegi_Panjang;

uses crt;

var
panjang : real;
lebar : real;
luas : real;

begin
clrscr;
writeln(‘===================================’);
writeln(‘| ‘,’Program untuk Menghitung Luas Persegi Panjang’,’ |’);
WRITELN(”);
writeln(‘| ‘,’Rumus : Panjang x Lebar (p x l)’,’ |’);
writeln(‘===================================’);
writeln(”);
write(‘Nilai Panjang: ‘); readln(panjang);
write(‘Nilai Lebar: ‘); readln(lebar);
Writeln(‘Rumus Luas: Panjang x Lebar (p x l)’);
luas :=panjang*lebar;
writeln(”);
writeln(‘=============================’);
writeln(‘| ‘,’Jadi p x l = ‘,panjang:0:1,’ x ‘,lebar :0:1);
writeln(‘==============================’);
writeln(luas:0:1);
end.

• Contoh 9: Contoh program Pascal “If Bercabang”

program NeastedIf;
uses crt;

var
A,B,C : integer;

begin
clrscr;
writeln (‘Masukkan tiga angka dengan spasi’); readln(A, B, C);
if A >= B then
begin
if A >= C then
writeln (A, ‘ adalah nilai terbesar’)
else
writeln (C, ‘ adalah nilai terbesar’)
end
else if B >= C then

begin
if B >= C then
writeln (B, ‘ adalah nilai terbesar’)
else
writeln (C, ‘ adalah nilai terbesar’)
end
else if C >= A or B then
writeln(C, ‘ adalah nilai terbesar’);
end.

• Contoh 10: Program Data Kepegawaian

program data_pegawai;
uses crt;

var
gajipokok, gajibersih, tunjangan1, tunjangan2, tunjangan3, tunjangan4 :real;
status :char;
nama, alamat :string[30];
jumlah :integer;

begin
clrscr;
write(‘Nama                  : ‘); readln(nama);
write(‘Alamat                : ‘); readln(nama);
write(‘Gaji pokok            : Rp ‘); readln(gajipokok);
write(‘Status D:menikah, S:belum menikah : ‘); readln(status);
write(‘Jumlah anak           : ‘); readln(jumlah);
if (status = ‘D’) then
if(jumlah <= 3) then begin
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * jumlah) / 100;
gajibersih := gajipokok + tunjangan1 + tunjangan2;
writeln(‘tunjangan suami/istri : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak        : Rp ‘,tunjangan2:0:0);
writeln(‘gaji bersih           : Rp ‘,gajibersih:0:0);
end
else
begin
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * 3) / 100;
tunjangan3 :=(3 * gajipokok * (jumlah – 3)) / 100;
tunjangan4 :=tunjangan2 + tunjangan3;
gajibersih :=gajipokok + tunjangan1 + tunjangan4;
writeln(‘tunjangan suami/istri : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak        : Rp ‘,tunjangan4:0:0);
writeln(‘Gaji bersih           : Rp ‘,gajibersih:0:0);
writeln(‘Terima Kasih’);
end
else
writeln(‘gajibersih            : Rp ‘,gajipokok:0:0);
readkey;
end.

• Contoh 11: Menentukan Bilangan Ganjil atau Genap

program GanjilGenap;
uses crt;

var
angka :integer;

begin
clrscr;
writeln(‘Status Bilangan’);
writeln(‘===============’);
write(‘Masukkan Bilangan: ‘); readln(angka);
if angka < 0 then
begin
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = NEGATIF’)
else
writeln(‘Status Bilangan : GANJIL = NEGATIF’)
end
else
begin
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = POSITIF’)
else
writeln(‘Status Bilangan : GANJIL = POSITIF’)
end;
end.

• Contoh 12: Game Tebak-Tebakan

program Game_Tebak;
uses crt;
var
pilih : integer;
tebak1, tebak2, tebak3  : string ;

begin
clrscr;
writeln(‘=======================================’);
writeln(‘|’,’ SELAMAT DATANG DI GAME TEBAK ASAL’,’|’);
writeln(‘=======================================’);
writeln(”);
writeln(‘*’,’PILIH KATEGORINYA ‘,’*’);
writeln(‘1. Mudah’);
writeln(‘2. Sedang’);
writeln(‘3. Sulit’);
writeln(‘———————–‘);
writeln(”);
write(‘Mau pilih kategori yang mana nih? 1,2, atau 3 : ‘); readln(pilih);

case pilih of
1 :
begin
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Mudah’,’|’);
writeln(‘===========================’);
write(‘Soal Tebak : Siapakah grup band yang ga pernah memihak?’); readln(tebak1);
if tebak1=’netral’ then
writeln(‘Tebakan kamu Bener’)
else
writeln(‘Tebakan kamu Salah, jawabannya adalah Netral’);
end;

2 :
begin
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Sedang’,’ |’);
writeln(‘===========================’);
write(‘Soal Tebak : Bidadari-bidadari, kalo tanpa dada jadi apa? ‘); readln(tebak2);
if tebak2=’biri biri’ then
writeln(‘Tebakan kamu Bener. Berarti pikiran kamu ga ngeres’)
else
writeln(‘Tebakan kamu Salah, jawabannya biri biri. Kamu tadi mikir yang nggak-nggak yah??’);
end;

3 :
begin
writeln(‘============================’);
writeln(‘| ‘,’Kategori Sulit’, ‘ |’);
writeln(‘============================’);
write(‘Soal Tebak : Siapakah mantan dari penulis artikel ini? ‘); readln(tebak3);
if tebak3=’MaafKurangBeruntung’ then
writeln(‘Tebakan kamu Bener. Kok kamu tahu sih?’)
else
writeln(‘Tebakan kamu Salah, coba deh tanya pacar kamu. Siapa tau dia mantan si penulis wkwkwk’);
end;
end;
end.

• Contoh 13: Program untuk Menentukan Usia

program menghitung_usia
uses wincrt;

var
nama : string;
umur,TL:integer;

begin
writeln(‘nama kamu siapa?’);readln(nama);
writeln(‘tahun lahir kamu?’);readln(TL);

umur:=2018-TL;
writeln(umur);
readkey;
end.

• Contoh 14: Penentuan Harga Buah berdasarkan Kualitas

uses crt;

Var
Berat,harga,hargaperkg:integer;
Kualitas:char;

Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg yang dibeli? ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.

• Contoh 15: Program untuk Menghitung Luas Segitiga

uses crt;

var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);

var
luas:real;

begin
clrscr;
luas:=a*t/2;
writeln(‘Luas segitiga =’,luas);
end;

begin
writeln(‘Masukkan ukuran alas =’);readln(alas);
writeln(‘Masukkan ukuran tinggi =’);readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.

• Contoh 16: Membuat file .txt menggunakan Pascal

uses crt;

var
Tulisan:text;
a,b:byte;
c:byte;

begin
clrscr;
writeln(‘Masukkan angka pertama =’);readln(a);
writeln(‘Masukkan angka kedua =’);readln(b);
c:=a+b;
writeln(‘Jika dijumlahkan, nilainya adalah =’,c);
assign(Tulisan,’hitung.txt’);
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,’+’);
write(Tulisan,b);
write(Tulisan,’=’);
write(Tulisan,c);
Close(Tulisan);
readln;
end.

• Contoh 17: Program untuk Menentukan Biaya Dan Grade

uses crt;

var
nilai:byte;

begin
clrscr;
Write(‘masukkan nilai =’);Readln(nilai);
if nilai>0 then
begin
Writeln(‘GRADE = O ‘);
Writeln(‘Besar biaya = Rp.550000’);
end
else
if nilai<=1 then begin Writeln(‘GRADE = E ‘);
Writeln(‘Besar biaya = Rp.450000’);
end else if nilai<=40 then begin Writeln(‘GRADE = D’);
Writeln(‘Besar biaya = Rp.350000’); end else if nilai<=60 then begin Writeln(‘GRADE = C’);
Writeln(‘Besar biaya = Rp.250000’); end Else if nilai<=70 then begin Writeln(‘GRADE = B’); Writeln(‘Besar biaya = Rp.150000’); end else begin If nilai >=100 then Writeln(‘GRADE = A’);
Writeln(‘Besar biaya = Rp.50000’);
end;
readln;
end.

• Contoh 18: Program untuk Mencari Predikat

uses crt;

Var
nilai:byte;
A,B,C,D:string;

begin
clrscr;
write (‘masukkan nilai=’);readln(nilai);
if nilai< 69 then
writeln(‘predikat D’);
if nilai<79then
writeln (‘predikat C’);
if nilai<90 then
writeln (‘predikat B’);
if nilai<101 then
writeln(‘predikat A’);
readln;
end.

• Contoh 19: Program konversi bilangan desimal ke bilangan biner

uses crt;

var Des:integer;
Bin:string;

begin
clrscr;
writeln(‘PROGRAM KONVERSI BILANGAN DESIMAL KE BILANGAN BINER’);
write(‘Masukkan bilangan Desimal=’);
readln(Des);
Bin:=’’;
repeat
begin
{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:=’0’+Bin
else Bin:=’1’+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln(‘Bilangan Biner =’,Bin);
readln;
end.

1. Menghitung Luas Segitiga

Algoritma Menghitung Luas Segitiga

Analisis :

• Input : a (alas) dan t (tinggi)
• Luas Segitiga = a*t/2

Algoritma :

• Masukan nilai alas (a) dan nilai tinggi segitiga (t)
• Maka untuk menghitung luas digunakan rumus alas dengan tinggi yang sudah ditentukan
• Rumus untuk menghitung Luas Segitiga yaitu L = 1/2*a*t
• Nilai L (Luas) akan dicetak sebagai output ke perangkat output (keluaran)

Flowchart Menghitung Luas Segitiga

2. Menghitung  Keliling Lingkaran

Algoritma Keliling Lingkaran 

Analisis :

• Input : r (jari-jari lingkaran) dan phi
• Keliling Lingkaran  K=2*phi*r

Algoritma :

• Menetapkan nilai phi = 3.14
• Menghitung jari-jari lingkaran
• Rumus untuk menghitung Keliling Lingkaran  yaitu K=2*phi*r
• Nilai K (Keliling Lingkaran ) akan dicetak sebagai output ke perangkat output (keluaran)

Flowchart Keliling Lingkaran 

---

3. Menghitung Luas Persegi Panjang

Algoritma Luas Persegi Panjang 

Analisis :

• Input : p (panjang) dan l (lebar)
• Luas Persegi Panjang  L = p*l

Algoritma :

• Inputkan panjang
• Inputkan lebar
• Rumus untuk menghitung L  yaitu L= p*l
• Nilai  L (Luas ) akan dicetak sebagai output ke perangkat output (keluaran)

Flowchart Luas Persegi Panjang 

---

4. Mengirim Surat

Algoritma Mengirim Surat

• Ketik atau tulis surat
• Siapkan sampul surat atau amplop
• Masukkan surat ke dalam amplop yang tersedia
• Lem amplop surat dengan baik
• Tuliskan alamat pengiriman surat, jika tidak ingat, lebih dahulu ambil buku alamat & cari alamat yg dituju, lalu tulis alamat  amplop surat.
• Beli dan tempelkan perangko pada amplop
• Pergi ke kantor pos dan bawa surat  utk diserahkan pd pegawai pos

Flowchart Mengirim Surat

5. Menghitung Keliling Persegi yang diketahui luas

Algoritma Menghitung Keliling Persegi  yang diketahui luas

Analisis :

• Input : L (Luas)
• Input : S ( sisi )
• Hitung Sisi : S = L : 2
• Hitung Keliling Persegi : K= 4*S

Algoritma :

• Inputkan Luas Persegi
• Hitung Sisi Menggunakan rumus diatas
• Hitung keliling persegi menggunakan rumus diatas
• Nilai  K(Keliling Persegi  ) akan dicetak sebagai output ke perangkat output (keluaran)

Flowchart Menghitung Keliling Persegi yang diketahui luas

6. Menentukan Bilangan Ganjil atau Genap

Algortima Menentukan Bilangan Ganjil atau Genap 

• Inputkan sebuah bilangan (bilangan bulat)
• Bagi bilangan yang sudah diinputkan dengan angka 2
• Jika menghasilkan sisa pembagian ( 0 ) maka bilangan tersebut genap
• Jika menghasilkan sisa pembagian bukan (0) bimaka bilangan tersebut ganjil

Flowchart Menentukan Bilangan Ganjil atau Genap 

7. Menentukan Kelulusan Mahasiswa

Algoritma Menentukan Kelulusan Mahasiswa

• Nama mahasiswa dan nilai (sudah terbaca)
• Kalau mahasiswa mendapat nilai  >70 maka ket “ lulus”
• Kalau mahasiswa mendapat nilai <70 maka ket “tidak lulus”
• Data nama, nilai dan keterangan akan ditampilkan

Flowchart Menentukan Kelulusan Mahasiswa

8. Konversi Suhu

Algoritma Konversi Suhu

• Inputkan besaran suhu dalam celcius (satuan celcius)
• Untuk melakukan konversi suhu dari celcius ke Reamur digunakan rumus  :  R = 4/5 * C
• Untuk  melakukan konversi suhu dari celcius ke Farenheit digunakan rumus berikut : F = 9/5 * C + 3
• Suhu dalam besaran Reamur dan Farenheit akan ditampilkan

Flowchart Konversi Suhu

9. Penerimaan Mahasiswa Baru

Algoritma Penerimaan Mahasiswa Baru 

• Calon Mahasiswa datang ke Bagian Pendaftaran.
• Membeli  dan mengisi formulir
• Membayar uang kuliah semester awal ( sesuaikan dengan kampus)
• Mengumpulkan dan menyerahkan persyaratan
• Jika persyaratan sudah lengkap? Jika tidak maka akan kembali lagi ke proses mengumpulkan persyaratan.
• Menerima kartu mahasiswa, jadwal orientasi, dan Kuliah.
• Mengikuti orientasi
• Kuliah

---

Flowchart Penerimaan Mahasiswa Baru 

---

10. Membuat Kopi Instan

Algoritma Membuat Kopi Instan 

• Buka Kemasan Kopi sachet yang sudah dibeli
• Setelah itu tuangkan Kopi Kedalam gelas
• Panaskan air hingga Mendidih
• Tuangkan airpanas Ke dalam Gelas
• Lalu aduk hingga merata
• Kopi Instan siap dinikmati 

Flowchart Membuat Kopi Instan 

11. Membuat Nasi Goreng

Algoritma Membuat Nasi Goreng 

• Nyalakan kompor gas
• Letakan wajan diatas kompor
• Tuangkan sedikit minyak goreng
• Masukan bumbu ke atas wajan
• Tuangkan nasi secukupnya
• Beri sedikit garam
• Coba rasakan pas atau tidak bumbunya
• Jika kurang garam tambahkan sedikit lagi
• Nasi goreng siap dinikmati

Flowchart Membuat Nasi Goreng 

12. Pemesanan Makanan

Algoritma Pemesanan Makanan

• Pertama pelanggan singgah ke rumah makan
• Pelanggan menentukan pilihan makanan melalui menu yang tersedia
• Jika makanan sesuai selera konsumen maka mereka akan jadi memesan, jika tidak maka tidak akan ada pemesanan
• Jika pelanggan jadi memesan maka menu akan terpilih
• Pelayanan akan melihat stok makanan, jika tersedia maka akan dirposes jika tidak pelayan akan menyarankan konsumen untuk memilih menu yang lain.
• Setelah  diproses kosumen akan menerima makanan yang sudah dipesan
•  Selanjutnya akan terjadi transaksi pembayaran di kasir
• Kasir akan memberikan  kwitansi atau bukti pembayaran
• Jika semua tahap telah dilalui (makanan sudah dibayar) maka konsumen akan pergi meninggalkan rumah makan

Flowhcart Pemesanan Makanan 

13. Penjumlahan 2 Angka

Algoritma Penjumlahan 2 Angka 

• Masukan angka pertama (a) dan kedua (b)
• Jumlahkan dengan rumus a+b
• maka akan ditampilkan hasil dari a+b

Flowchart Penjumlahan 2 Angka

14. Menghitung Nilai Akhir

Algoritma Menghitung Nilai Akhir 

• Inputkan Nim dan Nama
• Inputkan Kehadiran, nilai tugas, kuis, UTS, dan UAS
• Rumus Nilai Akhir : kehadiran*0.05+tugas*0.25+kuis*0.15+UTS*0.25+UAS*0.30
• Tampilkan Nilai Akhir

Flowchart Menghitung Nilai Akhir 

15. Menghitung Umur Seseorang

Algoritma Menghitung Umur Seseorang 

• Inputkan tahun sekarang  (TS)
• Inputkan tahun lahir (TL)
• Hitung menggunakan rumus : TS – TL
• Tampilkan jumlah umur

Flowchart Menghitung Umur Seseorang 

16. Menghitung Jam ke Detik

Algoritma Menghitung Jam ke Detik 

• Input Jam
• Hitung menggunakan Rumus : Jam * 3600
• Tampilkan detik

Flowchart Menghitung Jam ke Detik 

17. Menghitung Jam ke Menit

Algoritma Menghitung Jam ke menit 

• Inputkan Jam
• Hitung menggunakan Rumus : Jam * 60
• Tampilkan Menit

Flowchart Menghitung Jam ke menit 

18. Menghitung KM ke Meter

Algoritma Menghtiung KM ke Meter

• Inputkan KM
• Hitung menggunakan rumus : KM*1000
• Cetak Meter

Flowchart Menghtiung KM ke Meter

19. Menghitung KG ke Gram

Algoritma Menghtiung KG Ke Gram 

• Inputkan KG
• Hitung menggunakan rumus : KG * 1000
• Maka akan tampil Gram

Flowchart Menghtiung KG Ke Gram 

20. Melakukan Panggilan Telepon

Algoritma Panggilan Telepon

• Ambil Hape
• Pilih Menu Kontak
• Pilih Nomor atau kontak
• Tekan tombol telepon

Flowchart Panggilan Telepon

---

21. Mengirim Sms

Algoritma Mengirim SMS

• Buka Menu SMS
• Pilih kontak / nomor telepon
• Ketikan pesan
• Tekan tombol kirim
• SMS akan terkirim

Flowchart Mengirim SMS