Langage de programmation - QuickPascal - Jeux & Stratégies

Le jeu Frogger est jeu dont le but est faire traverser à une grenouille une rue sans se faire écraser et ensuite de traverser une rivière en sautant sur des billots sans tomber à l'eau.

Le jeu a été écrit originalement sous le GWBASIC et les dessine des feuilles, des billots et de la grenouilles utilisaient l'instruction DRAW. L'utilisation de cette instruction peut devenir un avantage, car on peut choisir une n'importe quel couleur pour afficher un objet.

Le moteur de jeu est construit à l'aide de deux fonctions, soit RunBillot et RunCar, lesquelles permet respectivement à la grenouilles de traverser les billets et de traverser la rue. La partie RunCar est beaucoup plus facile à mettre en oeuvre, car si le joueur de bouge pas, la grenouille ne bouge pas, tandis que la partie avec les billots nécessite de tenir compte que la grenouille doit bouger à intervalle régulier. Donc, dans la fonction RunCar, on se content de permettre de faire bouger la grenouille dans l'intervalle de la rue, du moment que ses coordonnées ne soit pas identiques à celle d'une voiture (indiquer parle tableau CarX). De l'autre, sur les billots, il faut faire l'inverse, si la grenouille n'est pas sur la coordonnées de l'un des billots (indiquer par le tableau BillotX), alors il perd la partie.

L'exemple de jeu Frogger suivant est développé en QuickPascal et fonctionne uniquement sous QuickPascal. Voici le code source en QuickPascal du jeu :




Program Frogger;

 
Uses Crt,MSGraph;

 
Label _Break3,_Break4;

 
Const

 {Code de touche clavier renvoy?e par ReadKey}

 kbNoKey=0;{Pas de touche}

 kbEsc=$001B;{Escape}

 kbUp=$4800;{Up}

 kbLeft=$4B00;{Fl?che de gauche (Left)}

 kbRight=$4D00;{Fl?che de droite (Right)}

 kbDn=$5000;{Fl?che du bas (Down)}

 kbHome=$4700;{Home}

 kbTab=$0F09;{Tabulation}

 kbEnd=$4F00;{End}

 kbEnter=$000D;{Enter}

 kbF10=$4400;{F10}

 
Var

 CarX:Array[0..3,0..9]of Integer;

 CarKr:Array[0..3,0..9]of Byte;

 BileauX:Array[0..3,0..9]of Integer;

 WaitCar,WaitBileau,NmWait,Timer:Word;

 FroggerX,FroggerY:Integer;

 Traverser,Accident,Life:Byte;

 K:Word;

 
Const

 DrawS:Integer=4;

 XL:Integer=160;

 YL:Integer=100;

 
Var

 I:Byte;

 N:String;

 Mode:(_None_,_NoTrace_,_UnMove_);

 a,b:Integer;

 xc,yc:(NoMove,Add,Sub);

 
Procedure WaitRetrace;Begin

 Delay(10*12);

End;

 
Function ExtractNm(S:String):Integer;

Var

 N:String;

 a,b:Integer;

Begin

 N:='';

 While(I<=Length(S))and(S[I] in ['0'..'9'])do Begin

  N:=N+S[I];

  Inc(I);

 End;

 If N=''Then a:=1

Else Val(N,a,b);

 ExtractNm:=a;

End;

 
Function ExtractNmV(S:String):Integer;Begin

 ExtractNmV:=ExtractNm(S)*(DrawS shr 2)

End;

 
Procedure Line2(X,Y:Integer);Begin

 If(Mode<>_NoTrace_)Then Begin

  Case(xc)of

   Add:Inc(X,XL);

   Sub:X:=XL-X;

  End;

  Case(yc)of

   Add:Inc(Y,YL);

   Sub:Y:=YL-Y;

  End;

  If(YL=Y)and(X<XL)Then Begin

   _MoveTo(X,YL);

   _LineTo(XL,Y);

  End

   Else

  Begin

   _MoveTo(XL,YL);

   _LineTo(X,Y);

  End;

 End;

