Kode program gaji karyawan pada perusahaan di pascal

Pada artikel kali ini membahas tentang menghitung gahi karyawan pada perusahaan di program pascal, langsung saja dibawah ini adalah kode source nya :)

Hasil compiler dari program pascal untuk menghitung gaji karyawan pada perusahaan setelah dicompiler dibahasa pemrograman pascal

 

PROGRAM PT_NARINTIK;

USES CRT;

VAR

GOL,STS:STRING;

GAPOK,JK,JL,GL,TJ,GAJI: INTEGER;

GATOT,PAJAK: REAL;

BEGIN

CLRSCR;

       TEXTCOLOR(GREEN);

       WRITELN;

       WRITE('=========================PERUSAHAAN PT.NARINTIK=================================');

       WRITELN('               GAJI KARYAWAN PADA PERUSAHAAN PT.NARINTIK');

       WRITELN;

       WRITELN('================================================================================');

       WRITE('1.GOLONGAN       : ');

       READ(GOL);

       IF GOL = 'A' THEN

       BEGIN

       GAPOK:=2500000;

       TJ:=1000000;

       END;

       IF GOL = 'B' THEN

       BEGIN

       GAPOK:=2000000;

       TJ:=750000;

       END;

       IF GOL = 'C' THEN

       BEGIN

       GAPOK:= 1500000;

       TJ:=500000;

       END;

       WRITELN('  GAJI POKOK     : Rp ',GAPOK);

       WRITE('2.JAM KERJA 1BLN : ');

       READ(JK);

       IF JK = 250 THEN

       BEGIN

       JL:=50;

       GL:=1000000;

       END;

       IF JK = 230 THEN

       BEGIN

       JL:=30;

       GL:=750000;

       END;

       IF JK =200 THEN

       BEGIN

       JL:=20;

       GL:=500000;

       END;

       WRITELN('  JAM LEMBUR     : ',JL);

       WRITELN('  GAJI LEMBUR    : Rp ',GL);

       WRITE('3.STATUS         : ');

       WRITELN('MENIKAH');

       WRITELN('  TUNJANGAN      : Rp',TJ);

       WRITELN;

       GAJI:=GAPOK+JL+GL+TJ;

       PAJAK:=GATOT*0.15;

       GATOT:=GAPOK-PAJAK;

       WRITE('  GAJI TOTAL     : ',GATOT:2:2);

       WRITELN;

       WRITELN;

       WRITELN('================================================================================');

       WRITELN('                         BY : RICHARD NAINGGOLAN                                ');

       WRITELN('================================================================================');

READKEY;

END.

Sekian artikel tentang kode program gaji karyawan pada perusahaan dibahasa pemrograman pascal, semoga bermanfaat,jangan lupa koment :)

Kode program baca nilai array dan rata-rata di pascal

Pada artikel kali ini membahas tentang membaca nilai array dan rata-rata array di program pascal, langsung saja dibawah ini adalah kode source nya :)

Hasil compiler dari program pascal untuk membaca nilai array dan rata-rata array setelah dicompiler dibahasa pemrograman pascal

PROGRAM RATA2_ARRAY;

USES CRT;

CONST

   A: ARRAY[1..6] OF INTEGER=(50,70,20,90,30,45);

VAR

   X,Y,TTL : INTEGER;

   RT2:REAL;

BEGIN

     CLRSCR;

     WRITELN('MEMBACA NILAI DARI SEBUAH ARRAY');

     WRITELN('===============================');

     WRITELN;

     X:=1;

     WHILE X <= 6 DO

     BEGIN

          WRITE('A[',X,']=');

          WRITELN(A[X]);

          X:=X+1;

     END;

     TTL:=0;

     Y:=1;

     WHILE Y <= 6 DO

     BEGIN

          TTL:=TTL + A[Y];

          Y:=Y+1;

     END;

     RT2:= TTL/6;

     WRITELN;

     WRITELN('RATA-RATA = ',RT2:2:2);

     READKEY;

END.

