Section courante

A propos

Section administrative du site

 Langage  Installation  Elément  Tutoriel  Programmation  Bibliothèque  Cadre d'application  GUI  Projet  Jeux  Outils  Emulateur  Annexe  Aide 
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)
GNAT
SMALLAda
VHDL
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
ASSEMBLER/MONITOR 64
Micol Assembler
GFA Assembler
A86
MASM (Macro Assembler)
TASM (Turbo Assembler)
CIL
Jasmin
LLVM
MSIL
Parrot
P-Code (PCode)
SWEET16
G-Pascal
ASP 1.0
ASP 2.0
ASP 3.0
ASP.NET
ASP.NET Core
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
BeckerBASIC
SIMONS' BASIC
Basic09 d'OS-9
Disk Extended Color Basic
Basic09 d'OS-9
Disk Extended Color Basic
Access
Excel
Visual Basic pour Windows
Visual Basic .NET pour Windows
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
HiSoft C for Atari ST
HiSoft C for CP/M (Amstrad CPC)
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++
C# (C Sharp) pour Windows
Apple III Cobol
Microsoft Cobol
BlueDragon
Lucee
OpenBD
Railo
Smith Project
Microsoft Fortran
WATFOR-77
CSS
FBML
Open Graph
SVG
XML
XSL/XSLT
LESS
SASS
GCJ (GNU)
JSP
Jython
Visual J++
Node.js
TypeScript
AutoLISP
ACSLogo
LotusScript pour Windows
Amiga Oberon
Oberon .NET
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)
PL360
PL/M-80
PL/M-86
Turbo Prolog
CPython
IronPython
Jython
PyPy
AREXX
Regina REXX
JMP
Btrieve
Cassandra
Clipper
CouchDB
dBASE
Hbase
Hypertable
MongoDB
Redis
Access
BigQuery
DB2
H2
Interbase
MySQL
Oracle
PostgreSQL
SAP HANA
SQL Server
Sybase
U-SQL
Turbo Pascal 5
Turbo Pascal 5.5
Turbo Pascal 6
Turbo Pascal 7
Introduction
Les remarques
Les opérateurs
Les instructions conditionnelles
Les instructions de boucles
Type de données
Référence des unités
Références de mots réservés (mots clefs)
Définition de procédure et fonction
Référence de procédures et fonctions
Référence des directives de compilation
CRT
DOS
GRAPH
OBJECTS
OVERLAY
PRINTER
STRINGS
SYSTEM
TURBO3
WINDOS
Catégorie
Prototype
ASCIZ
Date
Ensemble
Fichier
Mémoire
Temps
Trigonométrie
Les premiers pas
Les jetons
Les constantes
Les types
Variables et constantes typées
Les expressions
Les instructions
Blocs, localité et étendue
Procédures et fonctions
Programmes et unités
Vue d'ensemble de la bibliothèque d'exécution
Procédures et fonctions standard
Entrée et sortie
Utilisation du 80x87
Interfaçage avec DOS
Utilisation de chaînes de caractères terminées par NULL
Utilisation de l'interface graphique Borland
Utilisation de recouvrement
Problèmes de mémoire
Problèmes de contrôle
Optimiser votre code
L'assembleur intégré
Liaison de code assembleur
Programmation orientée objet (POO)
Les fichiers
Les périphériques logiques
Files d'attente, piles, listes liées et arborescences
Bonjour
Affichage
Astronomie
Biochimie
Chimie
Conversion
Électrotechnique
Emulateur
Fichiers
Finance
Géographie
Géophysique
Géométrie
Histoire
Jeux & stratégies
Mathématique
Matrice
Médicale
Météorologie
Océanographie
Onirologie
Sport
Temps
Tri
Trigonométrie
Validation
«DRAW» du BASIC
Phase lunaire
Calcul du calcium corrigé
Calcul le taux d'alcoolémie
Bin,Hex,Base62,...
Emulateur de microprocesseur 6502
Texte séquentiel
IPaymt/Interet
NPer
PPaymt/Principal
Distance en Km entre deux longitudes et latitudes
Méridien de Paris
Triangulation d'une position (trilateration,...)
Aire d'un cercle
Aire d'une surface de prisme rectangulaire
Aire d'un triangle
Distance entre deux points
Treillis
Chiffre romain
Méthode du chiffre César (code César)
Asteroids
Bowling
Breakout
Lode Runner
Missile Command
Pac-Man
Patience
Peg Leap
Soko-Ban
Space Invaders
Space Jockey
Tetris
Tic-Tac-Toe
Tours d'Hanois
Ackermann
Exp
Factoriel
Fibonacci
Log
Nombre premier
Odd
Random
Sqrt
Triangle Pascal
Sommation
Hauteur utérine
Calcul de votre poids santé (IMC)
Unité de mesure
Fréquence des vagues
Hockey
Année bissextile
Calendrier
Date de la Pâque
FirstDayOfMonth
Horloge à aiguille
Tri à bulle (Bubble Sort)
Tri Shell Sort
ArcCos
ArcSin
Atn/ATan/ArcTan/ArcTangente
Cos
Sin
Courriel
AMDEKSYSTEM88LIB-TP
APMLIB-TP
BASICSTRLIB-TP
BIOSLIB-TP
COLORIMETRYLIB-TP
CSVLIB-TP
CYRIXLIB-TP
DRDOSLIB-TP
ELECTRICLIB-TP
ERLOGLIB-TP
FINANCIALLIB-TP
GEOLIB-TP
GRAPHICSSOLUTIONLIB-TP
HDLLIB-TP
HISTORICLIB-TP
HTMLLIB-TP
IALIB-TP
INTLLIB-TP
JSONLIB-TP
K8042LIB-TP
LETTRESLIB-TP
LOTUSSCRIPTSTRLIB-TP
METEOLIB-TP
OCEANOGRAPHICLIB-TP
OS2LIB-TP
OSSPASCALLIB-TP
POSIX-TP
PYTHONLIB-TP
SANE-TP
SNOBOLLIB-TP
SVGLIB-TP
TPW4TPLIB-TP
TSENGLABSET4000LIB-TP
VGALIB-TP
WINDOWS9XLIB-TP
XMLLIB-TP
Turbo Vision
UNITEST
MOS
AlimBase
AMIGADOS-0
AXTRO
Colorix
Corail
COREUTILS-0
DEV-COOLS
EDUX
FLEX-0
GEO-COMMANDER
HISTORIK
lettrex
LINUX-0
MATHIX
METEOPOLIS
Micro Calc
MYSTIX
Monsterbook
MSDOS-0
MSXDOS-0
OS9-0
Renegade BBS
Système Information
TRSDOS-0
Turbo Calc
UNIX-0
VIE
7iles
Arkanoid
Digger
Mario and Luigi
Turbo Assembler
Turbo Debugger
DOSBox
PCE - PC Emulator
PCem
Base de connaissances
Table ASCII
Table de codes ANSI et page de codes
RAM de l'IBM PC
Code d'erreur
Génération du code en interne du Turbo Pascal 3
Code source du Turbo Pascal 6
TPU
OBJ
Archives de paquet
Alternative
Bibliographie
Turbo Pascal à FreeDOS/FreePascal
Turbo Pascal à Linux/FreePascal
Turbo Pascal à FreeBSD/FreePascal
Turbo Pascal à eComStation/FreePascal
Préface
Notes légal
Dictionnaire
Recherche