End;

 
Procedure SetPos(X,Y:Integer);Begin

 Case(xc)of

  Add:Inc(X,XL);

  Sub:X:=XL-X;

 End;

 Case(yc)of

  Add:Inc(Y,YL);

  Sub:Y:=YL-Y;

 End;

 If(Mode<>_UnMove_)Then Begin

  XL:=X;

  YL:=Y;

 End;

 Mode:=_None_;

 xc:=NoMove;

 yc:=NoMove;

End;

 
 
Procedure Draw(S:String);Begin

 I:=1;Mode:=_None_;

 While I<=Length(S)do Begin

  Inc(I);

  Case S[I-1]of

   'B':Mode:=_NoTrace_;

   'C':_SetColor(ExtractNm(S));

   'D':Begin

    a:=ExtractNmV(S);

    Line2(XL,YL+a);

    SetPos(XL,YL+a);

   End;

   'E':Begin

    a:=ExtractNmV(S);

    Line2(XL+a,YL-a);

    SetPos(XL+a,YL-a);

   End;

   'F':Begin

    a:=ExtractNmV(S);

    Line2(XL+a,YL+a);

    SetPos(XL+a,YL+a);

   End;

   'G':Begin

    a:=ExtractNmV(S);

    Line2(XL-a,YL+a);

    SetPos(XL-a,YL+a);

   End;

   'H':Begin

    a:=ExtractNmV(S);

    Line2(XL-a,YL-a);

    SetPos(XL-a,YL-a);

   End;

   'L':Begin

    a:=ExtractNmV(S);

    Line2(XL-a,YL);

    SetPos(XL-a,YL);

   End;

   'M':Begin

    If S[I]in['+','-']Then Begin

     If S[I]='+'Then xc:=Add else xc:=Sub;

     Inc(I);

    End;

    a:=ExtractNm(S);

    If S[I]=','Then Begin

     Inc(I);

     If S[I]in['+','-']Then Begin

      If S[I]='+'Then yc:=Add else yc:=Sub;

      Inc(I);

     End;

     b:=ExtractNm(S);

    End

     Else

    b:=YL;

    Line2(a,b);

    SetPos(a,b);

   End;

   'N':Mode:=_UnMove_;

   'R':Begin

    a:=ExtractNmV(S);

    Line2(XL+a,YL);

    SetPos(XL+a,YL)

   End;

   'U':Begin

    a:=ExtractNmV(S);

    Line2(XL,YL-a);

    SetPos(XL,YL-a)

   End;

' ',';':;{C'est 2 caractSres ne change rien en soit, donc...pas d'arr^t!}

   Else Exit;

  End

 End

End;

 
Procedure _PutFrogger(X,Y:Integer);

Begin

 SetPos(X+8,Y); {Affiche la grenouille}

 Draw('RFL3BL3L0BL2R0BR11R0BR2DL2BL2L5BL2L2FBR3R5BR3GL0BL2L5BL2FR7GL5R5BFBRL0BL2L5BL2DR9DBL3L3BL3DL2BR11R2');

End;

 
Procedure PutFrogger(X,Y:Integer);Begin

 _SetColor(LightGreen);

 _PutFrogger(X,Y);

End;

 
Procedure UnputFrogger(X,Y:Integer);

Var

 Kr:Byte;

Begin

 Case(Y)of

  3*12..10*12-1:Kr:=Blue;

  10*12..11*12-1:Kr:=Green;

  11*12..15*12-1:Kr:=LightGray;

  Else Kr:=Green;

 End;

 _SetColor(Kr);

 _Rectangle(_GFillInterior,X,Y,X+15,Y+11);

{ _PutFrogger(X,Y);}

End;

 
Procedure PutFeuille(X,Y:Integer);Begin

 SetPos(X+8,Y); {Affiche la feuille}

 Draw('C3F3DFD2GDGL2H2UE2G3HBD2D0GBU2LHU2E4RE');

