Tekhnik Informatika Management Algoritma turbo pascal

---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox 






          
        
Selasa, 27 September 2011

          
        




mid








program gaji_karyawan;

uses wincrt;

var nama,jbtn,status:string;

anak,gajipodir,gajipowdir,gajipokabid,gajikywn,tnjgnjbtn,tnjgnistri,tnjgnanak,tnjgnkel,gajibersih:real;



begin

write('Nama: ');

readln(nama);

write('Status: ');

readln(status);

write('Jabatan:');

readln(jbtn);

write('Jumlah Anak:');

readln(anak);





if (status='menikah') then



   else if (jbtn='direktur')then



gajipodir:=6000000;

tnjgnistri:=gajipodir*0.02;

tnjgnanak:=gajipodir*0.02;

tnjgnkel:=tnjgnistri+tnjgnanak;

tnjgnjbtn:=1000000;

gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;

writeln('Nama :',nama);

writeln('Status :',status);

writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);

writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);

writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);

writeln('Jabatan : ',jbtn);

writeln('Tunjangan Jabatan : Rp.',tnjgnjbtn:0:0);

writeln('Gaji Pokok : Rp.', gajipodir:0:0);

writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);



    if (jbtn='wakil direktur') then



gajipowdir:=4000000;

tnjgnistri:=gajipowdir*0.02;

tnjgnanak:=gajipowdir*0.02;

tnjgnkel:=tnjgnistri+tnjgnanak;

tnjgnjbtn:=800000;

gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;

writeln('Nama :',nama);

writeln('Status :',status);

writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);

writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);

writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);

writeln('Jabatan : ',jbtn);

writeln('Tunjangan Jabatan : Rp.',tnjgnjbtn:0:0);

writeln('Gaji Pokok : Rp.',gajipowdir:0:0);

writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);



    if (jbtn='ka bidang') then



gajipokabid:=3000000;

tnjgnistri:=gajipokabid*0.02;

tnjgnanak:=gajipokabid*0.02;

tnjgnkel:=tnjgnistri+tnjgnanak;

tnjgnjbtn:=600000;

gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;

writeln('Nama :',nama);

writeln('Status :',status);

writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);

writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);

writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);

writeln('Jabatan : ',jbtn);

writeln('Gaji Pokok : Rp.',gajipokabid:0:0);

writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);



    if (jbtn='karyawan') then



gajikywn:=1800000;

tnjgnistri:=gajikywn*0.02;

tnjgnanak:=gajikywn*0.02;

tnjgnkel:=tnjgnistri+tnjgnanak;

gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;

writeln('Nama :',nama);

writeln('Status :',status);

writeln('Tunjangan Istri: Rp',tnjgnistri:0:0);

writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);

writeln('Tunjangan Keluarga : Rp ',tnjgnkel:0:0);

writeln('Jabatan : ',jbtn);

writeln('Gaji Pokok : Rp.',gajikywn:0:0);

writeln('Maka Gaji Bersih : Rp',gajibersih:0:0);



    if (status='tidak menikah') then



if (jbtn='direktur') then



gajipodir:=6000000;

                      

writeln('Tidak Usah Menghitung Tunjangan');

end.






Diposting oleh
Unknown


di
11.09


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest















gaji case of









Program Penggajian_Case;
{adalah program untuk menghitung gaji: CASE}

uses wincrt;

var
     no_induk: string[10];
     nama    : string[20];
     kd_status, jml_anak : integer;
     g_pokok, t_gaji, tj, tj_istri, tj_anak: real;

Begin
     clrscr;
     writeln(‘Sistim Perhitungan Gaji pakai CASE  :’);
     write(‘Nomor Induk Pegawai  :’); readln(no_induk);
     write(‘Nama                 :’); readln(nama);
     write(‘Gaji Pokok           :’); readln(g_pokok);
     write(‘Status Perkawinan    :’); readln(kd_status);

        case kd_status of
             1: begin  {kawin}
                   tj_istri:=0.1*g_pokok;
                   write(‘Jumlah Anak :’); readln(jml_anak);
                   tj_anak:=jml_anak*(0.05*g_pokok);
                end;

             2: begin {belum kawin}
                   tj_istri:=0;
                   tj_anak:=0;
                end;

             3: begin {cerai}
                   tj_istri:=0;
                   write(‘Jumlah Anak :’); readln(jml_anak);
                   tj_anak:=jml_anak*(0.05*g_pokok);
                end;                                              
             else begin
                  writeln(‘Status tidak ada …!;’);
             end;
        end;
        tj:=tj_istri+tj_anak;
        t_gaji:=g_pokok+tj;
        write(‘Jumlah Gaji :’,t_gaji:8:2);
        readln;
