Hikikirjasto:Pascal-ohjelmointi

Kohteesta Hikipedia
Loikkaa: valikkoon, hakuun
Tämä kirja on lainattu Hikikirjastosta.
myöhästymismaksut ovat tähän mennessä jo 214,70 euroa ja kasvavat koko ajan.

Pascal on helvetin epälooginen kieli. Lohdutukseksi voimme sanoa että mikäli olet joskus käyttänyt jotain oikeaa ohjelmointikieltä et tule ikinä oppimaan Pascalia.

Esimerkki 1: Hello World[muokkaa]

PROGRAM COULDYOUPLEASEWRITEHELLOWORLDTOTHESCREEN;

  type
    Buffer = String[255];
    BufPtr = ^Buffer;

  Var B : Buffer;
      BP : BufPtr;
      PP : Pointer;
      p : array[0..Infinity] of Longint;
      c : char;
      i : integer;

Procedure LIcKMyHairyBallS();
var x : integer;
begin
  x := 6;
end;

proceDuRE DoSomeThing();
begin
  (* 12 53w2! *)
  if i < 300 begin;
    (* omfg *)end;
end;

procedure godBlessAmerica();
begin
  exit(0);
end;

BEGIN:
  initializeThePascalMemoryEater();
  lickMyHairyBalls();
  i := 0;
  while i < 1502;
  begin;
    i := i + 2 - 1;
    dosomethinG();
    p[i] := i;
  end;
  write('H');
  B := 'e';
  write(b);
  write('llo');
  c := 51;
  B := ' ';
  write(B);
  i := c * 4 + 5;
  B := 'o';
  write('W');
  write(B);
  write('rld');
  i := 2;
  writeln('!');
  godblessamerica();
THE END.

Esimerkki 2[muokkaa]

Näytöntilan vaihtaminen ja vaihtaminen ja vaihtaminen...

  Begin 
  while true=true do 
  begin 
  Asm 
  Mov AX,0003h 
  Int 10h 
  Mov AX,0013h 
  Int 10h 
  end; 
  end; 
  end.