Les instructions

Les instructions décrivent des actions algorithmiques pouvant être exécutées. Les étiquettes peuvent préfixer des instructions, et ces étiquettes peuvent être référencées par des instructions goto.

Une étiquette est soit une séquence de chiffres comprise entre 0 et 9999, soit un identificateur. Il existe deux principaux types d'instructions : les instructions simples et les instructions structurées.

Instructions simples

Une instruction simple est une instruction ne contenant aucune autre instruction.

Instructions d'affectation

Les instructions d'affectation remplacent la valeur actuelle d'une variable par une nouvelle valeur spécifiée par une expression. Ils peuvent également être utilisés pour définir la valeur de retour de la fonction.

L'expression doit être compatible avec l'affectation avec le type de la variable ou le type du résultat de la fonction. Voici des exemples d'instructions d'affectation :

  1. X := Y + Z;
  2. Done := (I >= 1) and (I < 100);
  3. Hue1 := [Bleu, Succ(C)];
  4. I := Sqr(J) - I * K;

Les règles de compatibilité d'attribution de type d'objet permettent à une instance d'un type d'objet de se voir attribuer une instance de l'un de ses types descendants. Une telle affectation constitue une projection du descendant sur l'espace parcouru par son ancêtre. L'affectation en tant qu'instance d'un objet n'initialise pas l'instance. En référence à l'exemple précédent, l'affectation F := Z ne signifie pas qu'un appel de constructeur pour F peut être omis.

