Skip to main content

Latihan Dan Soal Untuk Program Penyeleksian Kondisi Pascal (Bagian 2)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 1) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

 1. Buatlah program untuk mengetahui harga dan besar angsurannya jika dikredit  selama 10 tahun.
    Adapun daftar sebagai berikut:
Tipe
Harga
Angsuran/Bulan
A
Rp  50.000.000
Rp  500.000
B
Rp  65.000.000
Rp  650.000
C
Rp  75.000.000
Rp  750.000
D
Rp  85.000.000
Rp  850.000









Jawab :
   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.

Gambar di Pascal

   Hasil Program :




2. Ubahlah program di atas menggunakan perintah If...Then..

Jawab :
   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.

 Gambar di Pascal
 Gambar di Pascal

Hasil Program:



Lanjut ke Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 3)


Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemrograman Dasar Komputer Dengan Pascal

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut : Penjelasan : Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.  Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang.  Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.  X:= 7 div 2, hasilnya 3 X:= 7 mod 2, hasilnya 1 Tipe Data...
Post a Comment
Baca selengkapnya....

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin    ...
Post a Comment
Baca selengkapnya....

Program Menghitung Luas Segitiga dengan Pascal

  Oke sudah lama sekali saya tidak menulis di blog ini , maklum banyak kegiatan di luar salah satunya tugas kuliah yang semakin menumpuk akibat sering ditunda-tunda. Dan kali ini saya akan memberikan tutorial tentang cara membuat program untuk menghitung luas segitiga siku-siku dengan menggunakan bahasa pemrograman turbo pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya.  Segitiga Siku siku  langkah-langkahnya sebagai berikut: 1. Buka Turbo pascal atau Tpw , masih bingung antara pascal dengan      TPW?    santai, sebenrnya keduanya merupakan sebuah software yang sama ,    bedanya TPW ialah Turbo pascal yang digunakan untuk komputer yang    memiliki sistem operasi windows. 2. Masukkan kode-kode di bawah ini..    program hitungsegitiga;    uses wincrt;    var a,b,c,d,e:real;    begin  ...
Post a Comment
Baca selengkapnya....