-
Notifications
You must be signed in to change notification settings - Fork 0
/
TIKETO.pas
99 lines (90 loc) · 2.66 KB
/
TIKETO.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
program TIKETO;
{Aplikasi TIKETO untuk mempermudah pembelian tiket bioskop}
uses
utiketo,
uload,
umovie,
umember,
utransaksi,
usnack;
{KAMUS}
var
dataFilm :arrayFilm;
neffFilm :longint;
dataTayang :arrayTayang;
neffTayang :longint;
dataKapasitas :arrayKapasitas;
neffKapasitas :longint;
dataPemesanan :arrayPemesanan;
neffPemesanan :longint;
dataMember :arrayMember;
neffMember :longint;
today :Tanggal;
pilihan :string;
dataSnack :arraySnack;
neffSnack :longint;
dataPemesananSnack : arrayPemesananSnack;
neffPemesananSnack : longint;
procedure doLoad();
begin
load(
dataFilm,
dataTayang,
dataKapasitas,
dataPemesanan,neffPemesanan,
dataMember,neffMember,
today);
neffFilm:=jumlahFilm(); neffTayang:=jumlahTayang();
neffKapasitas:=jumlahKapasitas();
getDataSnack(dataSnack, neffSnack, dataPemesananSnack, neffPemesananSnack);
end;
procedure doExit();
begin
exit(
dataFilm,
dataTayang,
dataKapasitas,
dataPemesanan,neffPemesanan,
dataMember,neffMember);
simpanDataSnack(dataSnack, neffSnack, dataPemesananSnack, neffPemesananSnack);
end;
begin
//inisialisasi
showHeader;
doLoad;
write('menu > ');readln(pilihan);
pilihan:=lowerCase(pilihan);
while (pilihan<>'exit') do begin
if (isMenu(pilihan)) then begin {jika menu yang diinput benar}
{mengecek tiap menu}
case pilihan of
'nowplaying' : nowPlaying(dataTayang,neffTayang,today);
'upcoming' : upcoming(dataTayang,neffTayang,today);
'schedule' : schedule(dataTayang);
'genrefilter' : genrefilter(dataFilm);
'ratingfilter' : ratingfilter(dataFilm);
'searchmovie' : getJudulFilm(dataFilm,neffFilm);
'showmovie' : showMovie (dataFilm, neffFilm);
'shownextday' : showNextDay(dataTayang,neffTayang,today);
'selectmovie' : selectMovie (dataFilm,dataKapasitas,neffKapasitas,dataPemesanan,neffPemesanan);
'paymember' : payMember(dataMember,neffMember,dataPemesanan,neffPemesanan);
'paycreditcard' : paycreditcard(dataPemesanan,neffPemesanan);
'buysnack' : buysnack(dataSnack, neffSnack, dataPemesananSnack, neffPemesananSnack, dataMember, neffMember);
'registermember': registermember(dataMember,neffMember);
'help' : help;
'about' : about;
end;
write('menu > ');readln(pilihan);
showHeader();
writeln('menu > ',pilihan);
pilihan:=lowerCase(pilihan);
end else begin {jika tidak termasuk menu}
showHeader;
writeln('menu > ',pilihan);
writeln('Tidak ada menu "',pilihan,'" ketik "help" untuk info bantuan');
write('menu > ');readln(pilihan);
pilihan:=lowerCase(pilihan);
end;
end;
doExit;
end.