Déclarations de procédure

Une instruction de procédure active une procédure spécifiée par un identificateur de procédure, un indicateur de méthode, un indicateur de méthode qualifié ou une référence de variable de type procédural. Si la déclaration de procédure correspondante contient une liste de paramètres formels, alors l'instruction de procédure doit avoir une liste correspondante de paramètres réels (les paramètres répertoriés dans les définitions sont des paramètres formels ; dans l'instruction appelante, ce sont des paramètres réels). Les paramètres réels sont transmis aux paramètres formels dans le cadre de l'appel.

Voici quelques exemples d'instructions de procédure :

  1. PrintHeading;
  2. Transpose(A, N, M);
  3. Find(Name,Address);

Instruction GOTO

Une instruction goto transfère l'exécution du programme à l'instruction marquée par l'étiquette spécifiée. Le diagramme de syntaxe d'une instruction goto suit :

Lorsque vous utilisez des instructions goto, respectez les règles suivantes :

Instructions structurées

Les instructions structurées sont des constructions composées d'autres instructions devant être exécutées de manière séquentielle (instructions composées et avec), conditionnellement (instructions conditionnelles) ou répétées (instructions répétitives).

Instructions composées

L'instruction composée spécifie que ses instructions composantes doivent être exécutées dans le même ordre qu'elles sont écrites. Les instructions des composantes sont traitées comme une seule instruction, cruciale dans les contextes où la syntaxe Pascal n'autorise qu'une seule instruction. Les mots réservés BEGIN et END mettent entre crochets les instructions, étant séparées par des points-virgules.

Voici un exemple d'instruction composée :

  1. Begin
  2.  Z := X;
  3.  X := Y;
  4.  Y := Z;
  5. End;

Instructions conditionnelles

Une instruction conditionnelle sélectionne pour l'exécution une seule (ou aucune) de ses instructions composantes.

La syntaxe d'une instruction IF se lit comme suit :

L'expression doit donner un résultat du type standard Boolean. Si l'expression produit la valeur True, l'instruction suivant THEN est exécutée.

Si l'expression produit False et que la partie ELSE est présente, l'instruction suivant ELSE est exécutée ; si la partie ELSE n'est pas présente, l'exécution se poursuit à l'instruction suivante suivant l'instruction IF. L'ambiguïté syntaxique résultant du construit :

  1. If e1 Then If e2 Then s1 Else s2;

est résolu en interprétant la construction comme suit :

  1. If e1 Then Begin
  2.  If e2 Then
  3.   s1
  4.  Else
  5.   s2
  6. End;

Habituellement, un ELSE est associé au plus proche s'il n'est pas déjà associé à un ELSE. Voici deux exemples d'instructions IF :

  1. If x < 1. 5 Then Z := X + Y
  2.             Else Z := 1.5;
  3. If P1 <> NIL Then P1 := P1^.Father;

Instruction CASE

L'instruction CASE se compose d'une expression (le sélecteur) et d'une liste d'instructions, chacune précédée d'une ou plusieurs constantes (appelées constantes CASE) ou du mot ELSE. Le sélecteur doit être d'un type ordinal de la taille d'un octet ou d'un mot, de sorte que les types chaîne de caractères et le type entier LongInt sont des types de sélecteur non valides. Toutes les constantes de casse doivent être uniques et d'un type ordinal compatible avec le type de sélecteur.

L'instruction CASE exécute l'instruction précédée d'une constante case égale à la valeur du sélecteur ou d'une intervalle CASE contenant la valeur du sélecteur. Si aucune constante case de l'intervalle CASE n'existe et qu'une partie ELSE est présente, l'instruction suivant ELSE est exécutée. S'il n'y a pas de partie ELSE, l'exécution se poursuit avec l'instruction suivante suivant l'instruction IF.

