SHARE
TWEET

Latihan 12 Free Pascal Console

stevennathaniel Jan 3rd, 2014 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan12;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  7.   cthreads,
  8.   {$ENDIF}{$ENDIF}
  9.   Classes
  10.   { you can add units after this };
  11.  
  12.  
  13. // Program Loop untuk restoran
  14.  
  15. var
  16.  
  17.  
  18. Selection: Char;
  19. Price: Integer;
  20. Total: Integer;
  21.  
  22.  
  23. begin
  24.  
  25.   Total:= 0;
  26.  
  27.   repeat
  28.  
  29.     writeln('Selamat datang di restoran simpang 4. Silahkan memilih pesanan anda');
  30.  
  31.     writeln('1 - Ayam       (10 $)');
  32.     writeln('2 - Ikan       (7 $)');
  33.     writeln('3 - Daging Sapi   (8 $)');
  34.     writeln('4 - Salad  (2 $)');
  35.     writeln('5 - Jus Jeruk (1 $)');
  36.     writeln('6 - Susu      (1 $)');
  37.  
  38.     writeln('X - nothing');
  39.     writeln;
  40.  
  41.     write('Silahkan masukan pilihan anda: ');
  42.     readln(Selection);
  43.  
  44.     case Selection of
  45.  
  46.     '1' : begin
  47.  
  48.       writeln('Anda telah memesan Ayam, ini akan membutuhkan waktu 15 menit');
  49.       Price:=10;
  50.  
  51.       end;
  52.  
  53.     '2' : begin
  54.  
  55.       writeln('Anda telah memesan Ikan, ini akan membutuhkan waktu 12 menit');
  56.       Price:=7;
  57.  
  58.       end;
  59.  
  60.     '3' : begin
  61.  
  62.       writeln('Anda telah memesan daging sapi, ini akan membutuhkan waktu 18 menit');
  63.       Price:=8;
  64.  
  65.  
  66.       end;
  67.  
  68.       '4' : begin
  69.  
  70.         writeln('Anda sudah memesan Salad, ini akan membutuhkan waktu selama 5 menit');
  71.         Price:=2;
  72.  
  73.            end;
  74.  
  75.       '5' : begin
  76.  
  77.         writeln('Anda sudah memesan Jus Jeruk, ini membutuhkan waktu selama 2 menit');
  78.         Price:=1;
  79.  
  80.         end;
  81.  
  82.  
  83.         '6' : begin
  84.  
  85.           writeln('Anda sudah memesan Susu, ini membutuhkan waktu selama 1menit');
  86.           Price := 1;
  87.  
  88.           end;
  89.  
  90.           else
  91.  
  92.           begin
  93.  
  94.               writeln('Anda memasukan data yg salah');
  95.               Price:=0;
  96.               end;
  97.           end;
  98.  
  99.         Total:= Total + Price;
  100.  
  101.         until(Selection = 'x') or (Selection = 'X');
  102.  
  103.         writeln('Total Price   = ', Total);
  104.  
  105.         write('Tekanlah tombol ENTER untuk menutup');
  106.  
  107.         readln;
  108.  
  109.  
  110.  
  111.  
  112.  
  113. end.
RAW Paste Data
Top