PROGRAM DAFTAR GAJI PEGAWAI - TUGAS ALGORITMA

program Daftar_Gaji_pegawai;

{I.S. : user memasukkan NIP, nama pegawai, golongan, status dan jumlah anak}

{f.S. : menampilkan daftar gaji pegawai}

uses crt;

//kamus global

const

     max = 50;

type

    baris1 = array [1..max] of string;

    baris2 = array [1..max] of integer;

    baris3 = array [1..max] of real;

    baris4 = array [1..max] of char;

var

   NIP, Nama : baris1;

   Gol, jml_anak : baris2;

   status : baris4;

   PPN, Gaji_bersih : baris3;

function g_pokok(golongan : integer): integer;

{I.S. : golongan sudah terdefinisi}

{F.S. : menghasilkan fungsi gaji pokok}

begin

     case (golongan) of

     1 : g_pokok := 1250000;

     2 : g_pokok := 1350000;

     3 : g_pokok := 1500000;

     4 : g_pokok := 1750000;

     end; //endcase

end; //endfunction

function tunjangan(golongan,g_pokok : integer): real;

{I.S. : golongan sudah terdefinisi}

{F.S. : menghasilkan fungsi tunjangan}

begin

     case (golongan) of

     1 : tunjangan := 0.1 * g_pokok;

     2 : tunjangan := 0.125 * g_pokok;

     3 : tunjangan := 0.15 * g_pokok;

     4 : tunjangan := 0.2 * g_pokok;

     end; //endcase

end; //endfunction

function tunjangananak(status : char; anak:integer): real;

{I.S. : golongan sudah terdefinisi}

{F.S. : menghasilkan fungsi tunjangan anak}

begin

     tunjangananak:=0;

     if(status = 'M')

     then

     begin

          if (anak > 3)

          then

              tunjangananak := 3 * 150000

          else

          tunjangananak := anak * 150000;

     end

end; //endfunction

procedure isidata(var NIP, Nama : baris1);

{I.S. : user memasukkan NIP, nama pegawai, golongan, status dan jumlah anak}

{f.S. : menampilkan daftar gaji pegawai}

var

   i : integer;

   gajitotal : real;

begin

     textcolor(yellow);gotoxy(30,1) ; write ('DAFTAR GAJI PEGAWAI');

     gotoxy(1,2) ;

     textcolor(green);write ('================================================================================');

     gotoxy(1,3) ;

     textcolor(yellow);write ('|   NIP   | Nama Pegawai | Gol | Status | Anak |      PPN      |   Gaji bersih |');

     gotoxy(1,4) ;

     textcolor(green);write ('================================================================================');

     //memasukkan NIP

     i := 1;

     textcolor(yellow);

     gotoxy(1,i+4) ;

     write ('|         |              |     |        |      | Rp.           | Rp.           |');

     gotoxy(3,i+4) ; readln (NIP [i]);

     while ( NIP [i] <> 'STOP') and ( i <= max ) do

     begin

        gotoxy(13,i+4) ; readln (Nama [i]);

        gotoxy(29,i+4) ; readln (Gol [i]);

        gotoxy(36,i+4) ; readln (status [i]);

        if (status [i] = 'M') or (status [i] ='m') //menikah

        then

        begin

        gotoxy(44,i+4) ; readln (jml_anak [i]);

        end

        else

        if (status [i] = 'S') or (status [i] = 's') //single

        then

        begin

        gotoxy(44,i+4) ; write ('-');

        end;

        //menghitung gaji total

        gajitotal := g_pokok(Gol [i]) + tunjangan(Gol[i], g_pokok(Gol[i])) + tunjangananak(status[i], jml_anak[i]);

        //menghitung PPN

        PPN[i] := 0.1 * gajitotal;

        //menampilkan PPN

        gotoxy(54,i+4) ; write (PPN [i] :0:1);

        //menghitung gaji bersih

        Gaji_bersih[i] := gajitotal - PPN[i];

        //menampilkan gaji bersih

        gotoxy(70,i+4) ; write (Gaji_bersih [i] :0:1);

        //memasukkan NIP berikutnya

        i := i+1;

        gotoxy(1,i+4) ;

        write ('|         |              |     |        |      | Rp.           | Rp.           |');

        gotoxy(3,i+4) ; readln (NIP [i]);

     end; //endwhile

     //garis penutup tabel

     gotoxy(1,i+4) ;

     textcolor(green);write ('================================================================================');

end; //endprocedure

//program utama

begin

   isidata(NIP, Nama);

   readln;

end.

Read More

AGE OF EMPIRES 1

    Kali ini saya memberikan game strategi yang cukup menarik game dimana kita di suruh membuat kerajaan dan Peperangan antar kerajaan musuh ...

