Jawaban MID Algo & Pemrog 1- Kel D

KANAN :
program Data_pengunjung;

uses
    wincrt;

var
   nope,wktu     :byte;
   game          : string;
   biaya,ttl_byr :real;

begin
    
     gotoxy(12,3);writeln('Program Pengolahan Data Pengunjung');
     gotoxy(12,4);writeln('==================================');
     writeln;
     write('No Pengunjung    : ');readln(nope);
     write('Lama Bermain     : ');readln(wktu);
     writeln('================================');
     writeln('Shooting,Racing,Fighting,Dancing');
     writeln('================================');
     write('Jenis Game       : ');readln(game);
     clrscr;
    
     if (game='Shooting') or (game='shooting') then
        biaya := 500
     else if (game='Racing') or (game='racing') then
        biaya := 700
     else if (game='Fighting') or (game='Fighting') then
        biaya := 650
     else
        biaya := 800;


     ttl_byr:= biaya * wktu;


     gotoxy(12,3);writeln('TIMEZONE MATARAM');
     gotoxy(9,4);writeln('===^^^^^^^^^^^^^^^^===');
     writeln;
     writeln('No Pengunjung         : ',nope);
     writeln('Jenis Permainan       : ',game);
     writeln('Lama Bermain          : ',wktu,' Menit');
     writeln('Biaya yang dibayar    :Rp.',ttl_byr:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
    
end.


KIRI :

program Data_pengunjung;

uses
    wincrt;

var
   nope,jml:byte;
   menu : string;
   harga,ttl_harga :real;

begin
   
     gotoxy(12,3);writeln('Program Pengolahan Data Pengunjung');
     gotoxy(12,4);writeln('==================================');
     writeln;
     write('No Pembeli       : ');readln(nope);
     writeln('======================================');
     writeln('Kebab standar,Kebab gila,Burger,Hotdog');
     writeln('======================================');
     write('Jenis Menu       : ');readln(menu);
     write('Jumlah           : ');readln(jml);
     clrscr;
   
     if (menu='Kebab standar') or (menu='kebab standar') then
        harga := 11000
     else if (menu='Kebab gila') or (menu='Kebab gila') then
        harga := 10000
     else if (menu='Burger') or (menu='burger') then
        harga := 13000
     else
        harga := 12500;


     ttl_harga := harga * jml;


     gotoxy(12,3);writeln('Kebab Baba Rafi Karang Sukun');
     gotoxy(9,4);writeln('=======^^^^^^^^^^^^^^^^=======');
     writeln;
     writeln('No Pembeli            : ',nope);
     writeln('Menu                  : ',menu);
     writeln('Jumlah                : ',jml,' Buah');
     writeln('Total yang dibayar    :Rp.',ttl_harga:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
   
end.