Voici des exemples d'instructions de CASE :

  1. Case Operator of
  2.  Plus: X := X + Y;
  3.  Minus: X := X - Y;
  4.  Times: X := X * Y;
  5. End;
  6. Case I of
  7.  0, 2, 4, 6, 8: Writeln('Chiffre pair ');
  8.  1, 3, 5, 7, 9: Writeln('Chiffre impair');
  9.  10..100: Writeln('Entre 10 et 100');
  10.  Else Writeln('Négatif ou supérieur à 100');
  11. End;

Instructions répétitives

Les instructions répétitives spécifient certaines instructions à exécuter de manière répétée.

Si le nombre de répétitions est connu à l'avance, l'instruction FOR est la construction appropriée. Sinon, l'instruction WHILE ou REPEAT doit être utilisée. Les procédures standard BREAK et CONTINUE peuvent être utilisées pour contrôler le flux d'instructions répétitives : BREAK termine une instruction répétitive et CONTINUE continue avec l'itération suivante d'une instruction répétitive.

Instruction REPEAT

Une instruction REPEAT contient une expression contrôlant l'exécution répétée d'une séquence d'instructions dans cette instruction REPEAT.

L'expression doit produire un résultat de type Boolean. Les instructions entre les symboles répéter et jusqu'à sont exécutées en séquence jusqu'à ce que, à la fin d'une séquence, l'expression donne True. La séquence est exécutée au moins une fois car l'expression est évaluée après l'exécution de chaque séquence. Voici des exemples d'instructions REPEAT :

  1. Repeat
  2.  K := I mod J;
  3.  I := J;
  4.  J := K;
  5. Until J = 0;
  6. Repeat
  7.  Write('Entrer la valeur (0..9): ');
  8.  ReadLn(I);
  9. Until (I >= 0) and (I <= 9);

Instructions WHILE

Une instruction WHILE contient une expression contrôlant l'exécution répétée d'une instruction (pouvant être une instruction composée).

L'expression contrôlant la répétition doit être de type Boolean. Elle est évaluée avant l'exécution de l'instruction contenue. L'instruction contenue est exécutée à plusieurs reprises tant que l'expression est True. Si l'expression est False au début, l'instruction n'est pas du tout exécutée.

Voici des exemples d'instructions WHILE :

  1. While Donnees[I] <> X do I := I + 1;
  2. While I > 0 do Begin
  3.  If Odd (I)Then Z := Z * X;
  4.  I := I div 2;
  5.  X := Sqr(X);
  6. End;
  7. While Not Eof(InFile) do Begin
  8.  Readln(InFile,Ligne);
  9.  Process(Ligne);
  10. End;

Instruction FOR

L'instruction FOR provoque l'exécution répétée d'une instruction tandis qu'une progression de valeurs est affectée à une variable de contrôle. Une telle déclaration peut être une déclaration composée.

La variable de contrôle doit être un identificateur de variable (sans aucun qualificateur) de portée locale au bloc contenant l'instruction FOR. La variable de contrôle doit être de type ordinal. Les valeurs initiales et finales doivent être d'un type compatible avec le type ordinal. Lorsqu'une instruction FOR est saisie, les valeurs initiale et finale sont déterminées une fois pour le reste de l'exécution de l'instruction FOR.

L'instruction contenue par l'instruction FOR est exécutée une fois pour chaque valeur comprise entre la valeur initiale et la valeur finale. La variable de contrôle démarre toujours à la valeur initiale. Lorsqu'une instruction FOR utilise TO, la valeur de la variable de contrôle est incrémentée de un pour chaque répétition. Si la valeur initiale est supérieure à la valeur finale, l'instruction contenue n'est pas exécutée. Lorsqu'une instruction FOR utilise DOWNTO, la valeur de la variable de contrôle est décrémentée de un pour chaque répétition. Si la valeur initiale est inférieure à la valeur finale, l'instruction contenue n'est pas exécutée.

