SHARE
TWEET

Latihan 16 Free Pascal Console

stevennathaniel Jan 3rd, 2014 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan16;
  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.   Nama: string;
  15.   Alamat: string;
  16.   KTP: string;
  17.   TanggalLahir: string;
  18.  
  19. begin
  20.  
  21.   write('Silahkan menuliskan nama mu: ');
  22.   readln(Nama);
  23.  
  24.   write('Silahkan menuliskan alamat anda: ');
  25.   readln(Alamat);
  26.  
  27.   write('Silahkan masukan nomer KTP anda: ');
  28.   readln(KTP);
  29.  
  30.   write('Silahkan masukan tanggal lahir anda: ');
  31.   readln(TanggalLahir);
  32.  
  33.   writeln;
  34.  
  35.   writeln('Card:');
  36.  
  37.   writeln('-----------------------------------------');
  38.   writeln('| Nama           :   ',   Nama);
  39.   writeln('| Alamat         :   ',   Alamat);
  40.   writeln('| KTP            :   ',   KTP);
  41.   writeln('| Tanggal Lahir  :   ',   TanggalLahir);
  42.   writeln('------------------------------------------');
  43.  
  44.   writeln('Tekanlah tombol ENTER untuk menutup');
  45.   readln;
  46.  
  47.  
  48.  
  49.  
  50. end.
RAW Paste Data
Top