Algoritma & Pemrograman 1 ( Latihan - Latihan Penyeleksian Pada Pascal ) "Part 1"

1. Program untuk menghitung sewa sebuah Angkutan yang harga untuk 1 Km pertama Rp.4500 dan  selanjutnya 2000/Km 

    Kemudian untuk membuat programnya ketikkan scrip di bawah ini di pascal

   program Sewa_Angkutan;

     uses crt;

     const

     pertama = 4500;

     lanjut  = 2000;

     var

     jarak,bayar : longint;

     begin

     clrscr;

     writeln('      PROGRAM SEWA ANGKUTAN      ');

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

     writeln;

     write('Jarak Tempuh (Km) = ');readln(jarak);

     if jarak > 1 then

        begin

             bayar:=pertama + (jarak * lanjut);

        end

     else

         bayar := pertama;

     writeln('Bayar = Rp. ',bayar);

     readln;

     end.

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

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

2. Program untuk menentukan bilangan terbesar dari tiga buah bilangan bulat yang dimasukkan melalui piranti masukan. (Asumsi: ketiga bilangan adalah bilangan yang berbeda)

Langsung saja ketikan scrib di bawah in di pascalnya.

   program Mengetahui_Bilangan_Terbesar;
   uses crt;
   var
      bil1,bil2,bil3:longint;
   begin
      clrscr;
      writeln('   MENGETAHUI BILANGAN TERBESAR   ');
      writeln('----------------------------------');
      writeln;
      write('Masukkan Bilangan Pertama : ');readln(bil1);

      write('Masukkan Bilangan Kedua   : ');readln(bil2);

      write('Masukkan Bilangan Ketiga  : ');readln(bil3);

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

      writeln;

      if (bil1 > bil2) and (bil1 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil1);

      end

      else if (bil2 > bil1) and (bil2 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil2);

      end

      else if(bil3 > bil1) and (bil3 > bil2) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil3);

      end;

      writeln;

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

   readln;

   end.

     jika sudah di ketik maka Hasilnya seperti di bawah ini :

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

Read More

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

Read More

Algoritma & Pemrograman 1 (Latihan-Latihan Penyeleksian Kondisi Pada PascaL)''Part 3''

         Sebelumnya saya sudah posting mengenai Algoritma & Pemrograman 1 (Latihan-Latihan Penyeleksian Kondisi Pada PascaL)''Part 2''. Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

1. Program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan denga ketentuan sebagai berikut:

           

Kode Jabatan	Jabatan	Gaji Pokok	Tunj. Transport	Tunj. Makan
DR	Direktur	Rp 3000000	Rp 850000	Rp 500000
WD	Wakil Direktur	Rp 2500000	Rp 800000	Rp 500000
MN	Manajer	Rp 2000000	Rp 800000	Rp 450000
AS	Asisten	Rp 1500000	Rp 700000	Rp 400000
KW	Karyawan	Rp 1000000	Rp 500000	Rp 300000

    Berikut scriptnya ketikkan di turbo pascalnya.

   program PT_XYZ;

   uses crt;

   var

     kj:String;

     GP,TT,TM:longint;

     Total:longint;

     nama:string[30];

     Jabatan:string [20];

   begin

     clrscr;

     writeln('           PROGRAM GAJI PEGAWAI           ');

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

     writeln;

     write('Masukkan Nama Karyawan: ');readln(nama);

     write('Masukkan Kode Jabatan [DR,WD,MN,AS,KW]: ');readln(kj);

     if kj= 'DR' then

       begin

       Jabatan:= 'Direktur';

       GP:= 3000000;

       TT:= 850000;

       TM:= 500000;

       end

     else if kj='WD' then

       begin

       Jabatan:= 'Wakil Direktur';

       GP:= 2500000;

       TT:= 800000;

       TM:= 500000;

       end

     else if kj='MN' then

       begin

       Jabatan:= 'Manajer';

       GP:= 2000000;

       TT:= 800000;

       TM:= 450000;

       end

     else if kj='AS' then

       begin

       Jabatan:= 'Asisten';

       GP:= 1500000;

       TT:= 700000;

       TM:= 400000;

       end

     else if kj='KW' then

       begin

       Jabatan:= 'Karyawan';

       GP:= 1000000;

       TT:= 500000;

       TM:= 300000;

       end;

       Total:=GP + TT + TM;

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

       writeln;

       writeln('Jabatan             = ', Jabatan);

       writeln('Gaji Pokok          = Rp. ', GP);

       writeln('Tunjangan Transaksi = Rp. ',TT);

       writeln('Tunjangan Makan     = Rp. ', TM);

       writeln('Total Gaji          = Rp. ',Total);

       writeln;

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

       readln;

   end.

   jika sudah di ketik maka Hasilnya seperti di bawah ini :

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

