PASCAL MEMBUAT CONTOH PROGRAM TEKNIK PERCABANGAN (BAGIAN 2)

TEKNIK PERCABANGAN (BAGIAN 2)

SOAL:

1. Buatlah program kalkulator yang menerima masukan dua buah bilangan, kemudian menerima masukan pilihan menu berupa penjumlahan, pengurangan, dan perkalian. Selanjutnya kedua buah bilangan yang telah dimasukkan tersebut akan diproses sesuai dengan menu yang telah dipilih!

2. Buatlah program penentuan bonus bagi pembeli berdasarkan total pembelian yang dimasukkan, dimana kriterianya adalah jika total pembelian lebih dari 100.000 maka pembeli mendapatkan diskon sebesar 10%, jika total pembelian kurang dari 100.000 dan lebih dari 50.000 maka pembeli mendapatkan sebuah piring cantik, jika total pembelian kurang dari 50.000 dan lebih dari 10.000 maka pembeli mendapatkan sebuah gelas cantik, selanjutnya jika total pembelian kurang dari 10.000 maka pembeli tidak akan mendapatkan bonus!

3. Dapatkah soal nomor 2 dipecahkan menggunakan case (tanpa if)? Berikan penjelasan anda!

JAWABAN:

1. program kalkulator_case;
uses crt;

var

   bil1, bil2 : real;
   operator : char;
   hasil : real;
   kesalahan : string ;

begin
     clrscr;
     write('Masukan bilangan 1: '); readln(bil1);
     write('Masukan bilangan 2: '); readln(bil2);
     write('Pilih operator(a. penjumlahan/b. pengurangan/c. perkalian) : ');
     readln(operator);

     case operator of
          'a' : begin
                   hasil := bil1 + bil2 ;
                   writeln('hasil : ', hasil:0:0);
               end;

          'b' : begin
                   hasil := bil1 - bil2 ;
                   writeln('Hasil : ', hasil:0:0);
                end;

          'c' : begin
                   hasil := bil1 * bil2 ;
                   writeln('Hasil : ', hasil:0:0);
                end;

          else
              begin
                   WRITELN('');
                   writeln('----ERROR INPUT-----');
              end
          end;
     readln;

end.

2. program BonusBelanja;
uses crt;

var 
   tBelanja : real ;

begin
     clrscr;
     write('Masukan total belanja : '); readln(tBelanja);
     writeln('');
     
     if tBelanja > 100000 then
      
begin
  writeln('Dapat diskon 10%');
end
     else if (tBelanja > 50000) and (tBelanja < 100000) then
begin
  writeln('Dapat sebuah piring cantik');
end
     else if (tBelanja < 50000) and (tBelanja > 10000) then
begin
  writeln(;Dapat gelas cantik');
end
     else
begin 
  writeln('Tidak dapat bonus');
end;
     readln;
end.

3.   program bonusBelanja;
uses crt;

var
   bonus1, bonus2, bonus3 : real;
   kode : char;
   bonus : string ;


begin
     clrscr;
     writeln('=======Program Bonus Belanja=========');
     writeln('Masukan Total belanja anda menggunakan Ketentuan Kode :');
     writeln('A : Lebih dari 100000');
     writeln('B : 50.000 sampai 10.0000');
     writeln('C : 10.000 sampai 10.000');
     writeln('D : Kurang dari 10.000');
     writeln('Gunakan Huruf Kapital');
     writeln('');
     write('Masukan Kode : '); readln(kode);

     case kode of
          'A' : begin
                     bonus := 'Selamat! Anda Mendapatkan Diskon 10%';
                     end;
          'B' : begin
                     bonus := 'Selamat! Anda Mendapatkan Piring Cantik';
                     end;
          'C' : begin
                     bonus := 'Selamat! Anda Mendapatkan Gelas Cantik';
                     end;
          'D' : begin
                     bonus := 'Maaf anda tidak mendapatkan bonus ';
                     end;
     else
         begin
              writeln('');
              writeln('ERROR! Kode yang Anda Masukan Salah'); writeln('');
              writeln('ERROR 1 : Anda menginput diluar ketentuan kode');
              writeln('ERROR 2 : Anda menggunakan huruf non kapital');
              writeln('ERROR 3 : Anda menggunakan angka / simbol');
              writeln('ERROR 4 : Anda menginput lebih dari satu kode');
         end
     end;
     writeln('');writeln(bonus);
     readln;

end.

THANK YOU SOB, JANGAN  LUPA REKOMENDASI, KOMENTAR DAN IKUTI FB FANSPAGE..

Tweet