LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2)

LATIHAN -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

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2) 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2). Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: