Aplikasi Sistem Pengganjian dengan Pascal

Source Code :

Program Penggajian_Case;
{adalah program untuk menghitung gaji: CASE}

uses crt;

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 :'); readln(jml_anak);
                   tj_anak:=jml_anak*(0.05*g_pokok);
                end;

             2: begin {belum kawin}
                   tj_istri:=0;
                   tj_anak:=0;
                end;

             3: begin {cerai}
                   tj_istri:=0;
                   write('Jumlah Anak :'); readln(jml_anak);
                   tj_anak:=jml_anak*(0.05*g_pokok);
                end;                                              
             else begin
                  writeln('Status tidak ada !;');
             end;
        end;
        tj:=tj_istri+tj_anak;
        t_gaji:=g_pokok+tj;
        write('Jumlah Gaji :',t_gaji:8:2);
        readln;
end.