TUGAS UAS

Nama : Jaka Firmansyah
Nim : 12089749
Kelas : 12.2A.23

Nama :Rini
Nim :12089742
kelas :12.2A.23
blog :Rini140988.blogspot.com

nim:12089783
nama:fani fauziah
kelas:12.2A.27
blog:vanyangluthu@rocketmail.com

NAMA : WAHYU TRI ATMOJO
KELAS : 12.2A.23.A
NIM : 12089750


TUGAS AKHIR UAS (ARRAY)

PROGRAM UTAMA
INPUT DATA
USES CRT;
VAR
JP,I:BYTE;
NP,NK:ARRAY[1..50] OF STRING;
FSL:ARRAY[1..50] OF CHAR;
JML,HRG,TTL:ARRAY[1..50]OF REAL;
TOT:REAL;
LAGI:CHAR;
LABEL AWAL,AKHIR;
BEGIN
AWAL:
CLRSCR;
WRITELN('STASIUN KERETA" AYO BERHENTI"');
WRITELN('*****************************');
WRITE('MASUKAN JUMLAH PEMESAN:');READLN(JP);
FOR I\;=1 TO JP DO
BEGIN
WRITE('DATA KE-',I);
WRITE('NAMA PEMESAN:');READLN(NP[I]);
WRITE('NAMA KERETA:');READLN(NK[I]);
WRITELN('FASILITAS [1.VVIP 3.BISNIS ');
WRITE(' 2.VIP 4.EKONOMI]=');READLN(FSL[I]);
WRITE('JUMLAH PEMESAN:');READLN(JML[I]);
END;
CLRSCR;
PROGRAM PROSES
WRITELN('**********************************');
WRITELN(' STASIUN KERETA "AYO BERHENTI"');
WRITELN('TABEL PENJUALAN TIKET KERETA API');
WRITELN('**********************************');
WRITELN('NO NAMA PEMESAN NAMA KERETA FASILITAS JUMLAH PEMESAN HARGA TOTAL');
TOT:=0;
FORI:=1 TO JP DO
BEGIN
IF FSL[I]='1' THEN
HRG[I]:=20000
ELSE

IF FSL[I]='2' THEN
HRG[I]:=180000
ELSE

IF FSL[I]='3' THEN
HRG[I]:=140000
ELSE

HRG[I];=80000;
TTL[I]:=HRG[I]*JML[I];
TOT:=TOT+TTL[I];

END;
FORI:=1 TO JP DO
BEGIN
WRITELN(I:1,NP[I]:10,NK[I]:12,FSL[I]:15,JML[I]:17:0,HRG[I]:9:0,TTL[I]:10:0);
END;
PROGRAM OUTPUT

WRITELN('********************************************');
WRITELN('TOTAL PEMBAYARAN ='TOT:8:0);
WRITELN('********************************************');
WRITE('MAU INPUT DATA LAGI[Y/T]=');READLN(LAGI);
IF(LAGI='Y')OR(LAGI='y') THEN
GOTO AWAL
ELSE
GOTO AKHIR;
AKHIR:
READLN;
END.


PENJELASAN PROGRAM :
PROGRAM INI DISEBUT SISTEM ARRAY
SEPERI BIASA SEBELUM MEMBUAT PROGRAM TULISKAN USES,VAR ETC.
KEMUDIAN MASUKAN DATA BERSERTA TYPE NYA
UNTUK PROGRAM PROSES GUNAKAN FOR I(SEBAGAI ARRAY UNTUK MEMANGGIL APA YANG KITA AKAN KITA KERJAKAN
[I]..MEWAKILI KERETA
GUNAKAN IF BERSARANG UNTUK JENIS FASILITAS DAN HARGA KERETA[I]

SETELAH SEMUA SELESAI GUNAKAN GOTO
DAN IF MASUKAN DATA LAGI[Y/y] OR
SELESAI..


PENULISAN MASIH BANYAK KEKURANGGAN MOHON BANTUAN NYA..TERIMAKASIH
WASS..

Listing programnya di letakkan di blog kamu yaa.....

nama :wahyu tri atmojo
kelas : 12.2A.23.A
nim :12089750
blog :brandal.ibukota.blogspot.com

kelas: 12.2A.23.A

Nama : Rudini
Nim : 12089773
Kelas :12.2A.23

Nama : Rudini
Nim : 12089773
Kelas :12.2A.23
Alamat Blog :www.rudiniruth.blogspot.com

Nama :Nurhidayah
NIM :12089816
Kelas :12.2A.23