ya tidak usah panjang lebar silahka di download aja di bawah ini

SEKIAN TERIMA KASIH

Selamat Mencoba !!!

Age Of Empires 1 (57 mb)
Password RAR


Semoga Bermanfaat

Read More

CONTOH MENU PILIHAN PASCAL

PASCAL ALGORITMA

program Menu_Pilihan;

{I.S. : user memilih salah satu menu}

{F.S. : menampilkan hasil sesuai menu yang dipilih}

uses crt;

var

   Menu, N, i, pertama, terakhir, fibo : integer;

   nama1, nama2, nama3                 : string;

   X, S                                : real;

begin

   repeat

      textbackground(blue); clrscr;

      textcolor(yellow);

      gotoxy(34,8);  write('Menu Pilihan');

      gotoxy(34,9);  write('============');

      gotoxy(23,10); write('1. Menghitung S=1-2/3+3/6-4/10+..');

      gotoxy(23,11); write('2. Menyusun tiga nama secara ASC');

      gotoxy(23,12); write('3. Membuat barisan Fibonacci');

      gotoxy(23,13); write('0. Keluar');

      gotoxy(23,15); write('Pilihan Anda ?  ');

      readln(Menu);

      {Validasi menu pilihan}

      while (Menu < 0) or (Menu > 3) do

      begin

        gotoxy(23,16); textcolor(white);

        write('Salah memilih menu, Ulangi..Tekan Enter!');

        readln;

        gotoxy(23,16); clreol; textcolor(15);

        gotoxy(37,15); clreol;  readln(Menu);  textcolor(15);

      end; //endwhile

      case (Menu) of

           1 : begin

                 clrscr;

                 {Validasi Menghitung S}

                 writeln('Menghitung S=1-2/3+3/6-4/10+..');

                 writeln('==============================');

                 write('Banyaknnya suku (N) : ');

                 readln (N);

                 S := 0;

                 X := 0; {penyebut}

                 write('S = ');

                 for i := 1 to N do

                 begin

                   X := X + i;

                   if (i mod 2 =1)

                   then

                   begin

                       S := S + i/X;

                       if(i = 1)

                       then

                         write(i)

                       else

                         write(' + ',i,'/',X:0:0);

                   end

                   else

                   begin

                       S := S - i/X;

                       write(' - ',i,'/',X:0:0);

                   end;

                 end; //endfor

                 writeln;

                 writeln('  = ',S:0:1);

                 writeln('Tekan enter untuk kembali ke menu utama');

                 readln;

               end;

            2 : begin

                 clrscr;

                 {Validasi menyusun tiga nama secara Ascending}

                 writeln('Menyusun tiga nama secara Ascending');

                 writeln('===================================');

                 write('Masukkan nama 1 : '); readln(nama1);

                 write('Masukkan nama 2 : '); readln(nama2);

                 write('Masukkan nama 3 : '); readln(nama3);

                 writeln;

                 begin

                   if (nama1 <= nama2) and (nama2 <= nama3)

                   then

                      writeln(nama1,' ',nama2,' ',nama3)

                   else

                   if (nama1 <= nama3) and (nama3 <= nama2)

                   then

                       writeln(nama1,' ',nama3,' ',nama2)

                   else

                   if (nama2 <= nama1) and (nama1 <= nama3)

                   then

                       writeln(nama2,' ',nama1,' ',nama3)

                   else

                   if (nama1 >= nama2) and (nama2 <= nama3)

                   then

                       writeln(nama2,' ',nama3,' ',nama1)

                   else

                   if (nama1 >= nama3) and (nama1 <= nama2)

                   then

                       writeln(nama3,' ',nama1,' ',nama2)

                   else

                   if (nama1 >= nama3) and (nama3 <= nama2)

                   then

                       writeln(nama3,' ',nama2,' ',nama1)

                 end;

                 writeln;

                 writeln('Tekan enter untuk kembali ke menu utama');

                 readln;

               end;

             3 : begin

                 clrscr;

                 {validasi memasukkan nilai N untuk membuat barisan Fibonacci}

                 writeln('Membuat barisan Fibonacci');

                 writeln('=========================');

                 write('Masukkan nilai Fibonacci ke-N : ');

                 readln(N);

                 pertama := 0;

                 terakhir:= 1;

                 fibo    := 1;

                 i       := 1;

                 while (i <= N) do

                 begin

                   write(fibo,' ');

                   i:=i + 1;

                   fibo:=pertama + terakhir;

                   pertama:=terakhir;

                   terakhir:=fibo;

                 end; //endwhile

                 writeln;

                 writeln('Tekan enter untuk kembali ke menu utama');

                 readln;

               end;

               end;

   until(Menu=0);

end.

Read More