Jendela Pengetahuan

Ketiklah Listing dibawah ini dan amati hasilnya    program Sub_Program;    uses crt;    var hasil, nilai1, nilai2 : integer;       hbagi : real;    procedure Tambah;    begin       hasil := nilai1+nilai2;       writeln('Nilai X + Y = ',hasil);    end;    procedure Kurang(p, q : integer);    begin       hasil := nilai1 - nilai2;       writeln('Nilai X - Y = ',hasil);    end;function Kali : integer;    begin       Kali := nilai1 * nilai2;    end;    function Bagi(p,q : integer) : real;    begin       bagi := p/q;    end;    procedure tukar(var p, q : integer);    var r : integer;    begin       r := p;       p := q;       q := r;    end;    var pilih : integer;    begin       clrscr;       pilih := 0;       while (pilih <> 5) do       begin         writeln;         writeln(' Masukkan Pilihan Proses ');         writeln('-------------------------');         writeln(' 1. Penjumlahan');         writeln('

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 3) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : 1. Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut: Pegawai perusahaan digongkan menjadi dua golongan, yaitu staf dan non staf. Staf akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staf yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staf yang telah bekerja lebih dari 5 tahun akan mendapat bonus sebesar Rp. 400.000 jika berumur lebih dari 50 tahun sedangkan pegawai non staf yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000. Pegawai staf umurnya kurang dari 50 tahun akan mendapat bonus Rp. 300.000 Jawab :    

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : 1. Buatlah  program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan dengan 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 Jawab  :    program PT_XYZ;    uses crt;    var      kj:String;      GP,TT,TM:longint;      Total:longint;      nama:string[30];      Jabatan:string [20];    begin      clrscr;      writeln(&#

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : Buatlah Program dengan 3 moodel perulangan(Repeat-Until, While, dan For untuk permasalahan deret ukur 3, 9, 23, ...... jawab : PERULANGAN REPEAT-UNTIL     uses crt;    var      i,p,nilai   : integer;    begin      clrscr;      writeln(' PERULANGAN REPEAT-UNTIL ');      writeln('-------------------------');      writeln;      write('Masukkan Jumlah Deret = ');readln(p);      writeln;      nilai   :=3;      i       :=1;      repeat      begin           write(nilai:5);           i      := i + 1;           nilai  := nilai * 3;      end;      until i> p;    readln;    end. Gambar di Pascal Hasil Program: PERULANGAN WHILE    uses crt;    var      i,deret,nilai   : integer;    begin      clrscr;

Sebelumnya saya sudah posting mengenai  Latihan Dan Soal Perulangan Pascal (Bagian 1)  Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : 1. Buatlah program untuk menghitung jumlah yang harus dibayar oleh nasabah jika meminjam uang disuatu koperasi dimana bunganya dijadikan pokok pada bulan berikutnya Jawab  :    uses crt;    var      awal,akhir,rpbunga   : real;      bunga, lama, i       : integer;      mau                  : char;    begin      repeat        clrscr;        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('---------------------------------

1. Buatlah program untuk mencetak bilangan bulat sbb: 15  13  11  9  7  5  3  1 menggunakan struktur perulangan Repeat-Until, While dan For! Jawab  : Perulangan Repeat-Until    uses crt;    var      i : integer;    begin      clrscr;      writeln(' PERULANGAN REPEAT-UNTIL ');      writeln('-------------------------');      writeln;      i:=15;      repeat      begin           if i mod 2 = 1 then           write(i:3);           i:=i-1;      end;      until i<=1;    readln;    end.     Gambar di Pascal Hasil Program: Perulangan While    uses crt;    var      i : integer;    begin      clrscr;      writeln('     PERULANGAN WHILE     ');      writeln('--------------------------');      writeln;      i:=15;      while i>= 1 do      begin           if i mod 2 = 1 then           write(i:3);           i:=i-1;      end;    readln;    end. Gambar