end.   





Diposting oleh
Unknown


di
07.59


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest















kerja gilak 4 hari 3 malam......, finaly at last time.












uses wincrt;

var

mkb,mkb1,mkb2,mkb3,mnb,mnb1,mnb2,mnb3:string;



harga,harga1,harga2,harga3,hargax,jumlah,jumlah1,jumlah2,jumlah3,jumlahx:     longint;

subtotal,discount,discount1,discount2,discount3,total,byr,kbl,discountx:real;

hi,hi1,hi2,hi3:real;  







begin

write('masukkan Kode barang     = ');

readln(mkb);

write('masukkan Nama Barang     = ');

readln(mnb);   

write('masukkan harga barang    = ');

readln(harga);

write('masukkan jumlah          = ');

readln(jumlah);







write('masukkan Kode barang     = ');

readln(mkb1);

write('masukkan Nama Barang     = ');

readln(mnb1);

write('masukkan harga barang    = ');

readln(harga1);

write('masukkan jumlah          = ');

readln(jumlah1);





write('masukkan Kode barang     = ');

readln(mkb2);

write('masukkan Nama Barang     = ');

readln(mnb2);

write('masukkan harga barang    = ');

readln(harga2);

write('masukkan jumlah          = ');

readln(jumlah2);





write('masukkan Kode barang     = ');

readln(mkb3);

write('masukkan Nama Barang     = ');

readln(mnb3);

write('masukkan harga barang    = ');

readln(harga3);

write('masukkan jumlah          = ');

readln(jumlah3);



                               





writeln('`````````````````````````````````````');

writeln('Barcode      :',mkb);

writeln('Nama Barang  :',mnb);

writeln('Harga Satuan :',harga);

writeln('Jumlah Barang:',jumlah);



hi:=jumlah*harga;

writeln('harga item               = ',hi:2:2);







writeln('Barcode      :',mkb1);

writeln('Nama Barang  :',mnb1);

writeln('Harga Satuan :',harga1);

writeln('Jumlah Barang:',jumlah1);



hi1:=jumlah1*harga1;

writeln('harga item               = ',hi1:2:2);







writeln('Barcode      :',mkb2);

writeln('Nama Barang  :',mnb2);

writeln('Harga Satuan :',harga2);

writeln('Jumlah Barang:',jumlah2);



hi2:=jumlah2*harga2;

writeln('harga item               = ',hi2:2:2);







writeln('Barcode       :',mkb3);

writeln('Nama Barang   :',mnb3);

writeln('Harga Satuan  :',harga3);

writeln('Jumlah Barang :',jumlah3);



hi3:=jumlah3*harga3;

writeln('harga item               = ',hi3:2:2);













subtotal:=(hi+hi1+hi2+hi3);

writeln(' __________________________________ ');

writeln(' Joan Joan Joan Joan Joan Joan Joan ');

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

writeln('subtotal           : ',subtotal:2:2);





if(jumlah   <2     ) then

discount:=0*hi





else if(jumlah  >2     )  then

discount :=0.2*hi

else

discount :=0.2*hi  ;





if(jumlah1  <2     ) then

discount1:=0*hi2



else if(jumlah1 >2     )  then

discount1 :=0.2*hi1

else

discount1 :=0.2*hi1  ;

             





if(jumlah2 <2     ) then

discount2:=0*hi2



else if(jumlah2 >2     )  then

discount2 :=0.2*hi2

 else

discount2 :=0.2*hi2 ;







if(jumlah3  <2     ) then

discount3:=0*hi3



else if(jumlah3 >2     )  then

discount3:=0.2*hi3

else

discount3:=0.2*hi3 ;









 discountx:=discount + discount1 + discount2 + discount3  ;







                                              



writeln('discount           : ',discountx:2:2);



total :=(subtotal-discountx);



writeln('total              = ',total:2:2);





write('Bayar  :'); readln(byr);





kbl:= byr - total;



writeln('Kembali        >>>=',kbl:2:2);

writeln('================================');



end.






Diposting oleh
Unknown


di
04.26


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest












          
        

          
        
Senin, 26 September 2011

          
        




data belanja.......,.,.,








{program nota penjualan}

uses wincrt;

