PROGRAM KASIR

PROGRAM KASIR

uses wincrt;

label kembali;

type data=array[1..100] of string;

     jml =array[1..100] of integer;

var n,i         :integer;

    barang      :data;

    harga       :jml;

    total       :integer;

    bayar       :integer;

    total2      :integer;

begin

kembali:writeln;

clrscr;

writeln('nama    : mohamad echa putra ');

writeln('nim     : A2.1100133');

gotoxy(25,4);writeln('PROGRAM KASIR');

gotoxy(19,5);writeln('===================================');

gotoxy(20,7);write('jumlah barang yang di beli     : ');readln(n);

i:=0;

for i:=1 to n do

begin

writeln;

write('nama barang ',i,'     : ');readln(barang[i]);

write('harga       ',i,'     : ');readln(harga[i]);

end;

clrscr;

 gotoxy(20,1);writeln('========================================');

gotoxy(20,2);writeln('NAMA BARANG            |HARGA          |');

gotoxy(20,3);WRITELN('========================================');

for i:=1 to n do

begin

writeln(barang[i]:25,'            |',harga[i]:10);

WRITELN('         _________________________________________________');

total:=total+harga[i];

end;

writeln('total : ':30,total);

write('pembayaran : ');readln(bayar);

if ( bayar>total) then

begin

total2:=bayar-total;

writeln('jumlah uang pengembalian = ',total2);

writeln('teimakasih');

readln;

goto kembali;

end

    else if (bayar=total) then

    begin

    writeln('terimakasih');

    readln;

    goto kembali;

    end

    else if (bayar<total) then

    begin

    writeln('maaf uang yang anda kasih tidak cukup untuk membeli produk yang di jual oleh kami');

    readln;

    goto kembali;

    end;

end.

STUDY KASUS PERBANK-KAN

STUDY KASUS PERBANK-KAN

uses wincrt;

label menu,ulang,ulang2,ulang3,ulang4,ulang5;

type bank        =record

     no_rek      :string;

     nama        :string;

     alamat      :string;

     pekerjaan   :string;

     pinjam      :string;

     simpan      :string;

end;

     data=array[1..16]of bank;

var a  :bank;

   jml :data;

    i,n    :integer;

    pil  : char;

   

begin

i:=0;

menu : writeln;

clrscr;

writeln('mohamad echa putra ');

writeln('A2.1100133');

gotoxy(20,7);writeln('study kasus perBANK-an ');

gotoxy(10,8);writeln('============================');

gotoxy(10,9);writeln('1. simpan uang');

gotoxy(10,10);writeln('2. pinjam uang');

gotoxy(10,11);writeln('3 tampilan uang yang di simpan');

gotoxy(10,12);writeln('4. tampilan uang yang di pinjam');

gotoxy(10,13);writeln('==============================');

gotoxy(15,14);write('pilih : ');readln(pil);

if (pil='1')then

begin

ulang : writeln;

clrscr;

write('berapa orang yang akan menyimpan uang : ');readln(n);

for i:=1 to n do

begin

clrscr;

write('NO.REKENING                         : ');readln(jml[i].no_rek);

write('NAMA LENGKAP                        : ');readln(jml[i].nama);

write('berapa rupiah yang akan anda simpan : ');readln(jml[i].simpan);

readln;

writeln('data ',i,' telah tersimpan');

end;

writeln;

write('apakah anda ingin menyimpan uang lagi [Y/T]: '); readln(pil);

if (pil='Y') or (pil='y')then

begin

goto ulang;

end;

if(pil='T') or (pil='t') then

begin

goto menu;

end;

end;

if (pil='2')then

begin

ulang2 : writeln;

clrscr;

write('berapa orang yang akan meminjam uang : ');readln(n);

for i:=1 to n do

begin

clrscr;

write('NAMA                                  : ');readln(jml[i].nama);

write('ALAMAT                                : ');readln(jml[i].alamat);

write('PEKERJAAN                             : ');readln(jml[i].pekerjaan);

write('JUMLAH UANG YANG DI BUTUHKAN          : ');readln(jml[i].pinjam);

readln;

writeln('data telah ',i,' tersimpan...');

end;

writeln;

write('apakah anda ingin meminjam uang lagi [Y/T]: '); readln(pil);

if (pil='Y') or (pil='y')then

begin

goto ulang2;

end;

if(pil='T') or (pil='t') then

begin

goto menu;

end;

end;

if (pil='3')then

begin

ulang3 : writeln;

clrscr;

writeln('DATA-DATA YANG MENYIMPAN UANG ');

WRITELN('no,rekening         |nama                      |jumlah_uang            |');

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

for i:=1 to n do

begin

writeln(jml[i].no_rek:10,'         |',jml[i].nama:15,'      | Rp.':10,jml[i].simpan,'.00');

writeln('_________________________________________________________________________');

end;

write('kembali ke menu [Y/T]: '); readln(pil);

if (pil='T') or (pil='t')then

begin

goto ulang3;

end;

if(pil='Y') or (pil='y') then

begin

goto menu;

end;

end;

if (pil='4')then

begin

ulang4:writeln;

clrscr;

writeln;

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

writeln('DATA-DATA YANG PINJAM UANG ');

WRITELN('nama            | alamat                |pekerjaan         | jumlah pinjaman    |');

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

for i:=1 to n do

begin

writeln;

writeln(jml[i].nama:10,'     | ',jml[i].alamat:10,'             |',jml[i].pekerjaan:10,'  | Rp.':10,jml[i].pinjam,'.00');

writeln('_________________________________________________________________________');

end;

write('kembali ke menu [Y/T]: '); readln(pil);

if (pil='T') or (pil='t')then

begin

goto ulang4;

end;

if(pil='Y') or (pil='y') then

begin

goto menu;

end;

end;

end.