Senin, 23 Desember 2013

Program Pendaftaran Mahasiswa Baru




program mhs;
uses wincrt;
var no,nama,tempat,tgl,bln,thn,seko : string;
biaya_pend,biaya_ako,total:real;
tanggal,tahun,bulan,asal:integer;

begin
write('No                       :'); readln(no);
write('nama                     :'); readln(nama);
write('Asal Sekolah             :'); readln(seko); writeln;
write('tempat, tgl lahir        :'); readln(tempat);
gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bulan);
if bulan > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(tahun);
if tahun > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;
write('Biaya Pendidikan         :'); readln(biaya_pend);
write('Biaya Akomodasi          :'); readln(biaya_ako);
total:=biaya_pend+biaya_ako;
writeln('total biaya            :', total:0:00);

end.                    

Makalah Struktur Data Program Pegawai Dengan Menggunakan TPW



Makalah Struktur Data Program Pegawai Dengan Menggunakan TPW
KELOMPOK 3

 
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. 
FLOWCART MEMAKAI IF


FLOWCART MEMAKAI PROCEDURE
 SCREEN PROGRAM






MAKALAH PROGRAM PENJUALAN DENGAN MENGGUNAKAN TPW
  KELOMPOK  1

KATA PENGANTAR
Puji syukur alhamdulillah pemakalah panjatkan kepada Allah ilahi robbi, yang dengan takdirnya menciptakan jagat raya ini dengan segala bentuk isinya. Tak ada kata yang patut di lupakan kecuali hanya rasa syukur yang berbunyi ” Alhamdulillahirobbil’alamin”.
Shalawat serta salam juga tak lupa pemakalah haturkan kepada Baginda Khatimun Ambiya’, Nabi Muhammad SAW, yang dengan pancaran Nur (cahaya) ilmunya, Dunia terasa lebih hidup, lebih terang dari Nur apapun.

DAFTAR ISI
KATA PENGANTAR
DAFTAR ISI

BAB I PENDAHULUAN
      FLOW CHART
      CODING PROGRAM

BAB II PEMBAHASAN

BAB III PENUTUP
      KESIMPULAN
       SARAN
 

BAB II
PEMBAHASAN
  FLOW CHART
Rancangan pembuatan coding MENU DALAM PENJUALAN adalah sebagai berikut
  • Pertama pastinya menjalankan program MENU DALAM PENJUALAN
  •  Tampil menu penjualan yang kita kehendaki misal ada 7 sub menu
  •  Memilih salah satu menu yang kita kehendaki percabangan yang kita buat
  • Ketika terpilih salah satu sub menu akan ada sub menu ukuran
  • Ukuran menampilkan L/M/S
  • Di anjurkan untuk memilih salah satu sub menu L/M/S
  • Ketika memilih L akan ditampilkan Harga barang tersebut pada ukuran L
  • Ketika memilih M akan ditampilkan Harga barang tersebut pada ukuran M
  •  Ketika memilih S akan ditampilkan Harga barang tersebut dalam ukuran S
  • Harga yang telah terpilih akan di kalikan ke banyak beli yang akan di tampilkan ke Harga pembelian
  • setelah itu akan ada imputan Bayar di kurangi Harga pembelian yang menampilkan kembalian.
  • Setelah proses diatas selesai akan tampil menanyakan transaksi lain [ y/t ] ketika memilih tombol ’ y ’ akan di tampilkan kembali program seperti awal dalam coding goto Balik (MENU DALAM PENJUALAN). Dan ketika memilih tombol ’ t ’ akan langsung keluar dari program.
  CODING PROGRAM
 program penjualan;
uses wincrt;
const Nmaks=100;
         type barang=record
          kode:string[10];
          nama:string[35];
          quantity:integer;
          harsat:integer;
          subtotal:integer;
     end;
procedure utama;
begin
          write('==============TOKO TIKTOK===========');
          writeln('===================================');
          writeln('===Jalan Raya Singaparna No. 123===');
end;
procedure member;
var
kd_member:string;
nm_member:string;
alamat:string;
no_hp:string;
begin
writeln('----------------------------DATA MEMBER--------------------------------');
writeln;
write('Kode member                      :'); readln(kd_member);
if kd_member = 'M1' then
   begin
   nm_member := 'Vania Larissa';
   alamat    := 'Pontianak';
   no_hp     := '08921234567';
   end;
