Algoritma & Pemrograman 1 ( LAtihan-Latihan penyeleksian Kondisi Pada Pascal ) ''Part 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.

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

  Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya

  

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.

 

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

 

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya

 Trimakasih udah nyimak penjelasannya yaaaa bro / sis :) Join  ...