SHARE
TWEET

Latihan 2 Free Pascal Console

stevennathaniel Dec 23rd, 2013 182 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program project1;
  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. var
  13.  
  14.   Meal: Byte;
  15.  
  16. begin
  17.  
  18.   Writeln('Selamat Datang Di Rumah Makan Simpang 4. Silahkan Memilih Pesanan Anda');
  19.  
  20.   Writeln('1 - Ayam       (10$)');
  21.   Writeln('2 - Ikan       (7$)');
  22.   Writeln('3 - Daging Sapi       (8$)');
  23.   Writeln('4 - Salad  (2$)');
  24.   writeln('5 - Orange Juice  (1$)');
  25.   writeln('6 - Milk   (1$)');
  26.   writeln;
  27.  
  28.   write('Please enter your selection: ');
  29.  
  30.   readln(Meal);
  31.  
  32.   case Meal of
  33.  
  34.   1: writeln('Anda telah memesan Ayam, ', ' ini akan membutuhkan waktu sekitar 15 menit');
  35.  
  36.   2: writeln('Anda telah memesan ikan, ', ' ini akan membutuhkan waktu 12 menit');
  37.  
  38.   3: writeln('Anda telah memesan daging sapi, ', ' ini akan membutuhkan waktu 18 menit');
  39.  
  40.   4: writeln(' Anda telah memesan salad, ', ' ini akan membutuhkan waktu 5 menit');
  41.  
  42.   5: writeln(' Anda telah memesan jus Jeruk, ',' ini akan membutuhkan waktu 2 menit');
  43.  
  44.   6: writeln(' Anda telah memesan Susu, ini akan membutuhkan waktu 1 menit');
  45.  
  46.  
  47.   else
  48.  
  49.     writeln('Input Salah');
  50.  
  51.     end;
  52.  
  53.   write('Tekanlah tombol ENTER untuk menutup');
  54.  
  55.   readln;
  56.  
  57.  
  58.  
  59. end.
RAW Paste Data
Top