Simple Pascal Programming: Program ATM Sederhana

Program sederhana kali ini adalah program ATM Sederhana dimana sebelum melakukan penarikan uang, nasabah akan dimintai keterangan jenis ATM (Gold atau Silver), kemudian ketika nasabah melakukan penarikan dengan nominal tertentu, biaya yang dibebankan berbeda antara nominal satu dengan lainnya. Ada batasannya.
- Bila ATMnya jenis Gold, maka biaya penarikan di bawah 1 juta, maka biayanya hanya 5000, jika lebih maka dikenakan biaya tambahan sebesar 10% dari total penarikan.
- Bila ATMnya jenis Silver, maka biaya penarikan dibawah 1 juta, maka biayanya hanya 2000, jika lebih maka dikenakan biaya tambahan sebesar 10% dari total penarikan.
Program ini menggunakan nested if (If Bertingkat). Bagi sobat yang sedang belajar nested if, semoga program ini dapat membantu. Program ini juga memakai go to, jadi semoga bermanfaat. Source Code nya sebagai berikut;

Simple Pascal Programming: Program Pembelian Rinso

 

Program Pascal Sederhana kali ini bertujuan untuk menghitung total belanja rinso di suatu supermarket. Kasir akan memasukkan harga satuan rinso dan jumlah pembelian kemudian program akan menghitung total belanjaan. Jika total belanja lebih dari batas diskon maka pembeli mendapat diskon 5%, bila tidak lebih dari batas diskon, pembeli tidak mendapat diskon. Program ini menggunakan Struktur Seleksi Kondisi, IF. Bagi sobat yang sedang belajar IF dalam bahasa pascal, semoga postingan ini membantu. Berikut adalah kode programnya.

Simple Pascal Programming: Menghitung Lama Angsuran

Berikut ini saya bagikan sourcecode Program Pascal: Menghitung lama angsuran menggunakan Looping-For. Program ditulis atas dasar tugas dari mata kuliah Teknik Informatika : Konsep Bahasa Pemrograman.

Program pascal dibuat dan dijalankan menggunakan aplikasi : Free Pascal

Silakan berikut sourcecode nya.