Program Cafe Sederhana Dengan Pascal

uses crt;
label mlg,slesai,lgm,log,awal,minumkah,bayarlg,ulangminum;

var
loding,pilma,pilmi,pila,jum,nm:integer;
pmlg,pmlagi,trylog,user,t,pass,pa,pm,ulangmi,ts,makanan,minuman:string;
tmin,tmak,totalma,total,totalm,bayar,kembali:longint;
Const

a='Nasigoreng ';
b='piza ';
c='Burger ';
d='Hot Dog ';
e='Capuchino Cookies ';
f='Chocolate Love ';
g='Guava Juice ';
h='Avocado juice ';
hmnasgor=7000;
hmpiza=35000;
hmburger=12000;
hmhotdog=10000;
hackkies=6000;
hachoklo=7000;
haguavaj=3500;
haavukaj=3500;


procedure loko;
begin
write('loading');
 loding := 1;
while loding <= 5 do
begin
loding:=loding+1;
t:='.';
Write(t); delay(1500);
end;
end;

Begin

repeat
log:
clrscr;


        write('Masukan User Name : ');
        readln(user);
        if user='ISWANTO' then user:='iswanto'
        else if user<>'iswanto' then write('Maaf User Name yg anda masukan Salah...!!!');
        readln;
        if user<>'iswanto' then goto log;
        until user='iswanto';
        write('masukan password  : '); readln(pass);

if pass='KMZWA8AWAA' THEN PASS:='kmzwa8awaa'
else if (pass<> 'kmzwa8awaa') then writeln('Pasword yg anda Masukan Salah...!!! ');
if pass <> 'kmzwa8awaa' then write('coba lagi?(y/t): ');
readln(trylog);
if (trylog='y') or (trylog='Y') then goto log;

loko;
if trylog='t' then goto slesai;
if pass<>'kmzwa8awaa' then goto slesai;




awal:
textcolor(white);
clrscr;
writeln('     >>>>> Ice Cafe <<<<<');
writeln('');
writeln('+----------------------------+');
writeln('|        Menu Makanan        |');
writeln('+----------------------------+');
writeln('|No| Makanan      + Harga    |');
writeln('+--+--------------+----------+');
writeln('|1 | Nasi Goreng  | Rp.7000  |');
writeln('|2 | piza         | Rp.35000 |');
writeln('|3 | Burger       | Rp.12000 |');
writeln('|4 | HotDog       | Rp.10000 |');
writeln('+--+--------------+----------+');
writeln;
write ('Apakah anda akan memesan Makanan?(y/n): ');
readln(pm);
if pm='Y' then pm:='y';
if pm<>'y' then goto minumkah;

if pm='y' then
begin
lgm:
write('Nomor Brapa yg akan anda Pesan ? '); readln(pilma);

write('Jumlah: '); readln(jum);
end;
case pilma of
1:makanan:=a;
2:makanan:=b;
3:makanan:=c;
4:makanan:=d;
else write('Menu tidak tersedia');
readln;
goto awal;
end;

case pilma of
1:tmak:=tmak+(hmnasgor*jum);
2:tmak:=tmak+(hmpiza*jum);
3:tmak:=tmak+(hmburger*jum);
4:tmak:=tmak+(hmhotdog*jum);
else writeln('meu tidak ada dalam daftar')  ;
end;

case pilma of
1:totalma:=(hmnasgor*jum);
2:totalma:=(hmpiza*jum);
3:totalma:=(hmburger*jum);
4:totalma:=(hmhotdog*jum);
else writeln('meu tidak ada dalam daftar')  ;
end;
write('Anda memesan ',jum,' ',makanan,' dengan total Rp.',totalma);
writeln('');
write('Apakah Anda ingin memesan makanan yg lainnya juga?(y/t): ');
readln(pmlagi);
writeln('');
if (pmlagi='Y')or (pmlagi='y')then goto lgm;



begin
minumkah:
writeln('');
write('apakah anda ingin memesan minuman(y/n): ');
readln(pa);

if pa='Y' then pa:='y';
if (pa<>'y') and (pm<>'y') then goto awal;
if pa<>'y' then goto bayarlg;
if pa='y' then
begin

ulangminum:
clrscr;
writeln('     >>>>> Ice Cafe <<<<<');
writeln('');
writeln('+---------------------------------+');
writeln('|        Menu Minuman             |');
writeln('+--+-------------------+----------+');
writeln('|No| Minuman           | Harga    |');
writeln('+--+-------------------+----------+');
writeln('|1 | Capuchino Cookies | Rp.6000  |');
writeln('|2 | Chocolate Love    | Rp.7000  |');
writeln('|3 | Guava Juice       | Rp.3500  |');
writeln('|4 | Avocado Juice     | Rp.3500  |');
writeln('+--+-------------------+----------+');
writeln;
mlg:
write('Nomor Brapa yg akan anda Pesan ? ');
readln(pilmi);
case pilmi of
1:minuman:=e;
2:minuman:=f;
3:minuman:=g;
4:minuman:=h;
else write('Menu tidak tersedia');
readln;
goto ulangminum;
end;
write('Jumlah: ');
readln(jum);

case pilmi of
1:totalm:=(hackkies*jum);
2:totalm:=(hachoklo*jum);
3:totalm:=(haguavaj*jum);
4:totalm:=(haavukaj*jum);
else goto ulangminum;
end;

