SHARE
TWEET

Latihan 5 Console Free Pascal

stevennathaniel Jan 1st, 2014 161 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan5;
  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.   Key: Char;
  16. begin
  17.  
  18.   write('Silahkan memasukan huruf apa saja dalam bahasa Inggris: ');
  19.   readln(key);
  20.   writeln;
  21.  
  22.   case Key of
  23.  
  24.   'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p':
  25.  
  26.     writeln('Inilah huruf yang ada di baris kedua di keyboard');
  27.  
  28.   'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l':
  29.  
  30.     writeln('inilah huruf yang ada di baris ketiga di keyboard');
  31.  
  32.   'z', 'x', 'c', 'v', 'b', 'n', 'm':
  33.  
  34.     writeln('inilah huruf yang ada di baris keempat di keyboard') ;
  35.  
  36.  
  37.   else
  38.  
  39.     writeln('huruf tidak dikenali');
  40.  
  41.  
  42.   end;
  43.  
  44.     write('Tekanlah tombol ENTER untuk menutup');
  45.     readln;
  46.  
  47. end.
RAW Paste Data
Top