type

 databrg=record

 namabrg:string[10];

 hargabrg:real;

 kode:string[6];

 jml:integer;

 tot:real;





end;



var

jumlahbrg,i,j:byte;

totalharga:real;

tgl,nama,alamat : string;

barang:array[1..6] of databrg;



{Masukan Data}

begin

clrscr;

write('Tanggal Pembelian: ');readln(tgl);

write('Nama Pembeli     : ');readln(nama);

write('Alamat           : ');readln(alamat);

write('Jumlah Pembelian : ');readln(jumlahbrg);

for i :=1 to jumlahbrg do

 begin

 writeln;writeln('Barang ke ',i:6);

 with barang[i]do

 begin

 write('Kode barang  : ');readln(kode);

 write('Nama Barang  : ');readln(namabrg);

 write('harga satuan : ');readln(hargabrg);

 write('jumlah barang: ');readln(jml);

 end;

 end;





{Menampilkan Hasil}

clrscr;

writeln('                          NOTA PENJUALAN');

writeln('                         WARUNG KELONTONG');

writeln('                   Jl. Gatot Subroto  Indramayu');

writeln;

writeln('Tanggal Pembelian: ',tgl);

writeln('Nama Pembeli     : ',nama);

writeln('Alamat           : ',alamat);

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

writeln('No | Kode barang | Nama Barang | harga satuan(Rp) | jumlah | hargaxjumlah(Rp)');

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

totalharga:=0;

for i:= 1 to jumlahbrg do

begin

with barang[i]do

 begin

 totalharga:=totalharga+(hargabrg*jml);

 tot:=hargabrg*jml;

 write(i,'       ');

 write(kode,'     ');

 write(namabrg:10,'    ');

 write(hargabrg:10:0,'             ');

 write(jml,'     ');

 writeln(tot:10:0);

 end;

end;

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

writeln('                                   Total Pembelian    :     ',totalharga:10:0);

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

writeln('                                    TERIMA KASIH ');

readln;

donewincrt;

end.









Diposting oleh
Unknown


di
07.25


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest












          
        

          
        
Minggu, 25 September 2011

          
        




ayam potong






program ayam_goreng;
uses wincrt;
var
i,b:byte;
jenis,kdjenis:array [1..50]of string;
banyak,jmlharga,harga:array [1..50]of real;
totb,ppn,totjml,total:real;
begin
clrscr;
writeln('Joean Swalayan');
writeln('========================');
writeln('Kode Jenis potong Harga');
writeln('=============================');
writeln('D Dada 3000 ');
writeln('P Paha 2500 ');
writeln('S Sayap 1500 ');
writeln('=============================');
write('Masukan Jumlah Jenis : ');readln(b);
for i:=1 to b do
begin
writeln;
writeln('Jenis Ayam ke- ',i);
writeln;
write('Jenis Ayam Bagian [D/P/S] : ');readln(kdjenis[i]);
write('Jumlah Beli / Potong : ');readln(banyak[i]);
end;
writeln; clrscr;
writeln(' PROGRAM AYAM GORENG FRIED CHICKEN');
writeln('======================================================================');
writeln('NO JENIS POTONG HARGA SATUAN BANYAK BELI JUMLAH HARGA ');
writeln;
totb:=0;
for i:=1 to b do
begin
if kdjenis[i]='D' then
begin
jenis[i]:='Dada';
harga[i]:=3000;
end
else if kdjenis[i]='P' then
begin
jenis[i]:='Paha';
harga[i]:=2500;
end
else if kdjenis[i]='S' then
begin
jenis[i]:='Sayap';
harga[i]:=1500;
end
else
begin
jenis[i]:='Kepala';
harga[i]:=1000;
end;
jmlharga[i]:=harga[i]*banyak[i];
totb:=totb+jmlharga[i];
ppn:=totb*0.1;
totjml:=totjml+banyak[i];
total:=totb+ppn
end;
for i:=1 to b do
begin

writeln(i:1,jenis[i]:9,harga[i]:14:0,banyak[i]:18:0,jmlharga[i]:19:0);
end;
writeln('=================================================================');
writeln(' Jumlah Potong :',totjml:2:0);
writeln(' Jumlah bayar :',totb:2:0);
writeln(' PPN 10 % : ',ppn:2:0);
writeln(' Total bayar : ',total:2:0);
readln;
end.




Diposting oleh
Unknown


di
23.16


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest















gaji








Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
     Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
     Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
     End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
     End
Else 
     Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
     End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji   :  Rp.‘,total:9:2);
