| Environnement ¾ Pour ouvrir un fichier, aller dans le menu File/Open ¾ Pour exécuter un programme, aller dans le menu Run/Run ou taper la combinaison de touches Ctrl+F9. ¾ Pour compiler "correctement" un exécutable, aller dans le menu Compile/Make (ou /Compile ) ou taper F9 on obtient ainsi des exécutables de meilleurs qualité qui pourront être utilisés sur d'autres ordinateurs. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Architecture standard en pascal {les instructions facultatives pour compilation doivent êtres entre accolades} Programnom de programme ; Usesunités utilisées ; Constdéclaration de constantes ; Typedéclaration de types ; Functiondéclaration de fonction ; Proceduredéclaration de procédure paramétrée ; Vardéclaration de variables ; Proceduredéclaration de procédure simple ;BEGIN { programme principal } Commandes END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Grammaire du Pascal ¾ Un nom de programme respecte les règles liées aux identificateurs et ne peut pas contenir le caractère point ". " ¾ Un programme principal débute toujours par BEGIN et se termine par END. (avec un point) . ¾ Un sous-programme (ou fonction, procédure, bloc conditionnel ) commence lui aussi par BEGIN mais se termine par END ; (un point-virgule). | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Grammaire du Pascal ¾ Chaque commande doit se terminer avec un point-virgule. Il n'y a pas d'exception à la règle hormis BEGIN et l'instruction précédent END ou ELSE. ¾ Il est toléré de mettre plusieurs instructions les unes à la suite des autres sur une même ligne du fichier mais il est recommandé de n'en écrire qu'une par ligne. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Identificateurs Les noms de constantes, variables, procédures, fonctions, tableaux, etc. (appelés identificateurs) doivent êtres des noms simples. Les identificateurs doivent impérativement être différents de ceux d'unité utilisées, de mots réservés du langage Pascal: AND, ARRAY, ASM, BEGIN, CASE, CONST, CONSTRUCTOR, DESTRUCTOR, DIV, DO, DOWNTO, ELSE, END, EXPORTS, FILE, FOR, FUNCTION, GOTO, IF, IMPLEMENTATION, IN, INHERITED, INLINE, INTERFACE, LABEL, LIBRARY, MOD, NIL, NOT, OBJECT, OF, OR, PACKED, PROCEDURE, PROGRAM, RECORD, REPEAT, SET, SHL, SHR, STRING, THEN, TO, TYPE, UNIT, UNTIL, USES, VAR, WHILE, WITH, XOR. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Identificateurs ? Ne doivent pas excéder 127 caractères (1 lettre au minimum). ? Doivent exclusivement être composés des 26 lettres de l'alphabet, des 10 chiffres et du caractère de soulignement. ? Ne doivent pas contenir de caractères accentués, ni d'espace, ni de point et ni les caractères suivants : @, $, &, #, +, -, *, /. ? Les chiffres sont acceptés hormis en première place. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Entrées et sorties à l'écran La commande WRITE permet d'afficher du texte et de laisser le curseur à la fin du texte affiché. ? Cette commande permet d'afficher des chaînes de caractères (< 255 ) ainsi que des valeurs de variables, de constantes, de types ? Le texte doit être entre apostrophe. ? Si le texte à afficher contient une apostrophe, il faut alors la doubler. ? Les différents noms de variables doivent êtres séparés par des virgules.
| ||
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Entrées et sorties à l'écran La commande WRITELN est semblable à la précédente à la différence près que le curseur est maintenant renvoyé à la ligne suivante. Syntaxe : WriteLn ('Texte avec renvoi à la ligne') ; La commande READ permet à l'utilisateur de rentrer une valeur qui sera utilisée par le programme. Cette commande ne provoque pas de retour Chariot, c'est-à-dire que le curseur ne passe pas à la ligne.
| ||
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Entrées et sorties à l'écran La commande READLN permet à l'utilisateur de rentrer une valeur qui sera utilisée par le programme. Cette commande provoque le retour Chariot, c'est-à-dire que le curseur passe à la ligne suivante. Lorsque aucune variable n'est affectée à la commande, il suffit de presser sur <ENTREE>. Syntaxe : ReadLn (variable1, variable2) ; ReadLn ; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Opérateurs prioritaires : *, /, DIV et MOD. Opérateurs secondaires : + et -. Vous pouvez utiliser des parenthèses. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| ? Niveau 4 : =, <, >, <=, >=, <>. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Variables - Déclaration Déclaration Toutes les variables doivent êtres préalablement déclarées avant d'être utilisées dans le programme, c'est-à-dire qu'on leur affecte un type . On peut les déclarer de divers manières : ? Au tout début du programme avec la syntaxe VAR nom de la variable : type ; Dans ce cas, elles seront alors valables pour le programme dans son intégralité (sous-programmes, fonctions, procédures ). ? Au début d'une procédure avec la syntaxe précédente. Elles ne seront valables que dans la procédure. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Variables - Affectation Affectation ou prise de valeurs ? Pour affecter une valeur à une variable, on utilise le commutateur " :="(deux points et signe égale). ? Il faut que la valeur donnée soit compatible avec le type utilisé. Exemple VAR Nombre : integer; { Variable 'Nombre' du type entier } BEGIN Nombre := 5; { On affecte 5 à la variable 'Nombre' } Nombre := Nombre * Nombre; { Au carré } WRITE(Nombre); { sortie : 36 } END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Affichage - Formats Formater les sorties signifie qu'on désire leur imposer un format d'affichage. Le format d'une variable de type réel : ? WriteLn ( nombre : n ) ; pour écrire le nombre sur n espaces. ? WriteLn ( nombre : n : m ) ; pour écrire le nombre sur n espaces avec m chiffres après la virgule. (un réel en possède bien plus). Exemple: Soit x un réel; pour lequel on affecte à la valeur 1257 Writeln(x) Ö 1.2570000000E+03 Writeln(x:9) Ö 1.26E+03 Writeln(x:12) Ö 1.25700E+03 (affichage sur 12 caractères) Writeln(x:12:2) Ö xxxx1257.00 Writeln(x:12:5) Ö x1257.00000 Ce format peut être appliqué pour tous les autres types de variable . Exemple : WriteLn ( 'ENCG' : 10 ) ; Ici, la chaîne de caractères sera affichée sur 10 caractères: ENCG | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| writeln('Vous êtes mineur; '); end; { Ici, un point virgule } end. Notez que le END terminant le THEN ne possède pas de point virgule car s'il en possédait un, alors le bloc condition se stopperait avant le ELSE. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Structures alternatives - if then else begin write('Entrez votre age : '); read(Age); if Age < 18 then { SI Age < 18 ALORS } begin writeln(' Vous êtes mineur); end { Pas de point virgule } else if Age > 65 then { SINON SI Age > 65 ALORS } begin writeln('Vous me semblez bien vieux'); end { Pas de point virgule non plus} else { SINON } begin writeln('C''est bon, vous êtes majeur.'); end; { Ici, un point virgule } | |
| end. Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Structures alternatives - Case Of End Case Of End L'utilisation des cas est parfois plus adaptée à certaines situations que la classique structure conditionnelle avec if then. Program exemple ; Var age:integer ; BEGIN Write('Entrez votre âge : ') ; Readln(age) ; Case age of 0..17 : writeln('Encore mineur') ; { intervalle de valeurs } 18,19 : writeln('Vous êtes majeur') ; { énumération } 35: writeln(' l''âge d'or ') ; { cas unitaires } 60..99 : writeln('Vous êtes dans le troisième age'); Else writeln('Vous êtes d''un autre âge ') ; {aucun des cas spécifiés } End ; END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Structures répétitives - For : = To Do For : = To Do Cette instruction permet d'incrémenter une variable à partir d'une valeur inférieur jusqu'à une valeur supérieur et d'exécuter une ou des instructions entre chaque incrémentation. Le pas de variation est l'unité et ne peut pas être changé. Syntaxe : For variable := borne inférieur To borne supérieur Do Begin commandes End ; For : = DownTo Do Cette instruction permet de décrémenter une variable à partir d'une valeur supérieur jusqu'à une valeur inférieur et d'exécuter une ou des instructions entre chaque décrémentation. Syntaxe : For variable := borne supérieur DownTo borne inférieur Do Begin Commandes End; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| begin {table de 8 à rebours } For i := 10 DownTo 1 Do writeln(i, ' x 8 = ', i * 8); end. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Structures répétitives - Repeat Until Cette boucle effectue les instructions placées entre deux bornes (repeat et until) et évalue à chaque répétition une condition de type booléenne ?Il y a donc au moins une fois exécution des instructions. ?Il est nécessaire qu'au moins une variable intervenant lors de l'évaluation soit modifiée à l'intérieur de la boucle. Syntaxe : Repeat commandes Until variable condition valeur ; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Dans notre exemple il s'agit d'effectuer le traitement jusqu'à ce que Age soit supérieur ou égal à 18. La structure itérative repeat - until permettant de faire ce traitement et éventuellement de le répéter si la condition de l'itération n'est pas vérifiée. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Structures répétitives - While Do While Do Ce type de boucle, contrairement à la précédente, évalue une condition avant d'exécuter des instructions. De plus, au moins une variable de l'expression d'évaluation doit être modifiée au sein de la structure de répétition pour qu'on puisse en sortir. Syntaxe : While variable condition valeur Do Begin commandes End ; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| end. Le programme nous affiche un compte à rebours si la condition initiale est vrai ; en revanche il n'affiche rien si la condition était fausse c'est à dire si l'utilisateur a fournit un nombre négatif en entrée. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Le programme exemple1 déclare tout d'abord la variable nommée nom comme étant une chaîne de caractère (String). Ensuite, dans le bloc programme principal, il est demandé à l'utilisateur d'affecter une valeur à la variable nom. Ensuite, il y a affichage de la valeur de la variable et attente que la touche entrée soit validée (ReadLn). | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Branchement - GOTO Un branchement peut être comparé à un pont. À chaque fois que le programme en rencontre un, il va faire un pont de ce branchement jusqu'au label qui lui est indiqué. Un branchement est définit par un label qu'on choisi. Tout label doit être déclaré préalablement en tête du programme, juste après program, à l'aide du mot-clef label. Si il y en à plusieurs, il seront séparés par des virgules. Dans le programme, le label est toujours suivit des doubles points (:) Pour atteindre à ses labels, il faut utiliser l'instruction goto suivie du label choisi. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| writeln('Ceci est le début du programme'); Milieu: { Label Milieu } writeln('Ceci est le milieu du programme'); Fin: { Label Fin } writeln('Ceci est la fin du programme'); end. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Les procédures et fonctions ? Les procédures et fonctions sont des sortes de sousprogrammes écrits avant le programme principal. ? Le nom d'une procédure ou d'une fonction ne doit pas excéder 127 caractères et ne pas contenir d'accent. Ce nom doit, en outre, être différent de celui d'une instruction en Pascal. ? L'appel d'une procédure peut dépendre d'une structure de boucle, de condition, etc. ? Les procédures et fonctions sont appelés depuis; ? le programme principal, ? d'une autre procédure ? d'une autre fonction. ? Une procédure se distingue d'une fonction par le fait qu'elle ne renvoi pas de valeur, alors qu'une fonction en renvoi une. |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
Variables locales et sous-procédures
Une procédure peut avoir ses propres variables locales qui seront réinitialisées à chaque appel. Ces variables n'existent alors que dans la procédure.
Ainsi, une procédure peut utiliser les variables globales du programme (déclarées en tout début) mais aussi ses propres variables locales qui lui sont réservées.
Syntaxe :
Procedure nom de procédure ;
Var variable : type ;
Procedure nom de sous-procédure ;
Var variable : type ;
Begin Sous-procédure
procédure
End ;
Begin
commandes
End ; Pr. Benjelloun Mohammed - ENCG - El Jadida
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Procédure paramétrée On peut aussi créer des procédures paramétrées (dont les variables n'existent que dans la procédure). Ces procédures là ont l'intérêt de pouvoir être déclarée avant les variables globales du programme principal ; elles n'utiliseront que les variables passées en paramètres Syntaxe : Program nom de programme ; Procedure nom de procédure( noms de variables : types ) ; Begin commandes End ; BEGIN nom de procédure ( noms d'autres variables ou leurs valeurs ) ; END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Procédure paramétrée (Var) ? qui modifie la valeur de la variable passée en paramètre. Lors de la déclaration de variable au sein de la procédure paramétrée, la syntaxe Var (placée devant l'identificateur de la variable ) permet de déclarer des paramètres formels dont la valeur à l'intérieur de la procédure ira remplacer la valeur, dans le programme principal, de la variable passée en paramètre. Il faut savoir qu'une procédure paramétrée peut accepter plusieurs variables d'un même type et aussi plusieurs variables de types différents. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Procédure paramétrée (Var) Ainsi, certaines variables pourront êtres associées au Var, et d'autres pas. Il faudra déclarer séparément (séparation par un point virgule;) les variables déclarées avec Var et les autres sans Var. Syntaxes : Procedure identifiant (Var var1, var2 : type1 ; var3 : type1) ; Begin End ; Procedure identifiant (Var var1 : type1 ; Var var2 : type2) ; Begin End ; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Fonctions Elles sont appelées à partir du programme principal, d'une procédure ou d'une autre fonction. Le programme affecte des valeurs à leur variables (comme pour les procédures paramétrées, il faudra faire attention à l'ordre d'affectation des variables). Syntaxes : Function nom de fonction (variable : type ) : type ; Var déclaration de variables locales ; Begin commandes nom de fonction := une valeur ; End ; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| END. Pr. Benjelloun Mohammed - ENCG - El Jadida |
L'argument des fonctions trigonométriques doit être exprimé en radian (Real), | |||||||||||||||||||||||||||
| Pr. Benjelloun Mohammed - ENCG - El Jadida | |||||||||||||||||||||||||||
| Procédures et Fonctions | |||||
| Inc(a); | Le nombre a est incrémenté de 1 | Procédure | |||
| Inc(a,n); | Le nombre a est incrémenté de n | Procédure | |||
| Dec(a); | Le nombre a est décrémenté de 1 | Procédure | |||
| Dec(a,n); | Le nombre a est décrémenté de n | Procédure | |||
| Trunc(a) | Prise de la partie entière du nombre a sans arrondis | Fonction | |||
| Int(a) | Prise de la partie entière du nombre a sans arrondis | Fonction | |||
| Frac(a) | Prise de la partie fractionnaire du nombre a | Fonction | |||
| Round(a) | Prise de la partie entière du nombre a avec arrondi à l'unité la plus proche | Fonction | |||
| Odd(a) | Renvoie true si le nombre a est impair et false si a est pair | Fonction | |||
| SizeOf(x) | Renvoie le nombre d'octets occupés par la variable x | Fonction | |||
| Pr. Benjelloun Mohammed - ENCG - El Jadida | |||||
| Architecture standard en pascal {les instructions facultatives pour compilation doivent êtres entre accolades} Programnom de programme ; Usesunités utilisées ; Constdéclaration de constantes ; Typedéclaration de types ; Functiondéclaration de fonction ; Vardéclaration de variables ; Proceduredéclaration de procédure simple ;BEGIN { programme principal } CommandesEND. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Types scalaires en Pascal Les types énumérés Si les types prédéfinis ne suffisent pas, vous pouvez créer d'autres types. Il faut d'abord définir le type que vous désirez créer en donnant la liste ordonnée de toutes les valeurs possibles : TYPE t_jour=(lun,mar,mer,jeu,vend,sam,dim); Toutes les variables de ce type ne pourront pas avoir d'autres valeurs que celles que l'on a énumérées. ensuite il faut déclarer les variables de ce type : ex: VAR jour1, jour2 : t_jour; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Types scalaires en Pascal On peut alors les utiliser dans le programme grâce à : ? des affectations : JOUR1:=mer; JOUR2:=JOUR1; ? des fonctions prédéfinies: PRED (précédent), SUCC (suivant), ORD (numéro d'ordre (dans la déclaration), entre 0 et N-1) pred(mar)=lun succ(mar)=mer ord(mar)=1 ? des comparaisons : lun<mer mais attention dim>lun (suivant l'ordre donné dans la déclaration) ? des boucles : FOR jour1:=lun TO vend DO ? des sélections de cas : CASE jour2 OF lun : ; sam,dim : END | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Types scalaires en Pascal Les types intervalles Un intervalle est un ensemble de valeurs successives appartenant à un type déjà défini. Ce sont en quelques sortes des cas particuliers des énumérations. Le type intervalle est défini par une borne inférieure et une borne supérieure séparés par un .. ? TYPE ; {si on a déjà défini t_jour } ? TYPE mois=1..12; {sous-ensemble du type INTEGER} ? TYPE byte=0..255; {prédéfini en TURBO} | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Les tableaux Les tableaux sont très utiles pour stocker des données, lorsque ces dernières deviennent surabondantes. Syntax : VarNomTab: Array[Min..Max] OfType; ¾ La ligne commence par Var. Il faudra donc déclarer les tableaux en même temps que les autres variables. ¾ NomTab représente un identificateur. Il doit respecter les règles énumérées précédemment pour les variables. ¾ Array permet de créer le tableau. Min définit la dimension inférieur et Max la dimension supérieur. ¾ Type définit le type du tableau : il peut être du type String, Boolean, Integer | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| à 2, 3, … dimensions : var Tabl : Array[1..3, 1..5 ] Of integer; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Lecture et écriture des éléments d'un tableau. Pour avoir accès à un élément d'un tableau, il suffit d'écrire le nom de la variable de type tableau suivi de l'indice de l'élément visé entre crochets. Cet accès permet à la fois de lire et d'écrire cet élément. Par exemple : ¾Si Un Tableau est une variable du type Array of Integer, le nième élément de ce tableau sera MonTableau[n]. ¾Pour lui donner la valeur 5, on écrira simplement MonTableau[n]:=5. ¾Pour transférer sa valeur dans la variable b, on écrira simplement b:=MonTableau[n]. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Cas particulier du type String Le type String représente les chaînes de caractères. C'est en fait un tableau qui aurait pu être déclaré comme array[0..255] of Char. Le premier octet du tableau représente la longueur réelle de la chaîne considérée. Par exemple : S[1]='E', S[4]='M' De même on pourra modifier les caractères contenus dans la chaîne. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Caractères et chaînes de caractères Syntaxe : Var chaine : String ; telephone : String[10] ; Le type String est en fait un tableau de caractères à une dimension dont l'élément d'indice zéro contient une variable de type Char et dont le rang dans la table ASCII correspond à la longueur de la chaîne. Il est donc possible de modifier un seul caractère de la chaîne . | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Caractères et chaînes de caractères le type String est en fait un tableau de caractères à une dimension dont l'élément d'indice zéro contient une variable de type Char et dont le rang dans la table ASCII correspond à la longueur de la chaîne. Il est donc possible de modifier un seul caractère de la chaîne grâce à la syntaxe suivante : chaine[index]:=lettre; Program Chaine; Var nom:String; END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Caractères et chaînes de caractères Concat ( s1, s2, s3, , sn) ; Cette fonction concatène les chaînes de caractères spécifiées s1, s2, etc. en une seule et même chaîne. Syntaxes : s := Concat ( s1, s2 ) ; s := s1 + s2 ; Insert ( s1, s2, i ) ; Procédure qui insert la chaîne s1 dans la chaîne s2 à la position i. Pos ( s1, s2 ) ; Fonction qui renvoie sous forme de variable byte la position de la chaîne s1 dans la chaîne-mère s2. Si la chaîne s1 en est absente, alors cette fonction renvoie 0 comme valeur. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Caractères et chaînes de caractères Copy ( s, i, j ) ; Fonction qui retourne de la chaîne de caractère s, un nombre j de caractères à partir de la position i (dans le sens de la lecture). Rappelons que i et j sont des entiers (integer). Delete ( s, i, j ) ; Str ( x, s ) ; Procédure qui convertit le nombre (Integer ou Real) x en chaîne de caractère de nom s. length(s); Fonction qui renvoie sous forme de variable byte la longueur de la chaîne s | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Les enregistrements Il est parfois utile de regrouper des variables de types éventuellement différents grâce à la notion d'enregistrements. Un enregistrement contiendra donc plusieurs données qu'on appellera champs. Déclaration d'un type enregistrement Cette déclaration prend la forme suivante : TypeEnregistrement = RECORD Champ1 : Type1; Champ2 : Type2; .. END; TypeEnregistrement est le nom du type créé. Champ1, Champ2, sont les noms des différents champs. Type1, Type2, sont les types de ces champs. record et end sont des mots réservés de Turbo Pascal. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| end; si UnAmi est une variable du type Naissance, on aura accès au nom en écrivant . :='Simo' permet d'écrire le nom. permet de transférer le jour dans la variable b. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Architecture standard en pascal {les instructions facultatives pour compilation doivent êtres entre accolades} Programnom de programme ; Usesunités utilisées ; Constdéclaration de constantes ; Typedéclaration de types ; Functiondéclaration de fonction ; Proceduredéclaration de procédure paramétrée ; Vardéclaration de variables ; Proceduredéclaration de procédure simple ;BEGIN { programme principal } CommandesEND. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Lecture et écriture d'un champ. Pour avoir accès à un champ d'une variable de type enregistrement on écrit le nom de la variable suivi d'un point et du nom du champ visé. Cet accès permet à la fois de lire et d'écrire ce champ. L'instruction With Syntaxe : with NomVar do begin (suite d'instructions où on utilise les champs de NomVar comme des variables ) end; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| An:=1960; end; Writeln(); END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Manipulation de fichiers Pour utiliser un ou des fichiers tout au long d'un programme, il faudra l'identifier par une variable dont le type est fonction de l'utilisation que l'on veut faire du fichier. Il existe : ? Les fichiers textes (Text), qui sont écrits au format texte (chaînes de caractères, nombres). ? Les fichiers typés (File Of), qui sont des fichiers écrits sur disque telles que les données se présentent en mémoire. ? Les fichiers tout court (File), qui sont des fichiers dont on ne connaît pas le contenu. Syntaxe : Var f : Text ; Var f : File Of type; Var f : File; | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Assign (procedure) Pour Turbo Pascal, toute opération sur un fichier se fait par l'intermédiaire d'une variable de type File. Avant d'utiliser une telle variable il est nécessaire de l'initialiser en l'associant à un fichier DOS. Cette opération se réalise par l'intermédiaire de la procédure Assign. Syntaxe : Assign ( variable d'appel , nom du fichier ) ; Exemple : pour utiliser le fichier contenu dans le répertoire \datas du lecteur c: on l'associera au fichier pascal f en écrivant Assign(f,'c:\datas\'); | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Fichier type Text : Ouverture, Création Avant de pouvoir effectuer des opérations de lecture ou d'écriture sur un fichier il est nécessaire de l'ouvrir. Cela peut se réaliser de 2 façons : si variable d'appel est f ¾ Création d'un nouveau fichier On utilise la procédure Rewrite(variable d'appel). ¾ Ouverture d'un fichier déjà existant On utilise la procédure Reset(variable d'appel). Le fichier Dos associé à f est ouvert et prêt pour des opérations de lecture et d'écriture. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Fichier type Text:Fermeture, Lorsqu'on a terminé les opérations de lecture et d'écriture sur le fichier il faut le fermer. Un programme se doit de fermer tous les fichiers qu'il a ouverts. ¾ La fermeture d'un fichier s'effectue par l'intermédiaire de la procédure Close(Variable d'appel). ¾ Pour ajouter des lignes de texte. La procédure Append(var f:Text) ouvre le fichier en fixant la position courante à la fin du fichier. La procédure Readln(var f:Text; Var S) lit la ligne courante dans la chaîne S. La procédure Writeln(var f:Text; Var S) écrit la chaîne S à la position courante et place les caractères #13#10. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| END. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Gestion des répertoires Le DOS organise les fichiers d'un lecteur en répertoires. L'unité System fournit des procédures et fonctions permettant de réaliser certaines opérations globales sur les fichiers et les répertoires. Les opérations concernant les fichiers doivent être effectuées sur des fichiers fermés. Procédures concernant les fichiers d'un répertoire ¾La procédure ERASE(f:File) efface le fichier f du disque. ¾La procédure RENAME(f:File;NouveauNom:String) change le nom du fichier f en NouveauNom. Remarque : si NouveauNom contient un chemin d'accès sur le même lecteur cette procédure correspond à un déplacement du fichier d'un répertoire à l'autre. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Gestion des répertoires Procédures concernant les répertoires ¾La procédure MKDIR(NouveauRepertoire:String) permet de créer un nouveau répertoire. ¾La procédure RMDIR(Repertoire:String) détruit un sousrépertoire si celui-ci est vide. ¾La procédure GETDIR(Lecteur:Byte;Chemin:String) renvoie le répertoire courant dans la variable chaîne Chemin; Lecteur est un entier pour lequel : 0 désigne le lecteur courant; 1 désigne le lecteur A:; 2 désigne le lecteur B:; etc | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Ouvrir d'un fichier type File Avant de pouvoir effectuer des opérations de lecture ou d'écriture sur un fichier il est nécessaire de l'ouvrir. Cela peut se réaliser de 2 façons : si variable d'appel est f ¾ Création d'un nouveau fichier On utilise la procédure Rewrite(variable d'appel, taille). Un fichier Dos vide dont le nom est celui associé à f est créé. Si un fichier de même nom existe déjà, il est détruit. ¾ Ouverture d'un fichier déjà existant On utilise la procédure Reset(variable d'appel,taille). Le fichier Dos associé à f est ouvert et prêt pour des opérations de lecture et d'écriture. Taille est facultative. Cependant il vaut 6 si on veut lire des nombres réels (Real) ou bien 256 pour des chaînes de caractères (String). Le fait que la variable taille soit de type Word implique que sa valeur doit être comprise entre 0 et 65535. Par défaut, taille=128 octets. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Fermer un fichier Lorsqu'on a terminé les opérations de lecture et d'écriture sur le fichier il faut le fermer. Un programme se doit de fermer tous les fichiers qu'il a ouverts. ¾ La fermeture d'un fichier s'effectue par l'intermédiaire de la procédure Close(Variable d'appel). | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| La position courante dans un fichier ouvert A chaque fichier est associée une position courante (entier de type LongInt) qui indique où les opérations de lecture et d'écriture vont être effectuées. Au départ la position courante est 0. Chaque opération de lecture ou d'écriture d'un bloc élémentaire (dont la taille est déterminée à l'ouverture) augmente la position courante d'une unité. Turbo Pascal fournit une procédure et une fonction gérant la position courante dans un fichier. La procédure Seek(Var f:File; n:LongInt) fixe la position courante à n. La fonction FilePos(Var f:File):LongInt renvoie la position courante. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Lecture dans un fichier La lecture dans un fichier se fait avec la procédure BlockRead(var f:File; Var Ident; NombreALire : Word[; Var NombreLus:Word]); f est le fichier visé; Ident est le nom d'une variable de type quelconque qui recevra les informations contenues dans le fichier; NombreALire est le nombre de bloc élémentaires à lire. Le paramètre facultatif NombreLus permet de récupérer le nombre de blocs effectivement lus. La lecture se fait à la position courante du fichier qui est ensuite augmentée de NombreALire. | |
| Pr. Benjelloun Mohammed - ENCG - El Jadida |
| Ecriture dans un fichier L'écriture dans un fichier se fait avec la procédure BlockWrite(var f:File; Var Ident; NombreAEcrire : Word[; Var NombreEcrits:Word]); f est le fichier visé; Ident est le nom d'une variable de type quelconque qui sera écrite dans le fichier; NombreAEcrire est le nombre de bloc élémentaires à écrire. Le paramètre facultatif NombreEcrits permet de récupérer le nombre de blocs effectivement écrits. Evidemment, l'écriture se fait à la position courante du fichier qui est ensuite augmentée de NombreAEcrire. |
