skip to main | skip to sidebar

Forum Symbian S60V2

Saturday, December 7, 2013

PROGRAM PENJUALAN BARANG KEL 3 PASCAL

Diposkan oleh Unknown di 4:09 AM



Program Pegawai Memakai Procedure
Program DataPegawai;
Uses Wincrt;
Var


nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;   
ulang,kembali:char;


proceduregaris;
begin
writeln('================================================================================');
end;

procedurenamapegawai;
begin
 If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama        : ', (nama[n]));
end
else
begin
write('Nama        : ');readln(nama[n]);
end;

end;

proceduregolongan;
begin
  If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
     Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukantidakada');
readkey;
donewincrt;
end;
end;

procedurelembur;
begin
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n])>=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;    
Writeln('Insentif    : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;

end;


procedurelaporan;
begin
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('|    |     |                |   |          |          |         |           | ');
writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('|    |     |                |   |          |          |         |           | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;

end;



procedureutama;
begin
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);
namapegawai;
Write('Golongan  (1,2,3): ');Readln(gol[n]);
golongan;
writeln('GajiPokok  : Rp. ', Gapok[n]);
write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);
lembur;
Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';

end;



begin
kembali:='Y'  ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
utama;
laporan;
write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.

Program PegawaiMemakaiIf

Program DataPegawai;
Uses Wincrt;
Var

nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;   
ulang,kembali:char;


proceduregaris;
begin
writeln('================================================================================');
end;



begin
kembali:='Y'  ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);

           If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama        : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama        : ', (nama[n]));
end
else
begin
write('Nama        : ');readln(nama[n]);
end;


Write('Golongan  (1,2,3): ');Readln(gol[n]);
       If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
     Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukanTidakada');
readkey;
donewincrt;
end;
writeln('GajiPokok  : Rp. ', Gapok[n]);
write('Ada KerjaTambahan  y/t?  ');readln(kerja[n]);
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n]) >=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;    
Writeln('Insentif    : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('|    |     |                |   |          |          |         |           | ');
writeln('| No | NIP |  NamaPegawai  |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('|    |     |                |   |          |          |         |           | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;

write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.


OUTPUTNYA:

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGQnjdDcy2KGMHdWgwgzMF2ECUS2ZM4r2sItQpR6yVPKiMRUDTbssN9V3456aQvCA9Kf7sUoBcBJf2HlKnMeTIo-99B2n7gxYXJVygPDaEcAfMxCv07QE2O11k-hirwWDSXWC3299O0c0/s320/1.png

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh24tX5vDZhNf09L5q3SvQk9v1KaiLms3HukmD2JtSmtLuq0DGP9VLTMAjmL0bXWaY8nZfmFjS-SqhWDrr0wYzB1LRkel-27zU3pocuzAIxN64N5-ZEXXjH950vyYMiEKecYid_1x2bslE/s320/2.png

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLekOsh5i65GUu5c2Y6HuW3Ogqrh_KWylOidS7ecOnpwPQJqIcHqR2tWGiid1ksXNs0OKxNJNWaQQV-LOtmEj8UlXs4h2-SPnpKhQZnJpsTKR_fYzUZPwkjYkRalKJ0B50WpBwbleqlS8/s320/5.pnghttps://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEup1zOMXAcv8mb8afffuRkfw1pbtzd71nY9e95xNulWhnFXuCayudKqOURtUMsG7CfBcsxLLXqSgUZd36T4xm6FY-xS-oMtzxFzjmhUpRsxjhMnE6DjghBLhoA604NBb3x4UoDOG3VKQ/s320/4.pnghttps://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqsPQv664iv1wHZbeSwK7L6CqU79w914bwYsdwBpq8c5k1kRtBY-pwd4iVIRyuSJjv7-kE61bvPPCMkLqWsu8YGCj1ma7MJmsW6bgoQtKcotKaGK7qNLk8CBNmTUIbkUFsL7kQhkhmW4Y/s320/3.png



 DAN fLOWCHART NYA INI
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEge_c4vB5lydBYHT0C06yJl58UKDtW2i5mSATRzGlBIVHj4xq9gdIhhyphenhyphen_op8g8lfgI4e1CKruWagwfZ9kCh2PCikWfYhILJWNEKg7ad8Ckqri6yecJ9dHmEtDpa7_7qVWrrxJZjNjfidqs/s320/flowchart+procedure.jpg

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEil-rOElMCdDWVHHxud7FWSjY4hy7PvvKt-M_bRbCEN37CN7pspB_sHHEDm7kYYf6iNQaM8oVb6Wi7YatDyza9BKtxv2aow7jogXJA02iLvUskylF37zqW-_aqHb_wGZkZp_Gzla7IeOLQ/s320/flowchart.jpg

Email This BlogThis! Share to X Share to Facebook

0 komentar:

Post a Comment

apabila ada kesalah link ataw post yang kuarng bagus mohon kirim opininya ke email adeutomo22@gmail,com .makasih

Newer Post Older Post Home
Subscribe to: Post Comments (Atom)

Teman

Teman
Mawardiansyah mega

Teman

Teman
Risal Agustian

Teman

Teman
Idham H Nurulloh

Teman

Teman
Pajar Purnama

sri

sri

dosen kita

dosen kita

hisam

hisam

Pages

  • Home

TEMPAT NONGKRONG

Pengunjung

eXTReMe Tracker

DAFTAR POSTING

  • ▼  2013 (12)
    • ▼  December (8)
      • Program Pendaftaran Mahasiswa Baru
      • MANFAAT BELAJAR TURBO PASCAL Dah lama gak ng...
      • Membuat Tabel memakai HTML
      • PROGRAM PENJUALAN BARANG KEL 3 PASCAL
      • PROGRAM PENJUALAN BARANG KEL 2 PASCAL
      • PROGRAM PENJUALAN BARANG KEL 1 PASCAL
      • SADAP SMS VIA SC XL
      • gratis nelfon xl terbaru (SELAMA 3 HARI)
    • ►  November (1)
    • ►  May (1)
    • ►  April (1)
    • ►  March (1)
  • ►  2012 (9)
    • ►  December (1)
    • ►  September (1)
    • ►  August (7)

Followers

 

© 2010 My Web Blog
designed by anonymous22 | Blogger anonymous22 | STMIK TASIKMALAYA