Membuat program Gaji Pegawai Dengan Pascal

halo programmer. . .

kali ini saya mau sharing cara membuat program gaji pegawai sederhana dengan free pascal. mungkin ada yang butuh untuk pembelajaran atau untuk apapun, source code nya sangat sederhana, antara lain menggunaka for do dan array.

baiklah kita mulai. . .

• source code
  
  uses: crt;
  var
  nama :array[1..30] of string[20];
  gaji :array[1..30] of longint;
  i, j :byte;
  total :real;
  begin
  clrscr;
  write('Banyaknya Pegawai :'); readln(j);
  for i:=1 to j do
  begin
  write('inputkan nama ke',i,':'); readln(nama[i]);
  write('inputkan gaji ke',i,':'); readln(gaji[i]);
  end;
  clrscr;
  gotoxy(10,3); write('----------------------------------------------------');
  gotoxy(10,4); write('No.                   Nama                 Gaji');
  gotoxy(10,6); write('----------------------------------------------------');
  for i:=1 to j do
  begin
  gotoxy(10,6+i); write(i);
  gotoxy(14,6+i); write(nama[i]);
  gotoxy(34,6+i); write(gaji[i]);
  end;
  gotoxy(10,j+7); write('----------------------------------------------------');
  total:=gaji[i]+gaji[i];
  gotoxy(20,j+8); writeln(total:1:0);
  readln;
  end.
  

Gimana ? mudah bukan ! coba itu di run pasti hasilnya cukup sederhana, tapi bisa anda kembangkan sendiri, dan jika ada yg salah posisi nya silahkan di edit sendiri.

semoga bermanfaat, terima kasih....

Share

Like

G+

Tweet

Tweet