SHARE
TWEET

Latihan 3 Free Pascal Console

stevennathaniel Dec 23rd, 2013 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan3;
  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. var
  14.  
  15.   Meal: Byte;
  16. begin
  17.  
  18.   writeln('Selamat datang di Restoran Simpang 4, silahkan memilih makanan 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 - Jus Jeruk     (1$)');
  25.   writeln('6 - Susu          (1$)');
  26.  
  27.   writeln;
  28.  
  29.   write('Silahkan masukan pilihan anda: ');
  30.  
  31.   readln(Meal);
  32.  
  33.  
  34.   if Meal = 1 then
  35.  
  36.   writeln('Anda telah memesan Ayam, ini membutuhkan waktu 15 menit')
  37.  
  38.   else
  39.  
  40.     if Meal = 2 then
  41.  
  42.     writeln('Anda telah memesan Ikan, ini membutuhkan waktu 12 menit')
  43.  
  44.     else
  45.  
  46.       if Meal = 3 then
  47.  
  48.       writeln('Anda telah memesan daging sapi, ini membutuhkan waktu 18 menit')
  49.  
  50.       else
  51.  
  52.         if Meal = 4 then
  53.  
  54.         writeln('Anda telah memesan Salad, ini akan membutuhkan waktu 5 menit')
  55.  
  56.         else
  57.  
  58.           if Meal = 5 then
  59.  
  60.           writeln('Anda telah memesan Jus Jeruk,' ,' ini membutuhkan waktu 2 menit')
  61.  
  62.           else
  63.  
  64.             if Meal = 6 then
  65.  
  66.             writeln('Anda sudah memesan Susu, ini akan membutuhkan waktu 1 menit')
  67.  
  68.  
  69.             else
  70.  
  71.               writeln('Anda memasukan data yang salah');
  72.  
  73.   readln;
  74.  
  75. end.
RAW Paste Data
Top