Sekian artikel tentang kode program baca nilai array dan rata-rata dibahasa pemrograman pascal, semoga bermanfaat,jangan lupa koment :)

Beberapa Statemen Turbo Pascal

Statemen adalah perintah untuk pengerjaan program pascal.
Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;].
Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.

1. Statemen-statemen yang digunakan untuk input/output.

# Read/Readln [prosedur].

Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke

dalam suatu variabel.

Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])

Keterangan : x = variabel.

Read = pada statemen ini posisi kursor tidak

pindah ke baris selanjutnya.

Readln = pada statemen ini posisi kursor akan

pindah ke baris selanjutnya setelah di

input.

# Write/Writeln [prosedur].

Digunakan untuk menampilkan isi dari suatu nilai variable di

layar.

Sintaks: Write/Writeln(x);

Keterangan : x = variabel.

Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor

2. Statemen-statemen yang digunakan untuk pengaturan letak layar.

# ClrScr [prosedur].


Perintah ini digunakan untuk membersihkan layar.

sintaks: ClrScr; [Clear screen]

Algoritma pseudocode untuk array random bilangan genap dan ganjil

Pada artikel kali ini akan membahas tentang algoritma pseudocode untuk mencari total bilangan genap dan ganjil yang lebih besar dari angka 10 dalam sekelompok data yang tersimpan dalam array(20 data) batas random 50, langsung saja dibawah ini adalah algoritma pseudo code nya.


Algoritma pseudocode untuk array random bilangan genap dan ganjil

A:ARRAY[1..20] OF INTEGER

I,J:INTEGER

RANDOMIZE

FOR I=1 TO 20 DO

A[I]=RANDOM(50)

(A[I]:5)


J=1

WHILE J <= 20 DO

BEGIN

IF A[J] > 10 THEN

TTLGNP=0

TTLGJL=0

IF A[J] MOD 2 = 0 THEN

TTLGNP=TTLGNP+1

ELSE

TTLGJL=TTLGJL+1

J=J+1

ENDWHILE


Setelah kita membuat algoritma pseudocode untuk array random total  bilangan genap dan bilangan ganjil, sekarang kita implementasikan ke bahasa pemrograman, khususnya bahasa pemrograman pascal, Anda bisa menggunakan software pascal Dev-pascal 1.9.2 Atau Turbo pascal 7 Techapple.Net


Hasil compiler menggunakan bahasa pemrograman pascal



Langsung saja, ini dia kode program untuk array random total bilangan genap dan bilangan ganjil, bisa langsung di copy paste ke bahasa pemrograman pascalnya


PROGRAM TEST1;

USES CRT;

VAR

A:ARRAY[1..20] OF INTEGER;

I,J,TTLGNP,TTLGJL:INTEGER;

BEGIN

CLRSCR;

TEXTCOLOR(GREEN);

RANDOMIZE;

WRITELN;

WRITELN('========MENCARI TOTAL BILANGAN GENAP DAN GANJIL ARRAY========');

WRITELN;

WRITELN('                   CREATED BY: RICHARD NAINGGOLAN           ');

WRITELN;

FOR I:=1 TO 20 DO

BEGIN

A[I]:=RANDOM(50);

WRITE(A[I]:3)

END;

WRITELN;

WRITELN;

J:=1;

TTLGNP:=0;

TTLGJL:=0;

WHILE J <= 20 DO

BEGIN

IF A[J] > 10 THEN

BEGIN

IF A[J] MOD 2 = 0 THEN

TTLGNP:=TTLGNP+1

ELSE

TTLGJL:=TTLGJL+1;

END;

J:=J+1;

END;

WRITELN('BANYAK BILANGAN GENAP  = ',TTLGNP);

WRITELN;

WRITELN('BANYAK BILANGAN GANJIL = ',TTLGJL);

READKEY;

END.


Sekian artikel tentang algoritma pseudocode untuk array random total bilangan genap, bilangan ganjil dan kode programnya dibahasa pemrograman pascal, semoga bermanfaat,jangan lupa koment :)