Source Code Nilai Mahasiswa dalam Pascal

Source Code Nilai Mahasiswa dalam Pascal - Program ini hanya membahas tentang perhitungan nilai IP setiap Mata Kuliah, namun untuk Nilai IPKnya sendiri bisa di modifikasi lebih lanjut.

Berikut ini source code nilai mahasiswa menggunakan compiler dev-pascal :

uses crt;
var
  npm: string[7];
  nama: string[25];
  nilai_absen: real;
  nilai_tugas: real;
  nilai_uts: real;
  nilai_uas: real;
  nilai_akhir: real;
  nilai_mutu: char;
  nilai_IP: integer;
  jumlah_nilai: integer;
  lagi: char;
begin
clrscr;
  lagi:='y';
  while upcase(lagi)='Y' do
  begin
  clrscr;
     gotoxy(32,2)  ; write('DATA NILAI MAHASISWA');
     gotoxy(3,3)   ; write('___________________________________________________________________________');
     gotoxy(27,5)  ; write('NPM            : '); readln(npm);
     gotoxy(27,7)  ; write('Nama Mahasiswa : '); readln(nama);
     gotoxy(3,9)   ; write('MK Pengantar Teknologi Informasi');
     gotoxy(6,11)  ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,13)  ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,15)  ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,17)  ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,19) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,21)  ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,23)  ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,25)  ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,27)  ; write('MK Bahasa Inggris');
     gotoxy(6,29)  ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,31)  ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,33)  ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,35)  ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,37)  ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,39)  ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,41)  ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,43)  ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,45)  ; write('MK Flowchart dan Alg. Pemrograman');
     gotoxy(6,47)  ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,49)  ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,51)  ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,53)  ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,55)  ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 80 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,57)  ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,59)  ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,61)  ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,63)  ; write('MK Akuntansi');
     gotoxy(6,65)  ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,67)  ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,69)  ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,71)  ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,73)  ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 80 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 65 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,75)  ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,77)  ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,79)  ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,81)  ; write('MK Aljabar. Vektor dan Matriks');
     gotoxy(6,83)  ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,85)  ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,87)  ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,89)  ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,91) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,93)  ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,95)  ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,97)  ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,99)  ; write('MK Pendidikan Pancasila');
     gotoxy(6,101) ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,103) ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,105) ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,107) ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,109) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,111) ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,113) ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,115) ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,117) ; write('MK Sistem Operasi');
     gotoxy(6,119) ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,121) ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,123) ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,125) ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,127) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,129) ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,131) ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,133) ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,135) ; write('MK Bahasa Pemrograman');
     gotoxy(6,137) ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,139) ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,141) ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,143) ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(nilai_absen+2*nilai_tugas+3*nilai_uts+4*nilai_uas)/10;
     gotoxy(6,145) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,147) ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,149) ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,151) ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,153) ; write('MK Sistem Operasi');
     gotoxy(6,155) ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,157) ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,159) ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,161) ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(2*nilai_absen+3*nilai_tugas+5*nilai_uas)/10;
     gotoxy(6,163) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,165) ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,167) ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,169) ; write('Jumlah Nilai : ',jumlah_nilai);

     gotoxy(3,171) ; write('MK Bahasa Pemrograman');
     gotoxy(6,173) ; write('Nilai Absen  : '); readln(nilai_absen);
     gotoxy(6,175) ; write('Nilai Tugas  : '); readln(nilai_tugas);
     gotoxy(6,175) ; write('Nilai UTS    : '); readln(nilai_uts);
     gotoxy(6,179) ; write('Nilai UAS    : '); readln(nilai_uas);
        nilai_akhir:=(2*nilai_absen+3*nilai_tugas+5*nilai_uas)/10;
     gotoxy(6,181) ; write('Nilai Akhir  : ',nilai_akhir:1:0);
        if nilai_akhir >= 85 then
           begin
              nilai_mutu:='A';
              nilai_IP:=4;
           end
        else
        if nilai_akhir > 70 then
           begin
              nilai_mutu:='B';
              nilai_akhir:=3;
           end
        else
        if nilai_akhir > 55 then
           begin
              nilai_mutu:='C';
              nilai_IP:=2;
           end
        else
        if nilai_akhir > 45 then
           begin
              nilai_mutu:='D';
              nilai_IP:=1;
           end
        else
        if nilai_akhir < 45 then
            begin
              nilai_mutu:='E';
              nilai_IP:=0;
            end;
     gotoxy(6,183) ; write('Nilai Mutu   : ',nilai_mutu);
     gotoxy(6,185) ; write('Nilai IP     : ',nilai_IP);
        jumlah_nilai:=nilai_IP*2;
     gotoxy(6,187) ; write('Jumlah Nilai : ',jumlah_nilai);

readln;
end;
end. 

Sekian artikel tentang Source Code Nilai Mahasiswa dalam Pascal, semoga bermanfaat.

