Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Latihan Pemrograman Terstruktur

Silahkan menyelesaikan program untuk menampilkan output seperti berikut ini :

Informasi Pegawai
--------------------------------------------------------------------------
 No  NIP   Nama          Gol  Gaji   Jumlah Anak  Tunj Anak   Total Gaji
--------------------------------------------------------------------------
 1
 2
 3
 4
 5
 6
--------------------------------------------------------------------------

Ketentuan Proses
1. Mencari Gaji
---------------------
Golongan  Gaji Pokok
---------------------
 IIIA     1000000
 IIIB     2000000
 IIIC     3000000
 IVA      4000000
---------------------

2. Mencari Tunjangan Anak
---------------------
Jumlah Anak Tunj Anak
---------------------
  1     15% * Gaji
  2     25% * Gaji
---------------------

Adsense IndonesiaWeb Hosting Murah Indonesia | Web Hosting Murah dan  Handal

 

Artikel Terbaru


Filed under: C/C++, Pemrograman Pascal, Perkuliahan, , ,

25 Responses

  1. […] Pascal 7 itu dibuat masih jamannya 486 lah (:D heheh itu yang saya kenal dulu).  Oleh sebab itu untuk komputer komputer saat ini sering harus di Patch […]

  2. ga da pelajaran tambahan ne pak tntng pemograman terstruktur ??????

    • Mesran says:

      jika kamu terus dan giat melatihan program program yang ada di blog saya ini, baik C++ ataupun PASCAL, saya rasa udah cukup.
      Tinggal yang kamu kuasai apakah bisa dalam kamu mengerjakan program tanpa melihat source program sebelumnya.

  3. sempana says:

    nama :sempana ketaren
    npm: 100378
    kelas ;MI 1009 {MALAM}

  4. marsyah says:

    nama : marsyah fahrudiansyah
    kelas : MI 1009
    NPM : 1002333
    : malam

  5. saiful amran says:

    pak saya saiful amran
    kelas MI 1009
    NPM.1002395
    kelas malam

  6. pak ralat program
    mulai dr openproduk,tu slh..tp openpegawai.trz yg ada pro dganti dgn pegawai..
    Hehehe slh ketik..

  7. dimana letak kesalahannya pak????

  8. yg pertama slh pak….masa ada gambar ketawa…

  9. USES CRT;
    TYPE PEGAWAI =RECORD
    NIP :STRING[8];
    NAMA :STRING[20];
    GOL :STRING[4];
    JUMLAHANAK :BYTE;
    END;
    VAR
    KETEMU :BOOLEAN;
    XNIP :STRING[8];
    FPEGAWAI :FILE OF PEGAWAI;
    RPEGAWAI : PEGAWAI;
    PIL,I :BYTE;
    GAJI,TOTALGAJI,TUNJANAK:LONGINT;
    LG :CHAR;

    PROCEDURE OPENPEGAWAI;
    BEGIN
    ASSIGN(FPEGAWAI,’C:”PEGAWAI.DAT’);
    {$I-}RESET(FPEGAWAI);
    {$I+}IF IORESULT0 THEN REWRITE(FPEGAWAI);
    END;
    BEGIN
    OPENPEGAWAI;
    REPEAT
    CLRSCR;
    GOTOXY(10,5);WRITE(‘NIP :’);READLN(RPEGAWAI.NIP);
    XNIP:=RPEGAWAI.NIP;
    I:=1;
    SEEK(FPEGAWAI,0);KETEMU:=FALSE;
    WHILE NOT EOF(FPEGAWAI)DO
    BEGIN
    SEEK(FPEGAWAI,I-1);READ(FPEGAWAI,RPEGAWAI);
    IF(RPEGAWAI.NIP=XNIP)THEN
    BEGIN
    KETEMU:=TRUE;
    GOTOXY(10,6);WRITE(‘NAMA :’,RPEGAWAI.NAMA);
    GOTOXY(10,7);WRITE(‘GOL :’,RPEGAWAI.GOL);
    GOTOXY(10,8);WRITE(‘JUMLAHANAK :’,RPEGAWAI.JUMLAHANAK);
    GOTOXY(10,9);WRITE(‘————————————-‘);
    GOTOXY(10,10);WRITE(‘DATA SUDAH ADA!’);READLN;
    END;
    INC(I);
    END;
    IF NOT KETEMU THEN
    BEGIN
    RPEGAWAI.NIP:=XNIP;
    GOTOXY(10,6);WRITE(‘NAMA :’);READLN(RPEGAWAI.NAMA);
    GOTOXY(10,7);WRITE(‘GOL :’);READLN(RPEGAWAI.GOL);
    GOTOXY(10,8);WRITE(‘JUMLAHANAK :’);READLN(RPEGAWAI.JUMLAHANAK);
    SEEK(FPEGAWAI,FILESIZE(FPEGAWAI));
    WRITE(FPEGAWAI,RPEGAWAI);

    END;
    GOTOXY(10,10);WRITE(‘INPUT DATA LAGI[Y/T]:’);READLN(LG);
    UNTIL UPCASE(LG)=’T’;
    CLOSE(FPEGAWAI);
    END;
    PROCEDURE OUTPUT;
    BEGIN
    OPENPRODUK;
    I:=1;
    CLRSCR;
    GOTOXY(2,2);WRITE(‘INFORMASI PRODUK’);
    GOTOXY(2,3);WRITE(‘—————–‘);
    GOTOXY(2.4);WRITE(‘NO NIP NAMA GOL GAJI JUMLAHANAK TOTALGAJI’);
    GOTOXY(2,5);WRITE(‘———————————————–‘);
    SEEK(FPRO,0);
    WHILE NOT EOF(FPRO) DO
    BEGIN
    SEEK(FPRO,I-1);READ(FPRO.RPRO);
    IF RPRO.NIP=’1002139’THEN
    BEGIN
    GOL :=’IIIA’ GAJI:=1000000;
    END
    ELSE IF RPRO.NIP=’1002140′)THEN
    BEGIN
    GOL :=’IIIB’ GAJI:=2000000;
    END
    ELSE IF RPRO.NIP=’1002141’THEN
    BEGIN
    GOL :=’IIIC’ GAJI:=3000000;
    END
    ELSE IF RPRO.NIP=’1002142’THEN
    BEGIN
    GOL :=’IVA’ GAJI:=4000000;
    END;

    I JUMLAHANAK=’1′ THEN TUNJANAK:=0.15 * GAJI
    ELSE IF JUMLAHANAK=’2′ THEN TUNJANAK:=0.25 *GAJI;
    TOTALGAJI:=GAJI +TUNJANAK;

    GOTOXY(4,5+I);WRITE(I);
    GOTOXY(6,5+I);WRITE(PRO.NIP);
    GOTOXY(12,5+I);WRITE(NAMA);
    GOTOXY(27,5+I);WRITE(GOL:3);
    GOTOXY(35,5+I);WRITE(GAJI:9);
    GOTOXY(43,5+I);WRITE(RPRO.JUMLAH:3);
    GOTOXY(51,5+I);WRITE(TUNJANAK:9);
    GOTOXY(59,5+I);WRITE(TOTALGAJI:9);
    INC(I);
    END;
    GOTOXY(2,5+I);WRITE(‘———————-‘);
    GOTOXY(2,6+I);WRITE(‘PRESS ANY KEY TO CONTINUE…’);
    CLOSE(FPRO);
    REPEAT UNTIL KEYPRESSED;
    END;
    PROCEDURE MENU;
    BEGIN
    CLRSCR;
    GOTOXY(5,3);WRITE(‘——————————-‘);
    GOTOXY(5,4):WRITE(‘MENU UTAMA’);
    GOTOXY(5,5);WRITE(‘——————————–‘);
    GOTOXY(5,6);WRITE(‘1.INPUT PEGAWAI’);
    GOTOXY(5,7);WRITE(‘2.OUTPUT PEGAWAI’);
    GOTOXY(5,8);WRITE(‘3.KELUAR’);
    GOTOXY(5,9);WRITE(‘——————————–‘);
    GOTOXY(5,10);WRITE(‘PILIHAN:’);READLN(PIL);
    END;
    BEGIN
    PIL :=0;
    WHILE PIL3 DO
    BEGIN
    MENU;
    CASE PIL OF
    1:INPUT;
    2:OUTPUT;
    END;
    END;

    END.

  10. USES CRT;
    TYPE PEGAWAI =RECORD
    NIP :STRING[8];
    NAMA :STRING[20];
    GOL :STRING[4];
    JUMLAHANAK :BYTE;
    END;
    VAR
    KETEMU :BOOLEAN;
    XNIP :STRING[8];
    FPEGAWAI :FILE OF PEGAWAI;
    RPEGAWAI :PEGAWAI;
    PIL,I :BYTE;
    GAJI,TOTALGAJI,TUNJANAK:LONGINT;
    LG :CHAR;

    PROCEDURE OPENPEGAWAI;
    BEGIN
    ASSIGN(FPEGAWAI,’C:”PEGAWAI.DAT’);
    {$I-}RESET(FPEGAWAI);
    {$I+}IF IORESULT0 THEN REWRITE(FPEGAWAI);
    END;
    BEGIN
    OPENPEGAWAI;
    REPEAT
    CLRSCR;
    GOTOXY(10,5);WRITE(‘NIP :’);READLN(RPEGAWAI.NIP);
    XNIP:=RPEGAWAI.NIP;
    I:=1;
    SEEK(FPEGAWAI,0);KETEMU:=FALSE;
    WHILE NOT EOF(FPEGAWAI)DO
    BEGIN
    SEEK(FPEGAWAI,I-1);READ(FPEGAWAI,RPEGAWAI);
    IF(RPEGAWAI.NIP=XNIP)THEN
    BEGIN
    KETEMU:=TRUE;
    GOTOXY(10,6);WRITE(‘NAMA :’,RPEGAWAI.NAMA);
    GOTOXY(10,7);WRITE(‘GOL :’,RPEGAWAI.GOL);
    GOTOXY(10,8);WRITE(‘JUMLAHANAK :’,RPEGAWAI.JUMLAHANAK);
    GOTOXY(10,9);WRITE(‘————————————-‘);
    GOTOXY(10,10);WRITE(‘DATA SUDAH ADA!’);READLN;
    END;
    INC(I);
    END;
    IF NOT KETEMU THEN
    BEGIN
    RPEGAWAI.NIP:=XNIP;
    GOTOXY(10,6);WRITE(‘NAMA :’);READLN(RPEGAWAI.NAMA);
    GOTOXY(10,7);WRITE(‘GOL :’);READLN(RPEGAWAI.GOL);
    GOTOXY(10,8);WRITE(‘JUMLAHANAK :’);READLN(RPEGAWAI.JUMLAHANAK);
    SEEK(FPEGAWAI,FILESIZE(FPEGAWAI));
    WRITE(FPEGAWAI,RPEGAWAI);

    END;
    GOTOXY(10,10);WRITE(‘INPUT DATA LAGI[Y/T]:’);READLN(LG);
    UNTIL UPCASE(LG)=’T’;
    CLOSE(FPEGAWAI);
    END;
    PROCEDURE OUTPUT;
    BEGIN
    OPENPRODUK;
    I:=1;
    CLRSCR;
    GOTOXY(2,2);WRITE(‘INFORMASI PRODUK’);
    GOTOXY(2,3);WRITE(‘—————–‘);
    GOTOXY(2.4);WRITE(‘NO NIP NAMA GOL GAJI JUMLAHANAK TOTALGAJI’);
    GOTOXY(2,5);WRITE(‘———————————————–‘);
    SEEK(FPRO,0);
    WHILE NOT EOF(FPRO) DO
    BEGIN
    SEEK(FPRO,I-1);READ(FPRO.RPRO);
    IF RPRO.NIP=’1002139’THEN
    BEGIN
    GOL :=’IIIA’ GAJI:=1000000;
    END
    ELSE IF RPRO.NIP=’1002140′)THEN
    BEGIN
    GOL :=’IIIB’ GAJI:=2000000;
    END
    ELSE IF RPRO.NIP=’1002141’THEN
    BEGIN
    GOL :=’IIIC’ GAJI:=3000000;
    END
    ELSE IF RPRO.NIP=’1002142’THEN
    BEGIN
    GOL :=’IVA’ GAJI:=4000000;
    END;

    I JUMLAHANAK=’1′ THEN TUNJANAK:=0.15 * GAJI
    ELSE IF JUMLAHANAK=’2′ THEN TUNJANAK:=0.25 *GAJI;
    TOTALGAJI:=GAJI +TUNJANAK;

    GOTOXY(4,5+I);WRITE(I);
    GOTOXY(6,5+I);WRITE(PRO.NIP);
    GOTOXY(12,5+I);WRITE(NAMA);
    GOTOXY(27,5+I);WRITE(GOL:3);
    GOTOXY(35,5+I);WRITE(GAJI:9);
    GOTOXY(43,5+I);WRITE(RPRO.JUMLAH:3);
    GOTOXY(51,5+I);WRITE(TUNJANAK:9);
    GOTOXY(59,5+I);WRITE(TOTALGAJI:9);
    INC(I);
    END;
    GOTOXY(2,5+I);WRITE(‘———————-‘);
    GOTOXY(2,6+I);WRITE(‘PRESS ANY KEY TO CONTINUE…’);
    CLOSE(FPRO);
    REPEAT UNTIL KEYPRESSED;
    END;
    PROCEDURE MENU;
    BEGIN
    CLRSCR;
    GOTOXY(5,3);WRITE(‘——————————-‘);
    GOTOXY(5,4):WRITE(‘MENU UTAMA’);
    GOTOXY(5,5);WRITE(‘——————————–‘);
    GOTOXY(5,6);WRITE(‘1.INPUT PEGAWAI’);
    GOTOXY(5,7);WRITE(‘2.OUTPUT PEGAWAI’);
    GOTOXY(5,8);WRITE(‘3.KELUAR’);
    GOTOXY(5,9);WRITE(‘——————————–‘);
    GOTOXY(5,10);WRITE(‘PILIHAN:’);READLN(PIL);
    END;
    BEGIN
    PIL :=0;
    WHILE PIL3 DO
    BEGIN
    MENU;
    CASE PIL OF
    1:INPUT;
    2:OUTPUT;
    END;
    END;

    END.

    • Mesran says:

      IF JUMLAHANAK=’1′ THEN TUNJANAK:=0.15 * GAJI
      ELSE IF JUMLAHANAK=’2′ THEN TUNJANAK:=0.25 *GAJI;

      di bagian =’1′ itu salah karna jumlah anak kan byte, jadi =1 aja tanpa petik
      kalau di lihat kondisi mencari gaji berdasarkan golongan, bukan berdasarkan NIP.

  11. nti y pak…
    Td pas dipikir2 dpt logic nya,tp ntah betul ntah tdk,blm th..
    Ntr dcmpuz dtes lg..
    Soalny ne lg kerja pak..
    Klo nti jg g bs br dpastekan progrmnya..ok pak..
    Hehehe

  12. pak kq sy jd menemukan kesulitan y dlatihan ini,..
    Integer not inditifier.
    .smntara sdh dcek g da yg slh tp kq bs gt y pak?
    Ist…ist..isstt..

  13. trs pak kalo tunj anak?

  14. Pak mencari
    tunjAnak=15% x gaji?
    Ap sprt tu pak?tp knp yg no. 2 nya,25%?
    Bingung la pak?!

  15. pak kalo mencari totalgaji = gaji x jumlah anak y pak?

  16. pak cra mencr tunjanak gmn pak?
    Troz mksud dr
    mencari tunjanak
    jumlahanak tunjanak
    1. 15% x gaji
    2. 25% x gaji
    tu mencari ap pak?

  17. Mesran says:

    kan belum ada penjelasan nyaheheh…

  18. ooo..ne ya pak soalnya..br ketemu,stlh nur cek dprofil bpk..

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: