PEMBUATAN PROGRAM MEMBAGI BONUS PADA PASCAL

Hay  semua  teman-teman calon progammer yang profesional. . .  wkwkwkwkwkwwk

Kali ini saya akan membagikan hasil pemikiran logikaku, namun terus terang program ini belum sempurna, oleh sebab itu bagi yang sudah sempurna programnya,,, mohon di share yah,,,, kalo punya ilmu kan baiknya kita saling berbagi. . . .  hahahahaha,

Ini adalah percobaan saya dalam membuat listing untuk mengeluarkan output perhitungan bonus. Mudah-mudahhan bermanfaat buat semua. . . . .

Oke deh langsung ke TKP :

-          Buka Program Turbo Pascal kalian kemudian buka halaman baru untuk membuat programnya dan masukkan listing yang saya gunakan berikut

PROGRAM bonus;

uses wincrt;

var

l,u,b: integer;

begin

gotoxy(10,2);writeln('PROGRAM PEMBAGIAN BONUS');

writeln('******************************************************');

writeln;

writeln('1. PEGAWAI STAF');

writeln('------------------');

write('Lama Bekerja      : ');Readln(l);

write('Umur              : ');readln(u);

write('Bonus             : Rp.');

if l >=5 then

writeln('1.000.000')

else

if u >= 50 then

writeln('1.000.000')

else

writeln('500.000');

writeln;

begin

writeln('2. PEGAWAI STAF');

writeln('------------------');

write('Lama Bekerja      : ');Readln(l);

write('Umur              : ');readln(u);

write('Bonus             : Rp.');

if l >=5 then

writeln('750.000')

else

if u >= 50 then

writeln('750.000')

else

writeln('250.000')

end;

end.

Dan nanti Hasil outputnya adalah :

 

Penjelasan...

1.    

-          Program adalah judul yg kita gunakan untuk program kita,

-          Uses wincrt adalah  syarat penulisan suatu program pascal yang dimana usernya menggunakan sistem operasi windows.

-          Var adalah tipe data yang kita gunakan(identifier).

Contohnya : var

                   L,u,b  :integer;

Contoh dalam program ini yaitu : l,u,b : integer

-          Write adalah perintah pada  output nanti dengan memasukkan data atau nilai secara manual

Contoh pada programku ‘write(‘Lama Bekerja  :’);readln(l)

-          Readln digunakan untuk membaca tipe data apa yang kita pakai pada var contohnya

Readln(l) seperti yang da pada pada var

-          Writeln adalah perintah untuk langsung menampilkan output yg sesuai dengan apa yang kita buat di listing kode pascalnya.

Contoh : writeln(‘AKU ORANG GANTENG’) maka nanti langsung muncul tlisan itu tanpa bisa diedit ulang.

Oke dehh.... mungkin cukup ini dulu yang dapat saya berikan... untuk minta penjelasan yang lebih detail langsung hubngi sya ajah... saya siap membantu kok kalo lagi gak sibuk... males kalo mau nulis semuanya di blog... capekkk ngetikkk....

Bye bye. . . . . . . .