2. Kali ini adalah kita akan membuat program dengan cerita sebagai berikut.

    "PDAM Kota Makassar menetapkan tariff pemakaian air bersih per m3-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkanjumlah pemakaian. Untuk pemakaian 50 m3  pertama dikenakan biaya Rp 1500. 51-75 m3  dikenakan biaya Rp. 1750. 76-100 m3  dikenakan biaya Rp 2000 dan lewat dari 100 m3   dikenakan biaya Rp. 2250. Buatlah program untuk menghitung jumlah yang harus di bayar pelanggan jika volume air diinput dari keyboard ?"

Bingung bagaimana programnya...? Baiklah untuk membuat program seperti cerita di atas, ketikkan scrib di bawah ini di pascalnya yaa..

       program PDAM_Kota_Makassar;

   uses crt;

   label mulai;

   var

     pmkn:longint;

     jumlah:longint;

     hrg1,hrg2,hrg3,hrg4:longint;

     mau:char;

   begin

     clrscr;

     writeln('    PROGRAM PDAM KOTA MAKASSAR    ');

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

     writeln;

     mulai:

     write('Masukkan Jumlah Pemakaian  = ');readln(pmkn);

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

     if pmkn<= 50 then

          hrg1:=1500 * pmkn

     else if  pmkn<=75 then

     begin

          hrg1:=1500*50;

          hrg2:=1750* (pmkn-50);

     end

     else if pmkn<=100 then

     begin

          hrg1:=1500*50;

          hrg2:=1750*25;

          hrg3:=2000*(pmkn-75);

     end

     else if pmkn>100 then

     begin

         hrg1:=1500*50;

         hrg2:=1750*25;

         hrg3:=2000*25;

         hrg4:=2250*(pmkn-100);

     end;

     jumlah:=hrg1+hrg2+hrg3+hrg4;

     writeln('Tarif');

     writeln('    Golongan I   = Rp. ',hrg1:7);

     writeln('    Golongan II  = Rp. ',hrg2:7);

     writeln('    Golongan III = Rp. ',hrg3:7);

     writeln('    Golongan IV  = Rp. ',hrg4:7);

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

     writeln('    Total Bayar  = Rp. ',jumlah:7);

     write('Masih Mau Menghitung [y/t]: ');

     readln(mau);

     if(mau='y') or (mau='Y') then goto mulai

   

   end.

 

   jika sudah di ketik maka Hasilnya seperti di bawah ini :

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

Read More

Algoritma & Pemrograman 1 ( TUGAS LENGKAP )

Assalamualaikum Wr.Wb ,,,,,,,
Kali ini saya akan menjelaskan tentang Apa itu Algoritma dan Pemrograman .....
          Algoritma adalah langkah-langkah yang disusun secara tertulis dan berurutan untuk menyelesaikan suatu masalah.  Sedangkan Algoritma Pemrograman adalah langkah-langkah yang ditulis secara berurutan untuk menyelesaikan masalah pemrograman komputer. 

Langsung aja tanpa basa-basih , :) ,,,,heeheh
nih contoh sript

uses crt;
var
   awal,akhir,rpbunga   : real;
   bunga, lama, i       : integer;
   mau                  : char;
begin
     repeat
       clrscr;
       writeln('*******************************');
       writeln('**    Nama  : ALFIAN    **');
       writeln('**    Kelas : TI.12          **');
       writeln('**    NIM   : 20142205090    **');
       writeln('*******************************');
       writeln;
       writeln;
       write('Pinjaman Awal = Rp. ');readln(awal);
       write('Bunga [%] = ');readln(bunga);
       write('Lamanya Pinjaman [Periode] = ');readln(lama);
       writeln('------------------------------------------------');
       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');
       writeln('                    Awal      Akhir');
       writeln('------------------------------------------------');
       for i:=1  to lama do
       begin
            akhir:=awal + ((bunga/100) * awal);
            rpbunga:=0.1 * awal;
            writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);
            awal:=akhir;
       end;
       writeln('Mau Menghitung Lagi ? [Y/N] : ');readln(mau);
       until mau='0';
readln;
end.


Untuk lebih jelasnya DOwnload Script & contohnya .

Read More