Le langage Pascal

  ^ Implémentation
  Retour  |  Accueil  |  Ecrire

Motivation

 

Organisation

Le Pascal est un langage différentiant les fonctions (retournant une valeur) des procédures (effectuant uniquement un traitement).

Librairies réutilisables (.tpu en Turbo Pascal).

Exemples

Un exemple de code source Turbo Pascal est :

program ExemplePascal;   { Exemple de programme Pascal }

uses Dos, Crt;

type PtrDiskParam   = ^DiskParamBlock;
     DiskParamBlock = record
                        Segment, Offset : Word;
                        Suivant         : PtrDiskParam;
                      end;

var List : PtrDiskParam;

function SegPremierDBP : Word;
var Regs : Registers;
begin
  if (
regs.Flags and 1 = 1) then
    
SegPremierDBP := $FFFF;
  else
     
SegPremierDBP := MemW[Regs.Es:(Regs.Bx+2)];
end;


procedure ConstruitListe (var PtrListe : PtrDiskParam);
var Actuel, Suivant : PtrDiskParam;
begin
   
Actuel := PtrListe;
   while
actuel^.Offset <> $FFFF do
   begin
     
{ Etc. }
   end;
end;


begin
  
ConstruitListe (Liste);
end.

Des exemples de Pascal sont :

Notes

  Retour  |  Accueil  |  Ecrire