End;

 
Procedure PutBillot(X,Y:Integer);Begin

 _SetViewport(0,0,239,199);

 SetPos(X+48,Y); {Billot}

 Draw('C6L45G2DGD2FDF2R46E2UEU2HUH2G2DGD2FDF2');

 SetPos(X+40,Y+5); {Tiret b-che}

 Draw('C14BU3L3BD3L1BH2L2BG1BL4L3BH3L5BD3BG2R3BG3R5BR4R3BE2BR3R2');

 _SetViewport(0,0,319,199);

End;

 
Procedure UnputBillot(X,Y:Integer);Begin

 _SetViewport(0,0,239,199);

 _SetColor(Blue);

 _Rectangle(_GFillInterior,X,Y,X+56,Y+11);

 _SetViewport(0,0,319,199);

End;

 
Procedure PutCarRight(X,Y,Kr:Integer);Begin

 SetPos(X+8,Y); {Automobile vers la droite}

 _SetColor(Kr);

 Draw('R5FL8GRBR5R0BR4DBL4L0BL5LGR2BR5R0BR5R2FRL17GR19FL21DR21BDBLL4BL10L4BFBR2L2BR14R2BR2BE10');

End;

 
Procedure PutCarLeft(X,Y,Color:Integer);Begin

 SetPos(X+8,Y); {Automobile vers la gauche}

 _SetColor(Color);

 Draw('L5GR8FLBL5L0BL4DBR4R0BR5RFL2BL5L0BL5L2GLR17FL19GR21DL21BDBRR4BR10R4BGBL2R2BL14L2BR26BE10');

End;

 
Procedure UpdateTraverser;

Var

 S:String;

Begin

 _SetTextPosition(2,1);

 _SetBkColor(LightGreen);

 _SetTextColor(LightGray);

 Str(Traverser,S);

 _OutText('Traverser : '+S);

End;

 
Function RunBillot:Boolean;

Label _Break,_Break2;

Const Largeur=56;

Var

 I,J,K:Byte;

 BileauFound:Boolean;

 SurLeBileau:Boolean;

 MoveFrogger:Boolean;

Begin

 RunBillot:=True;

 MoveFrogger:=False;

 SurLeBileau:=False;

 For J:=0to 1do For I:=0to 9do Begin

  If BileauX[J,I]=-1Then Begin

   BileauFound:=False;

   For K:=0to 9do Begin

    If BileauX[J,K]in[204..239]Then Begin

	 BileauFound:=True;

	 Goto _Break;

	End;

   End;

_Break:

   If Not(BileauFound)Then Begin

    If WaitBileau=0Then Begin

     WaitBileau:=Random(NmWait);

     BileauX[J,I]:=204+J*12;

     PutBillot(BileauX[J,I],(6+J)*12);

    End

     Else

    Dec(WaitBileau);

   End;

  End

   Else

  Begin

   UnputBillot(BileauX[J,I],(6+J)*12);

   If BileauX[J,I]<24Then BileauX[J,I]:=-1

    Else

   Begin

    Dec(BileauX[J,I],24);

    PutBillot(BileauX[J,I],(6+J)*12);

   End;

  End;

  If(FroggerY=(6+J)*12)Then Begin

   If Not(MoveFrogger)Then Begin

    If(FroggerX > 0)Then Begin

     Dec(FroggerX,24);

	 MoveFrogger:=True;

    End;

   End;

   If((FroggerX-BileauX[J,I])in[0..Largeur-1])Then Begin

    SurLeBileau:=True;

    PutFrogger(FroggerX,FroggerY);

   End;

  End;

 End;

 For J:=2to 3do For I:=0to 9do Begin

  If BileauX[J,I]=-1Then Begin

   BileauFound:=False;

   For K:=0to 9do Begin

    If BileauX[J,K]in[0..Largeur-1]Then Begin

	 BileauFound:=True;

	 Goto _Break2;

	End;

   End;