Si l'instruction contenue modifie la valeur de la variable de contrôle, vos résultats ne seront probablement pas ceux que vous attendez. Après l'exécution d'une instruction FOR, la valeur de la variable de contrôle value n'est pas définie, à moins que l'exécution de l'instruction FOR n'ait été interrompue par un GOTO à partir de l'instruction FOR. Avec ces restrictions à l'esprit, l'instruction FOR :

  1. For V := Expr1 to Expr2 do Body;

est équivalent à :

  1. Begin
  2.  TempI := Expr1;
  3.  Temp2 := Expr2;
  4.  If TempI <= Temp2 Then Begin
  5.   V := Temp1;
  6.   Body;
  7.   While V <> Temp2 do Begin
  8.    V := Succ(V);
  9.    Body;
  10.   End;
  11.  End;
  12. End;

et l'instruction FOR :

  1. For V:=Expr1 DownTo Expr2 do Body;

est équivalent à :

  1. Begin
  2.  Temp1 := Expr1;
  3.  Temp2 := Expr2;
  4.  If Temp1 >= Temp2 Then Begin
  5.   V := Temp1;
  6.   Body;
  7.   While V <> Temp2 do Begin
  8.    V := Pred(V);
  9.    Body;
  10.   End;
  11.  End;
  12. End;

Temp1 et Temp2 sont des variables auxiliaires du type hôte de la variable V et n'apparaissent pas ailleurs dans le programme. Voici des exemples d'instructions FOR :

  1. For I := 2 to 63 do If Donnees[I] > Max Then Max := Donnees[I]
  2. For I := 1 to 10 do For J := 1 to 10 do Begin
  3.  X := 0;
  4.  For K := 1 to 10 do X := X + Mat1[I, K] * Mat2[K, J];
  5.  Mat [I, J] : = X;
  6. End;
  7. For C := Rouge to Bleu do Verifier(C);

Instruction WITH

L'instruction WITH est un raccourci pour référencer les champs d'un enregistrement et les champs et méthodes d'un objet. Dans une instruction WITH, les champs d'une ou plusieurs variables d'enregistrement spécifiques peuvent être référencés à l'aide de leurs identifiants de champ uniquement. La syntaxe d'une instruction WITH suit :

Compte tenu de cette déclaration de type :

  1. Type
  2.  TDate=Record
  3.   Day:Integer;
  4.   Month:Integer;
  5.   Year:Integer;
  6.  End;
  7. Var 
  8.  OrderDate:TDate;

Voici un exemple d'instruction WITH :

  1. With OrderDate do If Month = 12 Then Begin
  2.  Month:=1;
  3.  Year:=Year+1
  4. End
  5.  Else
  6. Month:=Month+1;

Ceci équivaut à :

  1. If OrderDate.Month = 12 Then Begin
  2.  OrderDate.Month:=1;
  3.  OrderDate.Year:=TDate.Year+1
  4. End
  5.  Else
  6. OrderDate.Month:=TDate.Month+1;

Dans une instruction WITH, chaque référence de variable est d'abord vérifiée pour voir si elle peut être interprétée comme un champ de l'enregistrement. Si c'est le cas, il est toujours interprété comme tel, même si une variable du même nom est également accessible. Supposons que les déclarations suivantes aient été faites :

  1. Type
  2.  TPoint=Record
  3.   X,Y:Integer;
  4.  End;
  5. Var
  6.  X:TPoint;
  7.  Y:Integer;

Dans ce cas, X et Y peuvent faire référence à une variable ou à un champ de l'enregistrement. Dans l'instruction :

  1. With X do Begin
  2.  X := 10;
  3.  Y := 25;
  4. End;

Le X entre avec et DO fait référence à la variable de type TPoint, mais dans l'instruction composée, X et Y font référence à X.X et X.Y. L'instruction suivante :

  1. With V1, V2, ... Vn do S;

est équivalent à :

  1. With V1 do
  2.  With V2 do
  3.   With Vn do
  4.    S;

Dans les deux cas, si Vn est un champ à la fois de V1 et de V2, il est interprété comme V2.Vn, pas V1.Vn. Si la sélection d'une variable d'enregistrement implique l'indexation d'un tableau ou le déréférencement d'un pointeur, ces actions sont exécutées une fois avant l'exécution de l'instruction de composante.



PARTAGER CETTE PAGE SUR
Dernière mise à jour : Vendredi, le 31 décembre 2021