Readln;
End.





Diposting oleh
Unknown


di
22.10


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest















rekayasa.. 09 26/sep












uses wincrt;

var

mkb,mkb1,mkb2,mkb3,mnb,mnb1,mnb2,mnb3:string;



harga,harga1,harga2,harga3,hargax,jumlah,jumlah1,jumlah2,jumlah3,jumlahx   :longint;

subtotal,discount,total:real;

hi,hi1,hi2,hi3:integer;



begin

write('masukkan Kode barang     = ');

readln(mkb);

write('masukkan Nama Barang     = ');

readln(mnb);

write('masukkan harga barang    = ');

readln(harga);

write('masukkan jumlah          = ');

readln(jumlah);

hi:=jumlah*harga;

writeln('harga item               = ',hi);





write('masukkan Kode barang     = ');

readln(mkb1);

write('masukkan Nama Barang     = ');

readln(mnb1);

write('masukkan harga barang    = ');

readln(harga1);

write('masukkan jumlah          = ');

readln(jumlah1);

hi1:=jumlah1*harga1;

writeln('harga item               = ',hi1);



write('masukkan Kode barang     = ');

readln(mkb2);

write('masukkan Nama Barang     = ');

readln(mnb2);

write('masukkan harga barang    = ');

readln(harga2);

write('masukkan jumlah          = ');

readln(jumlah2);

hi2:=jumlah2*harga2;

writeln('harga item               = ',hi2);



write('masukkan Kode barang     = ');

readln(mkb3);

write('masukkan Nama Barang     = ');

readln(mnb3);

write('masukkan harga barang    = ');

readln(harga3);

write('masukkan jumlah          = ');

readln(jumlah3);

hi3:=jumlah3*harga3;

writeln('harga item               = ',hi3);



subtotal:=(hi+hi1+hi2+hi3);



writeln('`````````````````````````````````````');

write('Barcode');

writeln(':',mkb);

write('Nama Barang');

writeln(':',mnb);

write('Harga Satuan');

writeln(':',harga);

write('Jumlah Barang');

writeln(':',jumlah);



write('Barcode');

writeln(':',mkb1);

write('Nama Barang');

writeln(':',mnb1);

write('Harga Satuan');

writeln(':',harga1);

write('Jumlah Barang');

writeln(':',jumlah1);



write('Barcode');

writeln(':',mkb2);

write('Nama Barang');

writeln(':',mnb2);

write('Harga Satuan');

writeln(':',harga2);

write('Jumlah Barang');

writeln(':',jumlah2);



write('Barcode');

writeln(':',mkb3);

write('Nama Barang');

writeln(':',mnb3);

write('Harga Satuan');

writeln(':',harga3);

write('Jumlah Barang');

writeln(':',jumlah3);





writeln(' __________________________________ ');

writeln(' Joan Joan Joan Joan Joan Joan Joan ');

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

writeln('subtotal           : ',subtotal:2:0);



if(jumlah or jumlah1 or jumlah2 or jumlah3  <2     ) then

discount:=0*subtotal



else if(jumlah 0r >2     )  then

discount:=0.02*subtotal







else

discount :=0.02*subtotal;





writeln('discount           : ',discount:2:2);



total :=(subtotal-discount);



writeln('total              = ',total:2:2);

readln;

end.






Diposting oleh
Unknown


di
20.28


0
komentar









Kirimkan Ini lewat EmailBlogThis!Bagikan ke XBerbagi ke FacebookBagikan ke Pinterest












        
      



Postingan Lebih Baru


Postingan Lama

Beranda




Langganan:
Postingan (Atom)















Pengikut











Arsip Blog








        ▼ 
      



2011

(55)





        ▼ 
      



Oktober

(18)



Pascal
Tugas..............!!!
Menghitung gaji karyawan
membuat piramit bintang,, Agus
mengukur suhu..





#gb{
position:fixed;
top:50px;
z-index:+1000;
}
*...
program case1;

uses wincrt;
var nama, alamat:stri...


http://www.nusinau.com/category/computer/programmi...
http://www.nusinau.com/perulangan-dalam-pascal/

h...
Entahlah tui tiau ki
calculate..   bukan yang aku mau
Ini masih salah,,, Jika ada yang bisa   harap di k...
THE CALCULATE
var rate=20;if(document.getElementById)
window.one...








        ► 
      



September

(29)







        ► 
      



Agustus

(1)







        ► 
      



Januari

(7)









Mengenai Saya




Unknown



Lihat profil lengkapku