_Break2:

   If Not(BileauFound)Then Begin

    If WaitBileau=0Then Begin

     WaitBileau:=Random(NmWait);

     BileauX[J,I]:=(J-2)*12;

     PutBillot(BileauX[J,I],(6+J)*12);

    End

     Else

    Dec(WaitBileau);

   End;

  End

   Else

  Begin

   UnputBillot(BileauX[J,I],(6+J)*12);

   Inc(BileauX[J,I],24);

   If BileauX[J,I]>(240-Largeur)Then BileauX[J,I]:=-1

   Else PutBillot(BileauX[J,I],(6+J)*12);

  End;

  If(FroggerY=(6+J)*12)Then Begin

   If Not(MoveFrogger)Then Begin

    If(FroggerX <= 239)Then Begin

	 Inc(FroggerX,24);

	 MoveFrogger:=True;

	End;

   End;

   If((FroggerX-BileauX[J,I])in[0..Largeur-1])Then Begin

    SurLeBileau:=True;

    PutFrogger(FroggerX,FroggerY);

   End;

  End;

 End;

 If(SurLeBileau)Then RunBillot:=False

		Else RunBillot:=FroggerY<=108;

End;

 
Function RunCar:Boolean;

Label _Break,_Break2;

Var

 I,J,K:Byte;

 CarFound:Boolean;

Begin

 RunCar:=True;

 For J:=0to 1do For I:=0to 9do Begin

  If CarX[J,I]=-1Then Begin

   CarFound:=False;

   For K:=0to 9do Begin

    If CarX[J,K]in[204..239]Then Begin

	 CarFound:=True;

	 Goto _Break;

	End;

   End;

_Break:

   If Not(CarFound)Then Begin

    If WaitCar=0Then Begin

     WaitCar:=Random(NmWait);

     CarX[J,I]:=204+J*12;CarKr[J,I]:=Random(15);

     If(CarKr[J,I]=LightGray)Then CarKr[J,I]:=LightRed;

     PutCarLeft(CarX[J,I],(11+J)*12,CarKr[I,J]);

    End

     Else

    Dec(WaitCar);

   End;

  End

   Else

  Begin

   PutCarLeft(CarX[J,I],(11+J)*12,LightGray);

   If CarX[J,I]<24Then CarX[J,I]:=-1

    Else

   Begin

    Dec(CarX[J,I],24);

    PutCarLeft(CarX[J,I],(11+J)*12,CarKr[I,J]);

   End;

  End;

  If(FroggerY=(11+J)*12)and((FroggerX-CarX[J,I])in[0..23])Then Exit;

 End;

 For J:=2to 3do For I:=0to 9do Begin

  If CarX[J,I]=-1Then Begin

   CarFound:=False;

   For K:=0to 9do Begin

    If CarX[J,K]in[0..23]Then Begin

	 CarFound:=True;

	 Goto _Break2;

	End;

   End;

_Break2:

   If Not(CarFound)Then Begin

    If WaitCar=0Then Begin

     WaitCar:=Random(NmWait);

     CarX[J,I]:=(J-2)*12;CarKr[J,I]:=Random(15);

     If(CarKr[J,I]=LightGray)Then CarKr[J,I]:=LightRed;

     PutCarRight(CarX[J,I],(11+J)*12,CarKr[I,J]);

    End

     Else

    Dec(WaitCar);

   End;

  End

   Else

  Begin

   PutCarRight(CarX[J,I],(11+J)*12,LightGray);

   Inc(CarX[J,I],24);

   If CarX[J,I]>(240-24)Then CarX[J,I]:=-1

   Else PutCarRight(CarX[J,I],(11+J)*12,CarKr[I,J]);

  End;

  If(FroggerY=(11+J)*12)and((FroggerX-CarX[J,I])in[0..23])Then Exit;

 End;

 RunCar:=False;

