LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2)

1. Program untuk mengetahui harga dan besar angsurannya jika dikredit selama 10 tahun.
    Adapun daftarnya sebagai berikut.

    Nah langsung saja ketikan scrib dibawah ini di pascal

   Program Kredit_Angsuran_Rumah;
   uses crt;
   var
     tipe, jenis: char;
   begin
     clrscr;
     writeln('   PROGRAM KREDIT ANGSURAN RUMAH   ');
     writeln('-----------------------------------');
     write('Tipe Rumah [A,B,C,D]= ');readln (tipe);
     write('Jenis Pembayaran [T/K]= ');readln(jenis);
     writeln('-----------------------------------');
       case upcase(tipe) of
        'A' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 50.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 500.000');
              End;
          End;
        'B' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 65.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 650.000');
              End;
          End;
        'C' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 75.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 750.000');
              End;
          End;
        'D' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 85.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 850.000');
              End;
          End;
      End;
    readln;
    end.

    Kalau sudah di ketik maka tampilannya akan seperti dibawah ini

           Dan setelah di run maka tampilannya akan seperti bibawah ini

2.  Trus selanjutnya, bagaimana jika kita ingin mengubah program di atas menggunakan            perintah IF,    langsung saja ketikkan scrib di bawah ini

      Program Tugas_3;

      uses crt;

      var

      jenis:char;

      tipe: char;

      begin

      clrscr;

      writeln('   PROGRAM KREDIT ANGSURAN RUMAH   ');

   writeln('-----------------------------------');

   writeln;

   write('Tipe Rumah [A,B,C,D] = ');readln(tipe);

   write('Jenis Pembayaran [T/K] = ');readln(jenis);

   writeln('-----------------------------------');

   writeln;

   if tipe= 'A' then

     begin

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 500.000.000 ');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 500.000 ');

        end;

     end

     else if tipe= 'B' then

     begin

         if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 650.000.000 ');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 650.000 ');

        end;

     end

     else if tipe= 'C' then

     begin

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 750.000.000');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 750.000');

        end;

     end

     else if tipe= 'D' then

     begin;

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 850.000.000');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 850.000');

        end;

     end;

     writeln;

     writeln('-----------------------------------');

       readln;

     end.

          Kalau sudah di ketik maka tampilannya akan seperti dibawah ini

             Dan setelah di run maka tampilannya akan seperti bibawah ini

              Sama saja kan dengan yang no. 1 tapi yang if agak lebih ribet dan panjang scribnya