Kode Pascal Menampilkan Bilangan Genap

Berikut ini adalah contoh pengulangan while .. do dalam bahasa pascal.
Program Pengulangan;
{program pengulangan menggunakan (while – do)
tampilkan Bilangan GENAP
kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50
proses akan berhenti ketika nilai akhir i=49
}            
uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}
var
     i : integer;
 
Begin                               
     clrscr;
     i := 0;
     while ( i<50 )
     do
       begin
         i [...]

Read Full Post »

Kode Pascal Menampilkan Bilangan Ganjil

Berikut ini contoh bahasa Pascal untuk kasus pengulangan menggunakan:  repeat .. until
Program pengulangan;
{program pengulangan menggunakan Repeat – Until
menampilkan bilangan ganjil
kerjakan aksi SAMPAI kondisi terpenuhi yaitu i>50
proses akan berhenti ketika nilai akhir i=51
}
uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}
var
     i:integer;
 
Begin                               
     clrscr;
     i:=1;
     repeat
        write(‘ ‘,i);
        i:=i+2;
     until(i>50);
        readln;
end.

Read Full Post »

Kode Pascal Menghitung Gaji (case .. of)

Program Penggajian_Case;
{adalah program untuk menghitung gaji: CASE}
uses wincrt;
var
     no_induk: string[10];
     nama    : string[20];
     kd_status, jml_anak : integer;
     g_pokok, t_gaji, tj, tj_istri, tj_anak: real;
 
Begin
     clrscr;
     writeln(‘Sistim Perhitungan Gaji pakai CASE  :’);
     write(‘Nomor Induk Pegawai  :’); readln(no_induk);
     write(‘Nama                 :’); readln(nama);
     write(‘Gaji Pokok           :’); readln(g_pokok);
     write(‘Status Perkawinan    :’); readln(kd_status);
        case kd_status of
             1: begin  {kawin}
                   tj_istri:=0.1*g_pokok;
                   write(‘Jumlah Anak [...]

Read Full Post »

Kode Pascal Hitung Lembur (Case .. of)

Program Penggajian;
{contoh algoritma pascal untuk menghitung upah dan lembur: mengunakan CASE .. OF}
uses crt;
var
     nama    : string[20];
     gol         : integer;
     jam, jam_lembur, g_tetap, g_lembur, t_gaji : real;
 
Begin                               
     clrscr;
     writeln(‘Sistim Perhitungan Gaji:’);
     writeln;
     write(‘Nama Karyawan      : ‘); readln(nama);
     write(‘Golongan                   : ‘); readln(gol);
     write(‘Jumlah Jam Kerja   : ‘); readln(jam);
     writeln;
     if jam<=145 then
        begin
            jam_lembur:=0;
        end
     else
        [...]

Read Full Post »