End;

 
Procedure PutTimer;

Var

 S:String;

Begin

 _SetTextPosition(23,34);

 _SetTextColor(LightRed);

 Str(Timer,S);

 _OutText(S+'  ');

End;

 
Procedure PutLife;

Var

 J:Byte;

Begin

 _SetColor(LightGreen);

 For J:=0to 3do Begin

  If(Life-1<J)Then _SetColor(Black);

  _PutFrogger(272,10+40*J);

 End;

End;

 
BEGIN

 Randomize;

 If _SetVideoMode(_MRes256Color)=0 Then Begin

  WriteLn('Mode video non supporte');

  Halt;

 End;

 Life:=4;NmWait:=64;Traverser:=0;

 Repeat

  _SetColor(Green);

  _Rectangle(_GFillInterior,0,0,239,35);

  _SetColor(Blue);

  _Rectangle(_GFillInterior,0,3*12,239,10*12-1);

  _SetColor(Green);

  _Rectangle(_GFillInterior,0,10*12,239,11*12-1);

  _SetColor(LightGray);

  _Rectangle(_GFillInterior,0,11*12,239,15*12-1);

  _SetColor(Green);

  _Rectangle(_GFillInterior,0,15*12,239,199);

  _SetColor(LightRed);

  _Rectangle(_GBorder,244,0,315,199);

  _SetTextPosition(21,32);

  _SetTextColor(LightRed);

  _OutText('Horloge:');

  PutLife;

  UpdateTraverser;

  FillChar(CarX,SizeOf(CarX),$FF);

  FillChar(BileauX,SizeOf(Bileaux),$FF);

  WaitCar:=0;WaitBileau:=0;FroggerX:=120;FroggerY:=180;Timer:=400;Accident:=0;

  _SetColor(LightGreen);

  _PutFrogger(FroggerX,FroggerY);

  PutTimer;

  Repeat

   Repeat

    If(RunCar)Then Begin

	 Accident:=1;

	 Goto _Break3;

	End;

	If(RunBillot)Then Begin

	 Accident:=3;

	 Goto _Break3;

	End;

    WaitRetrace;

    Dec(Timer);

    PutTimer;

    If Timer=0Then Begin

	 Accident:=2;

	 Goto _Break4;

	End;

   Until KeyPressed;

_Break4:

   If Accident>0Then Goto _Break3;

   K:=Byte(ReadKey);

   If K=0Then K:=K or (Byte(ReadKey)shl 8);

   Case(K)of

    kbLeft:If FroggerX>0Then Begin

     UnputFrogger(FroggerX,FroggerY);

     Dec(FroggerX,12);

     PutFrogger(FroggerX,FroggerY);

    End;

    kbRight:If FroggerX<239-24Then Begin

     UnputFrogger(FroggerX,FroggerY);

     Inc(FroggerX,12);

     PutFrogger(FroggerX,FroggerY);

    End;

    kbUp:If FroggerY>47Then Begin

     UnputFrogger(FroggerX,FroggerY);

     Dec(FroggerY,12);

	 If FroggerY<48 Then Begin

	  Inc(Traverser);

	  If Traverser>3 Then Begin

       _SetTextPosition(0,0);

	   _SetTextColor(LightGreen);

	   _SetBkColor(Green);

       _OutText('Vous avez gagné, vous avez fait traversé 4 grenouilles sans qu''ils soient écrasé !');

	   Exit;

	  End

	   Else

	  Begin

	    Goto _Break3;

	  End;

	 End;

     PutFrogger(FroggerX,FroggerY);

    End;

    kbDn:If FroggerY<180Then Begin

     UnputFrogger(FroggerX,FroggerY);

     Inc(FroggerY,12);

     PutFrogger(FroggerX,FroggerY);

    End;

    kbEsc:Exit;

   End;

  Until False;