Source Code Stok Barang dalam Pascal

Source Code Stok Barang dalam Pascal - Software house kali ini membahas tentang Aplikasi Stok Barang DVD dan Game PC yang sudah ada CRUD.

Penyimpanan data dalam file "brg.dat" dan menerapkan konsep Procedure dalam membagi path tiap program.

Berikut ini source code stok barang menggunakan compiler dev-pascal :

Program PersediaanBarang;
uses crt;
type
 brg = record
  nama_games: string[12];
  kode_games: string[5];
  satuan: string[6];
  byk_brg: byte;
  tam_brg: integer;
  kur_brg: integer;
  h_beli: real;
  h_jual: real;
  tot_beli: real;
  tot_jual: real;
 end;

var
 fb: file of brg;
 rb: brg;
 lagi,ya: char;
 pilih,i: byte;
 nourut,jml: integer;
 kodecari: string[3];
 ketemu: boolean;


Procedure Tampil;
begin
for i:= 1 to 23 do
 begin
  delay(120);
  gotoxy(29,i); write ('    ASSALAMMUALAIKUM');
  gotoxy(29,i-1); write ('                     ');
 end;
 begin
 for i:= 23 downto 2 do
 begin
  delay(120);
  gotoxy(33,i); write ('    MATERI IT');
  gotoxy(22,i+1); write ('                           ');
 end;
 gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(24,6); write('PROGRAM APLIKASI PERSEDIAAN BARANG');
 gotoxy(35,10); write('DVD GAMES PC');
 gotoxy(28,14); write('PRINCE GAMES DAN COMPUTER');
 gotoxy(39,18); write('****');
 writeln;
 readln;
 end;
end;


Procedure InputDataAwal;
begin
 assign(fb,'brg.dat');
 rewrite(fb);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rb do
  begin
   gotoxy(28,2); write('o_o PROGRAM INPUT DATA o_o');
   gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
   gotoxy(23,6); write('Kode Games            : ');
   gotoxy(23,8); write('Nama Games            : ');
   gotoxy(23,10); write('Banyak Barang         : ');
   gotoxy(23,12); write('Satuan Barang         : ');
   gotoxy(23,14); write('Harga Beli / Satuan   : ');
   gotoxy(23,16); write('Harga Jual / Satuan   : ');
   gotoxy(23,18); write('Total Harga Beli      : ');
   gotoxy(23,20); write('Total Harga Jual      : ');
   gotoxy(49,6); readln(kode_games);
   gotoxy(49,8); readln(nama_games);
   gotoxy(49,10); readln(byk_brg);
   gotoxy(49,12); readln(satuan);
   gotoxy(49,14); readln(h_beli);
   gotoxy(49,16); readln(h_jual);
   tot_beli:= h_beli*byk_brg;
   tot_jual:= h_jual*byk_brg;
   gotoxy(49,18); writeln(tot_beli:2:0);
   gotoxy(49,20); writeln(tot_jual:2:0);
  end;
 write(fb,rb);
 gotoxy(23,23); write('Masukan data lagi [Y/T] ? ');
 readln(lagi);
 end;
 close(fb);
end;


Procedure TambahData;
begin
 assign(fb,'brg.dat');
 {$I-}
 reset(fb);
 {$I+};
 if ioresult<>0 then rewrite(fb);
    seek(fb,filesize(fb));
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rb do
  begin
   gotoxy(26,2); write('o_o PROGRAM TAMBAH DATA o_o');
   gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
   gotoxy(23,6); write('Kode Games            : ');
   gotoxy(23,8); write('Nama Games            : ');
   gotoxy(23,10); write('Banyak Barang         : ');
   gotoxy(23,12); write('Satuan Barang         : ');
   gotoxy(23,14); write('Harga Beli / Satuan   : ');
   gotoxy(23,16); write('Harga Jual / Satuan   : ');
   gotoxy(23,18); write('Total Harga Beli      : ');
   gotoxy(23,20); write('Total Harga Jual      : ');
   gotoxy(49,6); readln(kode_games);
   gotoxy(49,8); readln(nama_games);
   gotoxy(49,10); readln(byk_brg);
   gotoxy(49,12); readln(satuan);
   gotoxy(49,14); readln(h_beli);
   gotoxy(49,16); readln(h_jual);
   tot_beli:= h_beli*byk_brg;
   tot_jual:= h_jual*byk_brg;
   gotoxy(49,18); writeln(tot_beli:2:0);
   gotoxy(49,20); writeln(tot_jual:2:0);
  end;
 write(fb,rb);
 gotoxy(23,23) ;write('Masukan data lagi [Y/T] ? ');
 readln(lagi);
 end;
 close(fb);
end;


