SHARE
TWEET

Latihan 11 Free Pascal Console

stevennathaniel Jan 3rd, 2014 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan11;
  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. // Repeat Until Loop
  13.  
  14. var
  15.  
  16.   Num : Integer;
  17.  
  18. begin
  19.  
  20.   repeat
  21.  
  22.     write('Mohon memasukan sebuah nomer: ');
  23.     readln(num);
  24.  
  25.   until Num <= 0;
  26.  
  27.   writeln('Sudah selesai, mohon menekan tombol ENTER untuk menutup aplikasi');
  28.   readln;
  29.  
  30. end.
RAW Paste Data
Top