PERBEDAAN BAYAR FOTOCOPY DENGAN KERTAS YANG BERBEDA-BEDA
Nama : Muhammad Ripani
NIM : J1F113021
Pada kesempatan kali ini saya akan membahas suatu persoalan (kasus) yang mana nantinya dari kasus tersebut akan saya selesaikan dengan menggunakan Turbo Pascal 7.0 dan menggunakan fungsi CASE_OF.
Kasus yang dialami yaitu:
"Ahmad ingin mem-fotocopy suatu buku dengan jumlah kertas 80 dan kertas yang dia inginkan yaitu dengan ukuran A4. Namun, ditempat fotocopy tersebut mempunyai berbagai macam kertas dengan harga yang berbeda-beda setiap lembarnya, yaitu:
1) Kertas Folio seharga 120/lbr
2) Kertas A4 seharga 150/lbr
3) Kertas A4S seharga 200/lbr
4) Kertas F4 seharga 220/lbr
5) Kertas berwarna seharga 300/lbr
Jadi, berapakah jumlah harga yang harus dibayar Ahmad dan buatkanlah rumus-rumus yang akan diolah dalam program aplikasi pascal?"
======================================================================
Pertama-tama terlebih dahulu kita buka Program Aplikasi Pascal tersebut dan buat file baru.
Langkah kedua yaitu kita buat bagian judulnya, yaitu:
PROGRAM Perbedaan_Bayar_Fotocopy;
*) pada bagian judul PROGRAM tidak boleh ada spasi
Langkah kedua yaitu menentukan bagian deklarasinya, yaitu:
USES CRT;
USES CRT;
VAR Kode_kertas, Jumlah_kertas, Harga: INTEGER;
*) dibagian tipe datanya saya menggunakan INTEGER karena tipe integer adalah tipe data yang nilainya bulat.
Langkah selanjutnya yaitu menentukan bagian isi, yaitu:
BEGIN
clrscr;
writeln('Perbedaan Harga Fotocopy dengan Kertas yang Bermacam-macam');
writeln('Kertas Folio = Kode 1');
writeln('Kertas A4 = Kode 2');
writeln('Kertas A4S = Kode 3');
writeln('Kertas F4 = Kode 4');
writeln('Kertas berwarna = Kode 5');
writeln(' =========================');
write('Masukan kode kertas = ');
readln(Kode_kertas);
write('Masukan jumlah kertas = ');
readln(Jumlah_kertas);
CASE Kode_kertas OF
1:Harga:=Jumlah_kertas*120;
2:Harga:=Jumlah_kertas*150;
3:Harga:=Jumlah_kertas*200;
4:Harga:=Jumlah_kertas*220;
5:Harga:=Jumlah_kertas*300;
end;
writeln ('Harga yang harus dibayar= ',Harga);
readkey;
END.
screenshotnya :
Langkah terakhir adalah memasukan nilai-nilai yang ada dalam kasus dan disini juga merupakan pembuktian apakah Program yang kita buat itu benar atau salah.
screenshotnya :
Jadi, jumlah yang harus dibayar Ahmad yaitu Rp. 12.000,-
-----------------------------------------------------------------------------------------------------------
Kasus kedua :
"Ayu ingin mem-focopy sebuah buku, novel, dan majalah. Dimana jumlah halaman buku yaitu 100, novel 50, dan majalah 20 halaman. Kertas diinginkan yaitu A4 untuk buku, A4S untuk novel, dan kertas berwarna untuk majalah. Berapakah jumlah harga keseluruhan yang harus dibayar Ayu?"
========================================================================
Untuk kasus yang kedua yaitu caranya hampir sama dengan kasus pertama. Namun, untuk hasil programnya disini saya menambahkan beberapa tambahan untuk membuat hasilnya lebih mudah dimengerti dan menarik.
screenshot isi scriptnya adalah:
screenshot hasil programnya yaitu:
Jadi, total harga yang harus dibayar Ayu yaitu sebesar Rp. 31000
*) untuk beberapa kasus diatas saya (penulis) masih belum bisa menjelaskan bagaimana cara-cara agar program tersebut bisa dimasukkan dengan berbagai macam jenis fotocopy yang berbeda-beda (yang lebih dari 3) tanpa harus membuat satu persatu rumusnya.
========================================================================
Untuk kasus yang kedua yaitu caranya hampir sama dengan kasus pertama. Namun, untuk hasil programnya disini saya menambahkan beberapa tambahan untuk membuat hasilnya lebih mudah dimengerti dan menarik.
screenshot isi scriptnya adalah:
screenshot hasil programnya yaitu:
Jadi, total harga yang harus dibayar Ayu yaitu sebesar Rp. 31000
*) untuk beberapa kasus diatas saya (penulis) masih belum bisa menjelaskan bagaimana cara-cara agar program tersebut bisa dimasukkan dengan berbagai macam jenis fotocopy yang berbeda-beda (yang lebih dari 3) tanpa harus membuat satu persatu rumusnya.
Terima Kasih :)
Salam ALPRO!
(Kita belajar kita belajar kita tuangkan)
(Kita belajar kita belajar kita tuangkan)
0 komentar:
Posting Komentar