if kd_member = 'M2' then
     begin
     nm_member := 'Megan Young';
     alamat    := 'Piliphines';
     no_hp     := '0876543123';
     end
     else
   begin
   nm_member := 'Tidak ditemukan';
   alamat     := '-';
   no_hp      := '-';
   end;
writeln('Nama Member    :', nm_member);
writeln('Alamat         :', Alamat);
writeln('No Hp          :', no_hp);
end;
procedure garis;
begin
write('===========================================================');
end;
procedure petugas;
var
kd_petugas:string;
nm_petugas:string;
no_hpp:string;
alamatp:string;
begin
writeln('----Petugas Kasir------------------------------');
writeln('Kode Petugas          : P1-P2');read(kd_petugas);
if kd_petugas = 'P1' then
   begin
   nm_petugas := 'Soleh';
   alamatp     := 'Jl. Wawan';
   no_hpp      := '08765454398';
   end;      
  
   if kd_petugas = 'P2' then
   begin
   nm_petugas := 'Mahfud';
   alamatp     := 'Jl. Duren';
   no_hpp      := '087643212398';
   end;
writeln('Nama Petugas           :', nm_petugas);
writeln('Alamat                 :', alamatp);
writeln('No Hp                  :', no_hpp);
end;
    type nilai=array[1..Nmaks] of barang;
    var
   M:nilai;
  N:integer;
   i:integer;
   total,disc,bayar,hrg,kembali:real;
   y:string;
   lagi:char;
     begin
      clrscr;  
     utama;
     petugas;
     garis;
     lagi := 'y';
     while lagi = 'y' do
     begin
     for i:=1 to Nmaks do
     begin
      M[i].kode:=' ';
      M[i].nama:=' ';
      M[i].quantity:=0;
      M[i].harsat:=0;
      M[i].subtotal:=0;
     end;
     write('Banyaknya Barang : '); readln(N);
     for i:=1 to N do
     begin
          writeln('Barang Ke-',i,' dari ',N);
          write('Kode Barang : '); readln(M[i].kode);
          if M[i].kode = 'B1' then
             begin
             M[i].nama := 'Pensil';
             M[i].harsat := 1200;
             end;
          if M[i].kode = 'B2' then
             begin
             M[i].nama := 'Penghapus';
             M[i].harsat := 2000;
             end;
          write('Nama Barang : ',M[i].nama);
          write('Quantity : '); readln(M[i].quantity);
          write('Harga Satuan : ',M[i].harsat);
          M[i].subtotal:=M[i].quantity*M[i].harsat;
          total:=total+M[i].subtotal;
          writeln('Subtotal : ',M[i].subtotal);
          writeln('Ada transaksi lagi ?'); readln(lagi);
      if lagi = 't' then
      end;
      end;
       clrscr;
      begin
     
     writeln('----------------------DATA PENJUALAN BARANG--------------------');
      writeln('===============================================================');
      writeln('No | Kode | Nama Barang | jumlah | Harga Satuan | Subtotal');
      writeln('===============================================================');
      for i:=1 to N do
      begin
      writeln(i,'    ',M[i].kode,'      ',M[i].nama,'        ',M[i].quantity,'         ',M[i].harsat,'        ',M[i].subtotal);
      end;
      writeln('========================================================================');
      writeln('Total Bayar : ',total:3:2);
      writeln('Discount Untuk member sebesar 20%');
      writeln('Ada Member? Jika ada masukan Kode'); readln(y);
     
      if y = 'ada' then
      begin
      member;
      disc:=total*0.2;
      hrg:=total-disc;
      end
      else
      disc:=total*0;
      hrg:=total-disc;
      writeln('Harga Total :' ,hrg:3:2);
      writeln('Bayar       : ');read(bayar);
      Kembali:= bayar-hrg;
      writeln('Kembali     : ',kembali:3:2);
      end;
end.

TAMPILAN DALAM PASCAL :
 

BAB III
PENUTUP
   Demikian makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan yang terjadi pada program dan makalah yang kami buat ini.
    KESIMPULAN
Setelah dibuatnya program penjualan dengan menggunakan program Turbo Pascal dapat membantu proses transaksi pada sebuah toko dengan menggunakan prosedure dan if, karena lebih simpel dalam penggunannya. Ketika pembuatan program ini tidak sesulit pembuatan program yang lain.
    SARAN
Kami terima jika ada kritik dan saran dari pembaca, karena semua program tidak luput dari sebuah kesalahan. Untuk menjadikan kami agar bisa membuat program yang lebih baik lagi.