CASE OF

CASE OF

Case of pada pascal yaitu pernyataan pada bahasa pemrograman pascal untuk menyelesaikan masalah yang banyak. dibawah ini adalah tugas dari saya tentang case of jual beli kertas fotocopy'an.

PROGRAM JUAL_BELI_KERTAS;
USES CRT;
VAR
KODE,JUMLAH,HARGA:INTEGER;
BEGIN
CLRSCR;
WRITELN('KETERANGAN KODE');
WRITELN('1=POLIO                          HARGA = Rp 200,00');
WRITELN('2=KERTAS A4                 HARGA = Rp 150,00');
WRITELN('3=KERTAS WARNA       HARGA = Rp 250,00');
WRITELN('4=ART KARTON             HARGA = Rp 200,00');
WRITELN('5=KERTAS A4S               HARGA = Rp 150,00');
WRITELN('6=ART PAPER                  HARGA = Rp 100,00');
WRITELN('---------------------------------------------------');


WRITELN('KODE KERTAS=');
READLN(KODE);
WRITELN('JUMLAH KERTAS=');
READLN(JUMLAH);
CASE KODE OF
1: HARGA:= (200*JUMLAH);
2: HARGA:= (150*JUMLAH);
3: HARGA:= (250*JUMLAH);
4: HARGA:= (200*JUMLAH);
5: HARGA:= (150*JUMLAH);
6: HARGA:= (100*JUMLAH);
END;

WRITELN('HARGA=','Rp ',HARGA,'.00');
READLN(HARGA);
END.