forum kita: PASKAL

Tampilkan postingan dengan label PASKAL. Tampilkan semua postingan

Selasa, 06 Desember 2011

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;

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;

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;

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.

Rabu, 30 November 2011

P R O G R A M D A T A M A H A S I S W A

P R O G R A M D A T A M A H A S I S W A

uses wincrt;

const max=15; d ='1234';

type mhs = record

nim : string[10]; nama : string[15]; alamat : string; ttl : string; jurusan : string;

kelas : string; prog : string; total :real; end;

Jml=array [1..max] of mhs; {deklarasi array dari type mhs sebanyak 10 buah}

var data :mhs; c :jml; i,n,j :integer; pil :char;

a,t,q,ut,us :real; nama :string; pass :string;

begin

n:=0;

REPEAT

clrscr;

gotoxy(35,6);writeln('Masuk');

gotoxy(30,7);writeln('_____________');

gotoxy(30,9);write('| nama : ');readln(nama);

gotoxy(30,10);write('| pass : ');readln(pass);

if pass=d then

begin

repeat

clrscr;

gotoxy(37,1);writeln('SELAMAT DATANG ',nama);

gotoxy(20,5);writeln('| P R O G R A M D A T A M A H A S I S W A |');

gotoxy(37,6);writeln('mohamad echa putra');

gotoxy(19,7);writeln('|==================================================|');

gotoxy(35,9);writeln('***** MENU ***** ');

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

gotoxy(35,11);write('1.TAMBAH DATA MAHASISWA ');

gotoxy(35,12);write('2.TAMPILAN ');

gotoxy(35,13);write('3.KELUAR ');

gotoxy(19,14);writeln('|-------------------------------------------------|');

gotoxy(20,15);write('1..3 PILIHAN : ');pil:=readkey;

case pil of

'1':begin

repeat

clrscr;

n:=n+1;

gotoxy(30,1);writeln('PROGRAM DATA MAHASISWA');

gotoxy(30,2);writeln('mohamad echa putra');

gotoxy(20,3);writeln('--------------------------------------------');

gotoxy(20,4);write('NIM : ');readln(c[n].nim);

gotoxy(20,5);write('NAMA : ');readln(c[n].nama);

gotoxy(20,6);write('TTL : ');readln(c[n].ttl);

gotoxy(20,7);write('JURUSAN : ');readln(c[n].jurusan);

gotoxy(20,8);write('SEMESTER : ');readln(c[n].kelas);

clrscr;

gotoxy(30,1);writeln(' NILAI ');

gotoxy(30,2);writeln('mohamad echa putra');

gotoxy(20,3);writeln('-------------------------------------------');

gotoxy(20,5);write('PROGRAM STUDY : ');readln(c[n].prog);

gotoxy(20,6);write('AKTIVITAS : ');readln(a);

gotoxy(20,7);write('TUGAS : ');readln(t);

gotoxy(20,8);write('QUIZ : ');readln(q);

gotoxy(20,9);write('UTS : ');readln(ut);

gotoxy(20,10);write('UAS : ');readln(us);

gotoxy(20,11);writeln('-------------------------------------------');

c[n].total:=0.1*a+0.2*t+0.3*q+0.4*ut+05*us;

gotoxy(20,12);write('TAMBAH DATA BARU [Y/T] : ');pil:=readkey;

until upcase (pil)<>'Y';

end;

'2' :begin

repeat

clrscr;

gotoxy(30,1);writeln('| DATA MAHASISWA |'); writeln('===============================================================================');

writeln('NIM |NAMA |TTL |JURUSAN |SEMESTER'); writeln('_______________________________________________________________________________');

for i:=1 to n do

begin

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

writeln('NAMA | PROGRAM STUDY | NILAI ');

for i:=1 to n do

begin

writeln(c[i].nama:10,'|',c[i].prog:10,'|',c[i].total:15:2,'|');

writeln('__________________________________________________________________________');

end;

write('KEMBALI KE MENU [Y/T] : ');pil:=readkey;

until upcase (pil)<>'T';

end;

‘3’ :BEGIN

DONEWINCRT;

END;

end;

until pil='3';

end

else

begin;

writeln('maff pass anda salah ');

end;

clrscr;

gotoxy(35,10);write('mencoba masuk kembali [Y/N] : ');readln(pil);

until upcase(pil)<>'Y';

donewincrt;

end.