Jumat, 17 Juli 2009

Kumpulan Program Pascal

Program Pointer2 ;
Uses
WinCrt ;
Type
Petunjuk_Pegawai = ^Data_Pegawai ;
Data_Pegawai = Record
Nip : String[9] ;
Nama : String[25] ;
Gaji : Real ;
End ;
Var
Data_Pegawaix : Array[1..20] of Petunjuk_Pegawai;
i, j, n : Byte ;
t1, t2 : String ;
t3 : Real ;
Begin
Write('Bayaknya data...? ') ; ReadLn(n);
For i := 1 to n do
Begin
Writeln;
Writeln('Data Pegawai ke ',i:2);
New(Data_Pegawaix[i]) ;
With Data_Pegawaix[i]^ do
Begin
Write('N I P..........: '); ReadLn(Nip) ;
Write('Nama Pegawai...: '); ReadLn(Nama) ;
Write('Gaji Pokok Rp '); ReadLn(Gaji) ;
End ;

97
End ;
ClrScr;
WriteLn(' DATA PEGAWAI PT. DAPUR NGEBUL
') ;
WriteLn('----------------------------------------------------') ;
WriteLn(' No. | N I P | NAMA PEGAWAI | GAJI POKOK ') ;
WriteLn('----------------------------------------------------') ;
For i := 1 to n do
With Data_Pegawaix[i]^ do
Writeln(i:3,' | ',Nip:9,' | ',Nama:25,' | Rp ',Gaji:8:2) ;
For i := 1 to n do
Begin
For j := i to n do
Begin
If Data_Pegawaix[i]^.Nip > Data_Pegawaix[j]^.Nip then
Begin
t1 := Data_Pegawaix[i]^.Nip ;
Data_Pegawaix[i]^.Nip := Data_Pegawaix[j]^.Nip ;
Data_Pegawaix[j]^.Nip := t1 ;
t2 := Data_Pegawaix[i]^.Nama ;
Data_Pegawaix[i]^.Nama := Data_Pegawaix[j]^.Nama ;
Data_Pegawaix[j]^.Nama := t2 ;
t3 := Data_Pegawaix[i]^.Gaji ;
Data_Pegawaix[i]^.Gaji := Data_Pegawaix[j]^.Gaji ;
Data_Pegawaix[j]^.Gaji := t3 ;
End ;
End ;
End ;
WriteLn('----------------------------------------------------') ;
WriteLn(' Soritng Berdasarkan NIP ') ;
WriteLn('----------------------------------------------------') ;
For i := 1 to n do
With Data_Pegawaix[i]^ do
Writeln(i:3,' | ',Nip:9,' | ',Nama:25,' | Rp ',Gaji:8:2) ;
WriteLn('----------------------------------------------------') ;
End. { Akhir program }

Hasilnya:

Buat Yang Berminat Silahkan Di Download E-Booknya DiSini

3 komentar:

  1. good job bro!! tutorial bagus untuk record pascal dengan pointer, kalo boleh sedikit kritik:
    1. tidak ada penanganan kalo user ngisi string kosong di input data NIP, sedangkan NIP adalah index (ekslusif), untuk database itu akan error.
    2. penulisan program kalo bisa setelah begin agak menjorok ke kanan 3 spasi agar blok begin-end jelas, akan mudah untuk penelusuran bug-error.

    oh ya, welcome popup saya rasa mengganggu user yg mau masuk tuh.

    thanks bro. keep moving!! and be a true programmer!!

    BalasHapus
  2. Trima kasih sob...atas masukannya. biasanya saya kalau menulis program memang seperti yang mas bilang, tapi karena ini di postingan jadinya yach kaya gitu.

    BalasHapus
  3. The article is very interesting, thanks for the information, I wait for the next article, do not forget to visit the blog Science facebook

    BalasHapus

Anda dapat menggunakan beberapa tag HTML,Maupun Emoticon dalam penulisan komentar.Anda tidak diperkenankan menggunakan alat tulis seperti pensil / alat tulis bertinta, gunakan keyboard saja.