_Break3:

  {ClrKbd;}

  Case(Accident)of

   1:Begin

    _SetTextPosition(0,0);

	_SetTextColor(LightRed);

	_SetBkColor(Green);

    _OutText('Ecrasé par une voiture!');

	If (ReadKey=#0)Then;

    Dec(Life);

   End;

   2:Begin

	_SetTextPosition(0,0);

	_SetTextColor(LightRed);

	_SetBkColor(Green);

    _OutText('Manque de temps!');

	If (ReadKey=#0)Then;

    Dec(Life);

   End;

   3:Begin

    _SetTextPosition(0,0);

	_SetTextColor(LightRed);

	_SetBkColor(Green);

    _OutText('A côté du billot !');

	If (ReadKey=#0)Then;

    Dec(Life);

   End;

  End;

 Until Life=0;

END.

Code source

Voici le code source du jeu sur GitHub :

Lien	Langage de programmation	Projet
https://github.com/gladir/quickpascal_frogger/blob/main/FROGGER.PAS	QuickPascal	quickpascal_frogger

PARTAGER CETTE PAGE SUR

Dernière mise à jour : Jeudi, le 4 août 2022

	ABAP/4
	Ada
	Assembleur
	Assembly & bytecode
	ASP (Active Server Pages)
	Basic
	C
	C++
	C# (C Sharp)
	Cobol
	ColdFusion
	Fortran
	HTML
	Java
	JavaScript
	LISP
	Logo
	LotusScript
	Oberon
	Pascal
	Perl
	PHP
	PL/1
	Prolog
	Python
	Rebol
	REXX
	Ruby
	SAS
	NoSQL
	SQL
	Swift
	X++ (Axapta)

	Assembleur 370
	Assembleur 1802
	Assembleur 4004
	Assembleur 6502
	Assembleur 6800
	Assembleur 68000
	Assembleur 8080 et 8085
	Assembleur 8089
	Assembleur 80x86
	Assembleur AGC4
	Assembleur ARM
	Assembleur DPS 8000
	Assembleur i860
	Assembleur Itanium
	Assembleur MIPS
	Assembleur PDP-11
	Assembleur PowerPC
	Assembleur RISC-V
	Assembleur SPARC
	Assembleur SuperH
	Assembleur UNIVAC I
	Assembleur VAX
	Assembleur Z80
	Assembleur Z8000
	Assembleur z/Architecture

	CIL
	Jasmin
	LLVM
	MSIL
	Parrot
	P-Code (PCode)
	SWEET16

	ASP 1.0
	ASP 2.0
	ASP 3.0
	ASP.NET

	ABasiC (Amiga)
	Adam SmartBASIC
	Altair BASIC
	AmigaBASIC (Amiga)
	AMOS Basic (Amiga)
	Atari Basic (Atari 400, 600 XL, 800, 800XL)
	Basic Apple II (Integer BASIC/APPLESOFT)
	Basic Commodore 64 (CBM-BASIC)
	Basic Commodore 128 (BASIC 7.0)
	Basic Commodore VIC-20 (CBM-BASIC 2.0)
	Basic Coco 1 (Color Basic)
	Basic Coco 2 (Extended Color Basic)
	Basic Coco 3 (Extended Color Basic 2.0)
	BASICA (PC DOS)
	Basic Pro
	BBC BASIC
	Blitz BASIC (Amiga)
	DarkBASIC
	Dartmouth BASIC
	GFA-Basic (Atari ST/Amiga)
	GWBASIC (MS-DOS)
	Liberty BASIC
	Locomotive BASIC (Amstrad CPC)
	MSX-Basic
	Omikron Basic (Atari ST)
	Oric Extended Basic
	Power Basic
	Quick Basic/QBasic (MS-DOS)
	Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
	ST BASIC (Atari ST)
	Turbo Basic
	Vintage BASIC
	VBScript
	Visual Basic (VB)
	Visual Basic .NET (VB .NET)
	Visual Basic pour DOS
	Yabasic

Section courante

A propos

Section administrative du site

Code source

	C Shell Unix (csh)

	C pour Amiga
	C pour Atari ST
	C pour DOS
	C pour Falcon030
	C pour GEMDOS (Atari ST)
	C pour Linux
	C pour PowerTV OS
	C pour OS/2
	C pour Unix
	C pour Windows

	Aztec C
	CoCo-C
	GNU C
	HiSoft C
	IBM C/2
	Introl-C
	Lattice C
	Microsoft C
	MinGW C
	MSX-C
	Open Watcom C
	OS-9 C Compiler
	Pure C
	Quick C
	Turbo C

	C++ pour OS/2
	C++ pour Windows

	Borland C++
	C++Builder
	IBM VisualAge C++
	Intel C++
	MinGW C++
	Open Watcom C++
	Symantec C++
	Turbo C++
	Visual C++
	Visual C++ .NET
	Watcom C++
	Zortech C++

	Apple Pascal
	Delphi/Kylix/Lazarus
	Free Pascal
	GNU Pascal
	HighSpeed Pascal
	IBM Personal Computer Pascal
	Lisa Pascal
	Maxon Pascal
	MPW Pascal
	OS-9 Pascal
	OSS Personal Pascal
	Pascal-86
	Pascal du Cray Research
	Pascal/VS
	Pascal-XT
	PURE Pascal
	QuickPascal
	RemObjets Chrome
	Sun Pascal
	THINK Pascal
	Tiny Pascal (TRS-80)
	Turbo Pascal
	UCSD Pascal
	VAX Pascal
	Virtual Pascal

	Turbo Pascal for CP/M-80
	Turbo Pascal for DOS
	Turbo Pascal for Macintosh
	Turbo Pascal for Windows

	CodeIgniter (Cadre d'application)
	Drupal (Projet)
	Joomla! (Projet)
	Phalanger (PHP .NET)
	phpBB (Projet)
	Smarty (balise)
	Twig (balise)
	Symfony (Cadre d'application)
	WordPress (Projet)
	Zend (Cadre d'application)

	Btrieve
	Cassandra
	Clipper
	CouchDB
	dBASE
	Hbase
	Hypertable
	MongoDB
	Redis

	Access
	BigQuery
	DB2
	H2
	Interbase
	MySQL
	Oracle
	PostgreSQL
	SAP HANA
	SQL Server
	Sybase
	U-SQL

	Les remarques
	Les opérateurs
	Les instructions conditionnelles
	Les instructions de boucles
	Type de données
	Référence des unités
	Définition de fonction
	Références de mots réservés (mots clefs)
	Référence des procédures et des fonctions

	Mise en route
	Les premiers pas
	Données et types de données
	Opérateurs et expressions
	Procédures et fonctions
	Utilisation de fichiers et de répertoires
	Programmation graphiques

	Bonjour
	Affichage
	Astronomie
	Biochimie
	Conversion
	Démonstration & Animation
	Finance
	Fractale
	Géographie
	Géométrie
	Jeux & stratégies
	Histoire
	Mathématique
	Médicale
	Météorologie
	Océanographie
	Sport
	Temps
	Trigonométrie
	Validation

	GNAT
	SMALLAda
	VHDL

	ASSEMBLER/MONITOR 64
	Micol Assembler

	A86
	MASM (Macro Assembler)
	TASM (Turbo Assembler)

	BeckerBASIC
	SIMONS' BASIC

	Aire d'un cercle
	Aire d'une surface de prisme rectangulaire
	Aire d'un triangle
	Distance entre deux points
	Treillis

	Ackermann
	Exp
	Factoriel
	Fibonacci
	Log
	Nombre premier
	Odd
	Random
	Sqrt
	Triangle Pascal

	Année bissextile
	Calendrier
	Date de la Pâque
	FirstDayOfMonth
	Horloge à aiguille

	Table ASCII
	RAM de l'IBM PC

	Code d'erreur du Quick Pascal

	QPU

	Bibliographie