case pilmi of
1:tmin:=tmin+(hackkies*jum);
2:tmin:=tmin+(hachoklo*jum);
3:tmin:=tmin+(haguavaj*jum);
4:tmin:=tmin+(haavukaj*jum);
else goto ulangminum;
end;

writeln('');
write('Anda memesan ',jum,' ',minuman,' dengan total Rp.',totalm);
writeln('');
write('Apakah Anda ingin memesan minuman yg lainnya juga?(y/t): ');
readln(pmlg);
if (pmlg='Y')or (pmlg='y')then goto mlg ;

bayarlg:
writeln('');
loko;
clrscr;
total:=tmin+tmak;
writeln('');
writeln('>>>>> Nota Pembayaran <<<<<');
writeln('Jadi Total Bayar:');
writeln('Total Makanan Rp.',tmak);
writeln('Total Minuman Rp.',tmin);
writeln('--------------------------');
writeln('Total Bayar:  Rp.',total);
write  ('Uang Bayar    Rp.');
readln(bayar);
kembali:=bayar-total;
if bayar<total then writeln('Maaf Uang Anda Kurang..!! Bayar lagi...!!!');
if bayar<total then goto bayarlg;
writeln('Uang Kembali  Rp.',kembali);
writeln;
end;
tmak:=0;
tmin:=0;
writeln('Transaksi Selesai ^_^');
writeln('');
textcolor (lightgreen);
write('Apakah Anda Ingin Kluar dr aplikasi ini?(y/t): ');
readln(ts);
if ts='T' then ts:='t';
if ts='t'then goto awal;

end;
slesai:
end.
Maaf jika masih banyak bug dalam program tersebut ^_^

Biodata Siswa menggunakan Pascal Code Array

Uses crt;
label ulang;
const
nimsaya=12012708;
procedure judul;
begin
gotoxy(30,2);textcolor(5); Writeln('Created By Icewanto');
gotoxy(33,3); writeln('NIM: ',nimsaya);
writeln('');
textcolor(white);
gotoxy(11,5);writeln('+----------------------------------------------------+');
gotoxy(11,6);writeln('|                  BIO DATA MAHA SISWA               |');
gotoxy(11,7);writeln('|           SEKOLAH TINGGI TEKNOLOGINURUL JADID      |');
gotoxy(11,8);writeln('+----------------------------------------------------+');
end;

procedure isi;
begin
gotoxy(7,12);writeln('====+===========+===============+=============+==============+');
textbackground(3);
gotoxy(7,13);writeln('|NO | NIM       | NAMA          | ALAMAT      | UMUR         |');
textbackground(0);
gotoxy(7,14);writeln('====+===========+===============+=============+==============+');
end;
var
        ripit:char;
        nim   : array[1..10] of longint;
        nama  : array[1..10] of string[15];
        alamat: array[1..10] of string;
        umur  : array[1..10] of byte;
        jm,i,x: longint;
begin
ulang:
clrscr;
write('Masukan Jumlah Data yg Akan Di Inputkan :');readln(jm);
writeln;
        for i := 1 to jm do
begin
textbackground(blue);
textcolor(white);
writeln('Biodata ke-',i);
textcolor(white);
textbackground(0);
write(' nim    = ');readln(nim[i]);
write(' nama   = ');readln(nama[i]);
write(' alamat = ');readln(alamat[i]);
write(' umur   = ');readln(umur[i]);
writeln('');
end;


clrscr;
judul;
isi;
        for i :=1 to jm do
begin
textbackground(0);
textcolor(i);
gotoxy(7,14+i);   write('| ',i);
gotoxy(11,14+i);  write('|  ',nim[i]);
gotoxy(23,14+i);  write('|  ',nama[i]);
gotoxy(39,14+i);  write('|  ',alamat[i]);
gotoxy(53,14+i);  write('|  ',umur[i]);
gotoxy(67,14+i);  write(' |');



for x:=x to jm do
write('      ');
end;
textbackground(0);
textcolor(white);
gotoxy(7,15+i); writeln('====+===========+===============+=============+==============+');
readln;
begin
clrscr;
textcolor(white);
write('Apakah Anda ingin Mengulang Lagi?(y/t): ');
readln(ripit);
if (ripit ='y') or (ripit='Y') then goto ulang;
end;
end.

Menampilkan Bilangan Prima

uses crt;

var
b,i,x,sisa:integer;

begin
clrscr;
        write ('Masukan Batas Bilangan Prima yg akan ditampilkan: ');
        readln (b) ;

begin   writeln;
        writeln('2');
        for i:=3 to b do
begin
x:=1;
repeat
x:=x+1;
sisa:=i mod x;
until
(sisa=0) OR (x=i-1);
if sisa <> 0 then writeln (i);
end;
end;
readln;
end.

Kode Login

Karena Saya Dengar di kelas Putri ada yg membutuhkan Kode Login jadi saya share aja disini siapa tau masih dibutuhkan.
cara.a sisipkan saja kode dibawah ini tepat dibawah Begin
untuk Mengubah Passwor.a Ganti saja password "dbsok" pada kode sesuai keinginan anda ^_^
_______________________
repeat
clrscr;
Write('Masukan Password: ');
readln(pass);
if pass='BDSOK' then pass:='dbsok';{Untuk antisipasi jika user menggunakan Capslock}
until pass='dbsok';