Procedure LihatSemuaData;
begin
 assign(fb,'brg.dat');
 reset(fb);
 clrscr;
 gotoxy(28,2); write('o_o PROGRAM LIHAT DATA o_o');
 gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 writeln;
 writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
 writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
 writeln('³Kode ³    Nama     ³Banyak³Satuan³ H.Beli/ ³ H.Jual/ ³   Total   ³   Total   ³');
 writeln('³Games³    Games    ³Barang³Barang³ Satuan  ³ Satuan  ³   H.Beli  ³   H.Jual  ³');
 writeln('ÃÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´');
 while not eof (fb) do
 begin
  read(fb,rb);
  with rb do
  writeln('³',kode_games:5,'³':1,nama_games:12,'³':2,byk_brg:4,'³':3,satuan:5,
          '³':2,'Rp.':1,h_beli:6:0,'³':1,'Rp.':1,h_jual:6:0,
          '³':1,'Rp.':1,tot_beli:8:0,'³':1,'Rp.':1,tot_jual:8:0,'³':1);
 end;
 writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
 writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
 writeln;
 writeln('Keterangan :');
 writeln;
 writeln('A : Adventure');
 writeln('C : Colection');
 writeln('S : Sport');
 close(fb);
 readln;
end;


Procedure LihatDataTertentu;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(30,2); write('o_o PROGRAM CARI DATA o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan dicari : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
    if rb.kode_games = kodecari then
       begin
        ketemu:= true;
        clrscr;
        gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            : ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            : ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang         : ',rb.byk_brg);
        gotoxy(23,12); write('Satuan Barang         : ',rb.satuan);
        gotoxy(23,14); write('Harga Beli / Satuan   : ',rb.h_beli:2:0);
        gotoxy(23,16); write('Harga Jual / Satuan   : ',rb.h_jual:2:0);
        gotoxy(23,18); write('Total Harga Beli      : ',rb.tot_beli:2:0);
        gotoxy(23,20); write('Total Harga Jual      : ',rb.tot_jual:2:0);
        gotoxy(23,23); write('Cari data lagi [Y/T] ? ');
        readln(lagi);
       end;
  end;
    if not ketemu then
       begin
        gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
        gotoxy(23,10); write('Cari data lagi [Y/T] ? ');
        readln(lagi);
       end;
 end;
 close(fb);
end;


Procedure PenambahanBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM EDIT PENAMBAHAN BARANG o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang Awal    :   ',rb.byk_brg);
        gotoxy(23,14); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(23,16); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(23,18); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(23,20); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(23,22); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(23,12); write('Penambahan Barang     :   '); readln(rb.tam_brg);
        byk_brg:= byk_brg+tam_brg;
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(49,20); writeln(tot_beli:2:0);
        gotoxy(49,22); writeln(tot_jual:2:0);
        gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
      begin
       gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
       readln(lagi);
      end;
 end;
 close(fb);
end;


Procedure PenguranganBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM EDIT PENGURANGAN BARANG o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang Awal    :   ',rb.byk_brg);
        gotoxy(23,14); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(23,16); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(23,18); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(23,20); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(23,22); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(23,12); write('Pengurangan Barang    :   '); readln(rb.kur_brg);
        byk_brg:= byk_brg-kur_brg;
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(49,20); writeln(tot_beli:2:0);
        gotoxy(49,22); writeln(tot_jual:2:0);
        gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
      begin
       gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
       readln(lagi);
      end;
 end;
 close(fb);
end;


Procedure EditDataBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
  clrscr;
  gotoxy(26,2); write('o_o PROGRAM EDIT DATA BARANG o_o');
  gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(20,6); write('Masukan kode barang yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(11,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(11,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(11,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(11,10); write('Banyak Barang         :   ',rb.byk_brg);
        gotoxy(11,12); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(11,14); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(11,16); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(11,18); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(11,20); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(54,6); write('==> Edit : '); readln(kode_games);
        gotoxy(54,8); write('==> Edit : '); readln(nama_games);
        gotoxy(54,10); write('==> Edit : '); readln(byk_brg);
        gotoxy(54,12); write('==> Edit : '); readln(satuan);
        gotoxy(54,14); write('==> Edit : '); readln(h_beli);
        gotoxy(54,16); write('==> Edit : '); readln(h_jual);
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(54,18); write('==> Edit : '); writeln(tot_beli:2:0);
        gotoxy(54,20); write('==> Edit : '); writeln(tot_jual:2:0);
        gotoxy(11,23); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
     begin
       gotoxy(20,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(20,10); write('Edit data yang lain [Y/T] ? ');
       readln(lagi);
     end;
 end;
 close(fb);
end;


Procedure HapusData;
begin
 assign(fb,'brg.dat');
 reset(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM HAPUS DATA BARANG o_o');
  gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  jml:= filesize(fb);
  gotoxy(20,6); write('Nomor record yang dihapus (1  -',jml:3,') ? ');
  readln(nourut);
  writeln;
  if (nourut < 1) or (nourut > jml) then
     begin
      gotoxy(20,8); writeln('No. Record ini tidak ada dalam daftar!!!');
      gotoxy(20,10); write('Ada lagi yang akan dicari [Y/T] ? ');
      readln(lagi);
     end
  else
     begin
      for i:= nourut to jml do
      begin
       seek(fb,i-1);
       read(fb,rb);
       with rb do
       begin
       clrscr;
        gotoxy(29,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            : ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            : ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang         : ',rb.byk_brg);
        gotoxy(23,12); write('Satuan Barang         : ',rb.satuan);
        gotoxy(23,14); write('Harga Beli / Satuan   : ',rb.h_beli:2:0);
        gotoxy(23,16); write('Harga Jual / Satuan   : ',rb.h_jual:2:0);
        gotoxy(23,18); write('Total Harga Beli      : ',rb.tot_beli:2:0);
        gotoxy(23,20); write('Total Harga Jual      : ',rb.tot_jual:2:0);
       end;
      end;
        gotoxy(23,23); write('Yakin data ini akan dihapus [Y/T] ? ');
        readln(ya);
       if upcase(ya) = 'Y' then
          begin
           seek(fb,nourut-1);
           truncate(fb);
          end;
       gotoxy(23,25); write('Ada lagi yang akan dicari [Y/T] ? ');
       readln(lagi);
     end;
  end;
  close(fb);
end;


Procedure PetunjukInputData;
begin
clrscr;
 gotoxy(33,2); write('o_o INPUT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Input Data Awal digunakan untuk  memasukan sejumlah data barang dimana data');
 gotoxy(5,8); write('yang telah  tersimpan dalam file akan  dihapus dan diganti dengan data yang');
 gotoxy(5,10); write('baru.');
 gotoxy(2,12); write('2. Tambah Data Baru digunakan untuk memasukan sejumlah data barang tetapi data');
 gotoxy(5,14); write('baru yang  dimasukan  tidak  akan menghapus data yang telah tersimpan dalam');
 gotoxy(5,16); write('file.');
 readln;
end;


Procedure PetunjukOutputData;
begin
clrscr;
 gotoxy(32,2); write('o_o OUTPUT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Lihat  Semua  Data  digunakan  untuk  menampilkan  semua  data  barang yang');
 gotoxy(5,8); write('tersimpan dalam file.');
 gotoxy(2,10); write('2. Lihat  Data  Tertentu  digunakan  untuk  menampilkan salah  satu  data yang');
 gotoxy(5,12); write('tersimpan dalam file.');
 readln;
end;


Procedure PetunjukEditData;
begin
clrscr;
 gotoxy(33,2); write('o_o _''EDIT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Edit Data Jumlah Barang  digunakan  untuk  mengedit salah  satu  data  yang');
 gotoxy(5,8); write('tersimpan dalam file baik data penambahan barang  maupun  data  pengurangan');
 gotoxy(5,10); write('barang.');
 gotoxy(2,12); write('2. Edit Data Barang digunakan untuk mengedit semua  data barang yang tersimpan');
 gotoxy(5,14); write('dalam file.');
 readln;
end;


Procedure PetunjukHapusData;
begin
clrscr;
 gotoxy(33,2); write('o_o HAPUS DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Hapus Data  digunakan  untuk menghapus  salah satu, sejumlah  maupun  semua');
 gotoxy(5,8); write('data barang yang tersimpan dalam file.');
 readln;
end;


Procedure TujuanPembuatan;
begin
clrscr;
 gotoxy(21,2); write('o_o TUJUAN PEMBUATAN PROGRAM APLIKASI o_o');
 gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('Tujuan Pembuatan Program  aplikasi  ini adalah untuk memenuhi salah satu tugas');
 gotoxy(2,8); write('akhir Semester II Mata Kuliah Bahasa Pemrograman Lanjutan Satu(PASCAL).');
 gotoxy(2,10); write('Meskipun  dalam  pembuatan  Program Aplikasi  ini banyak  memiliki  kekurangan ');
 gotoxy(2,12); write('tetapi  kami  tetap  berharap  mudah-mudahan  semua  ini  dapat bermanfaat dan');
 gotoxy(2,14); write('menjadi ibadat yang diridhoi oleh Allah SWT.');
 readln;
end;


Procedure PembuatProgramAplikasi;
begin
clrscr;
 gotoxy(25,2); write('o_o PROGRAM INI DIBUAT OLEH o_o');
 gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(20,6); write('Kelompok     : II (Dua)');
 gotoxy(20,8); write('Ketua        : ');
 gotoxy(35,8); write('Topan Setiawan');
 gotoxy(20,10); write('Anggota      : ');
 gotoxy(35,10); write('- Helda Oktavia');
 gotoxy(35,12); write('- Susi Sulawati');
 gotoxy(35,14); write('- Yudi Nugraha');
 gotoxy(35,16); write('- Yuliana Dwi Eftiana');
 gotoxy(20,18); write('Kelas        : Manajemen Informatika/A');
 gotoxy(20,20); write('Semester     : II (Dua)');
 gotoxy(21,23); write('Akademi Manajemen Informatika dan Komputer');
 readln;
end;



Procedure Pesan;
begin
clrscr;
 gotoxy(35,2); write('o_o PESAN o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('Yakinlah  bahwa  dibalik  kesulitan  itu  terdapat  kemudahan  dan  jadikanlah');
 gotoxy(2,8); write('kesulitan itu  sebagai  ladang  amal  dan ujian, agar  kita selalu mendekatkan');
 gotoxy(2,10); write('diri, meminta  pertolongan  dan  perlindungan  kepada  Allah  SWT.');
 readln;
end;


begin
TextBackground(LightCyan);
TextColor(Yellow);
clrscr;
 Tampil;
 while true do
 begin
 TextBackground(LightMagenta);
 TextColor(LightCyan);
 clrscr;
  gotoxy(34,2); write('^_^ MENU UTAMA ^_^');
  gotoxy(26,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  gotoxy(5,6);  write('1. Input Data');
  gotoxy(5,8);  write('2. Output Data');
  gotoxy(5,10); write('3. Edit Data');
  gotoxy(5,12); write('4. Hapus Data');
  gotoxy(5,14); write('5. Help');
  gotoxy(5,16); write('6. Exit');
  pilih := 0;
  while (pilih < 1) or (pilih > 6 ) do
  begin
   gotoxy(5,18); write('Masukan pilihan : ');
   readln(pilih);
   if (pilih < 1) or (pilih > 6) then
      write(^G);
      gotoxy(5,20); write('Pilihan salah silahkan ulangi!!!!');
   if pilih = 1 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(28,2); write('^_^ SUBMENU INPUT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Input Data Awal');
       gotoxy(5,8); write('2. Tambah Data');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            InputDataAwal;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            TambahData;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 2 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(30,2); write('^_^ SUBMENU OUTPUT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Lihat Semua Data');
       gotoxy(5,8); write('2. Lihat Data Tertentu');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan salah silahkan ulangi!!!!');
        if pilih = 1 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            LihatSemuaData;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            LihatDataTertentu;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 3 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(31,2); write('^_^ SUBMENU EDIT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Edit Data Jumlah Barang');
       gotoxy(5,8); write('2. Edit Data Barang');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
           TextBackground(LightBlue);
           TextColor(Yellow);
           clrscr;
            gotoxy(24,2); write('^_^ SUBMENU EDIT JUMLAH BARANG ^_^');
            gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
            gotoxy(5,6); write('1. Penambahan Barang');
            gotoxy(5,8); write('2. Pengurangan Barang');
            gotoxy(5,10); write('3. Keluar');
            pilih:= 0;
            while (pilih < 1) or (pilih > 3) do
            begin
             gotoxy(5,12); write('Masukan Pilihan : ');
             readln(pilih);
             if (pilih < 1) or (pilih > 3) then
             write (^G);
             gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
             if pilih = 1 then
                begin
                 TextBackground(LightMagenta);
                 TextColor(LightCyan);
                 PenambahanBarang;
                end
             else
             if pilih = 2 then
                begin
                 TextBackground(LightMagenta);
                 TextColor(LightCyan);
                 PenguranganBarang;
                end
             else
             if pilih = 3 then
                exit;
            end;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            EditDataBarang;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 4 then
      begin
       TextBackground(LightBlue);
       TextColor(Yellow);
       HapusData;
      end
   else
   if pilih = 5 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(32,2); write('^_^ SUBMENU HELP ^_^');
       gotoxy(25,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Petunjuk Penggunaan');
       gotoxy(5,8); write('2. Tujuan Pembuatan Program Aplikasi');
       gotoxy(5,10); write('3. Pembuat Program Aplikasi');
       gotoxy(5,12); write('4. Pesan');
       gotoxy(5,14); write('5. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 5) do
       begin
        gotoxy(5,16); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 5) then

           gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
           TextBackground(LightBlue);
           TextColor(Yellow);
           clrscr;
            gotoxy(24,2); write('^_^ SUBMENU PETUNJUK PENGGUNAAN ^_^');
            gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
            gotoxy(5,6); write('1. Input Data');
            gotoxy(5,8); write('2. OutPut Data');
            gotoxy(5,10); write('3. Edit Data');
            gotoxy(5,12); write('4. Hapus Data');
            gotoxy(5,14); write('5. Keluar');
            pilih:= 0;
            while (pilih < 1) or (pilih > 5) do
            begin
             gotoxy(5,16); write('Masukan Pilihan : ');
             readln(pilih);
             if (pilih < 1) or (pilih > 5) then
                write (^G);
                gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
             if pilih = 1 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukInputData;
                end
             else
             if pilih = 2 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukOutputData;
                end
             else
             if pilih = 3 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukEditData;
                end
             else
             if pilih = 4 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukHapusData;
                end
             else
             if pilih = 5 then
                exit;
            end;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            TujuanPembuatan;
           end
        else
        if pilih = 3 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            PembuatProgramAplikasi;
           end
        else
        if pilih = 4 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            Pesan;
           end
        else
        if pilih = 5 then
           exit;
       end;
      end
   else
   if pilih = 6 then
      exit;
  end;
 end;
end. 

Sekian atikel tentang Source Code Stok Barang dalam Pascal, semoga bermanfaat.

Source Code Data Pegawai dalam Pascal

Source Code Data Pegawai dalam Pascal - Program berikut berfokus pada penghitungan gaji karyawan berdasarkan pendidikan terakhir dan lama bekerja.

Berikut ini source code data pegawai menggunakan compiler dev-pascal :

uses crt;
type
pkj=record
   nama: string[25];
   lama_kerja: integer;
   pendidikan: string[3];
   golongan: char;
   jabatan: string[20];
   gaji_pokok: real;
   tunjangan: real;
   total_gaji: real;
end;
var
   p: pkj;
   lagi: char;
begin
clrscr;
   lagi:='y';
   while upcase(lagi)='Y' do
   begin
   clrscr;
      gotoxy(30,2); write('INPUT DATA PEKERJA');
      gotoxy(3,3) ; write('____________________________________________________________________________');
      gotoxy(3,5) ; write('Nama                   : '); readln(p.nama);
      gotoxy(3,7) ; write('Lama Kerja (Tahun)     : '); readln(p.lama_kerja);
      gotoxy(3,9) ; write('Pendidikan (sma,d3,s1) : '); readln(p.pendidikan);
         if p.lama_kerja <= 5 then
            begin
            if p.pendidikan='sma' then
               begin
                  p.golongan:='1';
                  p.jabatan:='Office Boys';
               end
            else
            if p.pendidikan='d3' then
               begin
                  p.golongan:='2';
                  p.jabatan:='Staff Administrasi';
               end
            else
            if p.pendidikan='s1' then
               begin
                  p.golongan:='3';
                  p.jabatan:='Kasi';
               end
            end
            else
          if p.lama_kerja <= 10 then
            begin
            if p.pendidikan='sma' then
               begin
                  p.golongan:='2';
                  p.jabatan:='Staff Administrasi';
               end
            else
            if p.pendidikan='d3' then
               begin
                  p.golongan:='3';
                  p.jabatan:='Kasi';
               end
            else
            if p.pendidikan='s1' then
               begin
                  p.golongan:='4';
                  p.jabatan:='Kabag';
               end
            end
            else
            if p.lama_kerja > 10 then
            begin
            if p.pendidikan='sma' then
               begin
                  p.golongan:='3';
                  p.jabatan:='Kasi';
               end
            else
            if p.pendidikan='d3' then
               begin
                  p.golongan:='4';
                  p.jabatan:='Kabag';
               end
            else
            if p.pendidikan='s1' then
               begin
                  p.golongan:='5';
                  p.jabatan:='Manager';
               end
            end;
      gotoxy(3,11); write('Golongan    : ',p.golongan);
      gotoxy(3,13); write('Jabatan     : ',p.jabatan);
            if p.golongan='1' then
               begin
                  p.gaji_pokok:=700000;
                  p.tunjangan:=20*p.gaji_pokok/100;
               end
               else
            if p.golongan='2' then
               begin
                  p.gaji_pokok:=900000;
                  p.tunjangan:=18*p.gaji_pokok/100;
               end
               else
            if p.golongan='3' then
               begin
                  p.gaji_pokok:=1200000;
                  p.tunjangan:=17*p.gaji_pokok/100;
               end
               else
            if p.golongan='4' then
               begin
                  p.gaji_pokok:=1700000;
                  p.tunjangan:=15*p.gaji_pokok/100;
               end
               else
            if p.golongan='5' then
               begin
                  p.gaji_pokok:=2200000;
                  p.tunjangan:=12*p.gaji_pokok/100;
               end;
      gotoxy(3,15); write('Gaji Pokok  : ',p.gaji_pokok:8:0);
      gotoxy(3,17); write('Tunjangan   : ',p.tunjangan:8:0);
      p.total_gaji:=p.gaji_pokok+p.tunjangan;
      gotoxy(3,19); write('Total Gaji  : ',p.total_gaji:8:0);
      gotoxy(3,23); write('MASUKAN DATA LAGI ? ');
readln(lagi);
end;
end. 

Sekian artikel tentang Source Code Data Pegawai dalam Pascal, semoga bermanfaat.

Source Code Sewa Hotel dalam Pascal

Source Code Sewa Hotel dalam Pascal - Program berikut membahas tentang sistem input data sewa hotel.

Program ini tidak tersimpan ke dalam database, hanya berupa proses yang menghitung banyak anak dan fasilitas yang diinginkan.

Berikut ini source code sewa hotel menggunakan compiler dev-pascal :

uses crt;
 type sewa = record
  nama: string[25];
  bnyk_anak: byte;
  hrg_sewa: longint;
  lm_sewa: byte;
  nofas_tam: byte;
  nmafas_tam: string[10];
  hrgfas_tam: longint;
  tot_bayar: longint;
end;
var
 s: sewa;
 lagi: char;
begin
clrscr;
 lagi:= 'y';
 while upcase(lagi) = 'Y' do
 begin
 clrscr;
  gotoxy(32,2); write('INPUT DATA PENYEWA');
  gotoxy(3,3) ; write('============================================================================');
  gotoxy(3,5) ; write('Nama Penyewa          : '); readln(s.nama);
  gotoxy(3,7) ; write('Banyak Anak           : '); readln(s.bnyk_anak); gotoxy(29,7); write('Orang');
  if s.bnyk_anak = 1 then
     s.hrg_sewa:= 125000
  else
     s.hrg_sewa:= 250000;
  gotoxy(3,9) ; write('Harga Sewa            : ',s.hrg_sewa);
  gotoxy(3,11); write('Lama Sewa             : '); readln(s.lm_sewa); gotoxy(29,11); write('Bulan');
  gotoxy(3,13); write('No Fasilitas Tambahan : '); readln(s.nofas_tam);
  if s.nofas_tam = 1 then
   begin
    s.nmafas_tam:= 'TV';
    s.hrgfas_tam:= 15000;
   end
  else
  if s.nofas_tam = 2 then
   begin
    s.nmafas_tam:= 'PC';
    s.hrgfas_tam:= 15000;
   end
  else
  if s.nofas_tam = 3 then
   begin
    s.nmafas_tam:= 'Magic Com';
    s.hrgfas_tam:= 10000;
   end;
  gotoxy(3,15); write('Nama Fasilitas        : ',s.nmafas_tam);
  gotoxy(3,17); write('Harga Fasilitas       : ',s.hrgfas_tam);
  s.tot_bayar:= (s.hrg_sewa*s.lm_sewa)+(s.hrgfas_tam*s.lm_sewa);
  gotoxy(3,19); write('Total Biaya           : ',s.tot_bayar);
  gotoxy(3,23); write('Masukan data lagi Y/T ? '); readln(lagi);
 end;
end. 

Sekian artikel tentang Source Code Sewa Hotel dalam Pascal, semoga bermanfaat.

Source Code CRUD dalam Pascal

Source Code CRUD dalam Pascal - Setelah membahas CRUD dalam pascal tentang Data Mahasiswa, maka jadilah suatu Sistem Informasi Data Mahasiswa dari source code yang terpisah.

Menyatukan kode program dalam pascal menggunakan perintah Procedure, berikut program lengkap Data Mahasiswa dalam Software House kali ini.

Berikut ini source code CRUD, program berikut menggunakan compiler dev-pascal :

uses crt;
var
   pilih: byte;

procedure Input_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 rewrite(fmhs);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rmhs do
  begin
   gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');
   gotoxy(5,8)  ;write('Nama Mahasiswa        : ');
   gotoxy(5,10) ;write('Nilai Mahasiswa       : ');
   gotoxy(30,6) ;readln(npm);
   gotoxy(30,8) ;readln(nama);
   gotoxy(30,10);readln(nilai);
  end;
   write(fmhs,rmhs);
   gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
   readln(lagi);
 end;
   close(fmhs);
end;



procedure Tambah_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 {$I-}
 reset(fmhs);
 {$I+};
 if ioresult<>0 then rewrite(fmhs);
    seek(fmhs,filesize(fmhs));
    lagi:='y';
    while upcase(lagi)='Y' do
    begin
    clrscr;
     with rmhs do
     begin
      gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');
      gotoxy(5,8)  ;write('Nama Mahasiswa        : ');
      gotoxy(5,10) ;write('Nilai Mahasiswa       : ');
      gotoxy(30,6) ;readln(npm);
      gotoxy(30,8) ;readln(nama);
      gotoxy(30,10);readln(nilai);
     end;
    write(fmhs,rmhs);
    gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
    readln(lagi);
    end;
    close(fmhs);
end;



procedure Lihat_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 clrscr;
 writeln('-------------------------------------------------------------');
 writeln('NPM                    nama mahasiswa                   nilai');
 writeln('-------------------------------------------------------------');
  while not eof (fmhs) do
  begin
   read(fmhs,rmhs);
   with rmhs do
      writeln(npm:7,nama:25,nilai:29:0);
  end;
   writeln('-------------------------------------------------------------');
   close(fmhs);
   readln;
end;



procedure Cari_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 i,jml: integer;
 nocari: string[7];
 lagi: char;
 ketemu: boolean;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 jml:= filesize(fmhs);
 lagi:='y';
  while upcase(lagi)='Y' do
 begin
 clrscr;
  ketemu:= false;
  write('Masukan npm yang dicari : ');
  readln(nocari);
  writeln;
   for i:= 1 to jml do
   begin
    seek(fmhs,i-1);
    read(fmhs,rmhs);
    if rmhs.npm=nocari then
       begin
        ketemu:= true;
        writeln('Nama Mahasiswa  : ',rmhs.nama);
        writeln('Nilai Mahasiswa : ',rmhs.nilai:2:0);
       end;
   end;
    if not ketemu then
       writeln('Tidak nomor tersebut!!!');
       writeln;
       write('cari data lagi [Y/T] ? ');
       readln(lagi);
 end;
  close(fmhs);
end;



procedure Koreksi_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 i,jml: integer;
 nocari: string[7];
 ketemu: boolean;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 jml:= filesize(fmhs);
 lagi:='Y';
  while upcase(lagi)='Y' do
 begin
  ketemu:= false;
  clrscr;
   write('Nomor pokok mahasiswa yang dicari : '); readln(nocari);
   writeln;
    for i:= 1 to jml do
    begin
     seek(fmhs,i-1);
     read(fmhs,rmhs);
     if rmhs.npm=nocari then
        begin
         with rmhs do
         begin
          ketemu:= true;
          writeln('Nomor Pokok Mahasiswa  : ',npm:7);
          write('Koreksinya                 : '); readln(npm);
          writeln('Nama Mahasiswa         : ',nama);
          write('Koreksinya                 : '); readln(nama);
          writeln('Nilai Mahasiswa        : ',nilai:2:0);
          write('Koreksinya                 : '); readln(nilai);
         end;
        end;
         seek(fmhs,i-1);
         write(fmhs,rmhs);
    end;
    if not ketemu then
       writeln('Tidak nomor tersebut!!!');
       writeln;
       write('ada lagi yang akan dikoreksi [Y/T] ? ');
       readln(lagi);
 end;
  close(fmhs);
end;



procedure Hapus_data;
type
 mhs = record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 nourut,i,jml: integer;
 nocari: string[7];
 ketemu: boolean;
 lagi,ya: char;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 lagi:= 'Y';
  while upcase(lagi)='Y' do
 begin
 clrscr;
  jml:= filesize(fmhs);
  write('Nomor record yang dihapus (1  -',jml:3,') ? ');
  readln(nourut);
  writeln;
  if (nourut < 1) or (nourut > jml) then
     writeln('Tidak ada no record ini !!!')
  else
     begin
      for i:= nourut to jml do
      begin
       seek(fmhs,i-1);
       read(fmhs,rmhs);
       with rmhs do
       begin
        writeln('Nama Mahasiswa   : ',rmhs.nama);
        writeln('Nilai Mahasiswa  : ',rmhs.nilai:6:2);
       end;
      end;
       writeln;
       write('Yakin data ini akan dihapus [Y/T] ? '); readln(ya);
       if upcase(ya) = 'Y' then
          begin
           seek(fmhs,nourut-1);
           truncate(fmhs);
          end;
     end;
      writeln;
      write('ada lagi yang akan dicari [Y/T] ? '); readln(lagi);
 end;
  close(fmhs);
end;




begin
 while true do
 begin
 clrscr;
  gotoxy(20,2); write('**MENU UTAMA**');
  gotoxy(5,5); write('1. Input data awal');
  gotoxy(5,7); write('2. Tambah data');
  gotoxy(5,9); write('3. Lihat semua data');
  gotoxy(5,11); write('4. Lihat data tertentu');
  gotoxy(5,13); write('5. Edit data');
  gotoxy(5,15); write('6. Hapus data');
  gotoxy(5,17); write('7. Selesai');
  pilih := 0;
   while (pilih < 1) or (pilih > 7 ) do
  begin
   gotoxy(5,20); write('Masukan pilihan : ');
   readln(pilih);
   if (pilih < 1) or (pilih > 7) then
      write (^G);
   case pilih of
    1: Input_data;
    2: Tambah_data;
    3: begin
        lihat_data;
        writeln;
        write('Tekan enter untuk kembali ke MENU');
         readln;
       end;
    4: Cari_data;
    5: Koreksi_data;
    6: Hapus_data;
    7: Exit;
  end;
 end;
end;
end. 

Sekian artikel tentang Source Code CRUD dalam Pascal, semoga bermanfaat.