Selamat malam Gan .
Disini saya akan Berbagi sedikit tentang Bahasa pascal.
Bahasa Pascal adalah bahasa tingkat tinggi yang fungsinya untuk membuat suatu Program yang terstruktur.
Awal dari bahasa Pascal adalah dari seorang bernama Niklaus wirth, seorang profesor di Technical University Zurich, Switzerland, dan mulai menyusun Bahasa Pascal sejak akhir tahun 1960.


Itu sedikit Tentang asal usul Bahasa Pascal, Biar lebih mengetahui sebaiknya kita langsung Belajar Bahasa Pascal Dengan Turbo Pascal 7.0 (langsung ke TKP )
Pertama yang agan Lakukan Download Turbo Pascal 7.0 DISINI
Setelah didownload Kita Coba mambuat sebuah Program dengan TP, Tuliskan Kode Berikut Di TP.
uses crt;

const
havetry=10;

s: array[0..18] of string=
('hello', 'mouse', 'hacher', 'programmer', 'killer', 'teacher', 'splotchier',
 'butcher', 'computer', 'pascal', 'house', 'poor', 'children', 'museum',
 'security', 'spillway', 'stupidity', 'corrigenda', 'freebooter');

var ch: char;
    gue,b,nowwrd,trynow: byte;
    s1,wrs,alr: string;
    r: boolean;
    win: integer;

begin
win:=0;
clrscr;
Writeln('A.Larkin      Hangman      ESC for exit');
writeln;
  11
randomize;
 repeat
  writeln;
  nowwrd:=random(18);
  s1:=s[nowwrd];
  gue:=0;
  wrs:='';
  alr:='';
  trynow:=havetry;
  for b:=1 to length(s[nowwrd]) do write('_');

  repeat
  gotoxy(20,wherey);
  write('You have ',trynow,' tries   ');
  ch:=readkey;
  r:=false;
  if ch<>#0 then
   repeat
    b:=pos(ch,s1);
    if (b<>0) and (s1[b]<>#0) then
     begin
      gotoxy(b,wherey);
      write(s1[b]);
      alr:=alr+ch;
      s1[b]:=#0;
      gue:=gue+1;
      gotoxy(40,wherey);
      write('              ');
      r:=true;
     end else
    if (pos(ch,alr)<>0) and (r=false) then
     begin
      gotoxy(40,wherey);
      write('Already tried!');
     end else
    if (b=0) and (r=false) then
     begin
      trynow:=trynow-1;
      alr:=alr+ch;
      wrs:=wrs+ch;
      gotoxy(57,wherey);
      write('Wrong: ',wrs);
      gotoxy(40,wherey);
      write('              ');
     end;
   until (b=0) or (trynow=0);
  until (ch=#27) or (gue=length(s1)) or (trynow=0);
  if (trynow=0) then
   begin
    win:=win-1;
    delline;
    gotoxy(1,wherey);
    write(s[nowwrd]);
    gotoxy(20,wherey);
    write('You lost!    Your scores is ',win);
   end else
  if (gue=length(s1)) then
   begin
    win:=win+1;
    delline;
    gotoxy(1,wherey);
  12
    write(s[nowwrd]);
    gotoxy(20,wherey);
    write('You win!     Your scores is ',win);
   end;
 until ch=#27;

end.

Setelah agan Tulis semua Kode diatas silahkan Jalankan/Run Program Dengan Menekan Hotkey CTRL+F9
dan Hasilnya Bisa Lihat gambar Dibawah ini.

Program Berhasil Dijalankan.
Belajar Pascal Itu mudahkan, Sekian dulu Pembelajaran Pascal Trim's Sahabat Blogger.
Download Juga Kodenya DISINI