07/02/2020
dernier chapitre de programmation en PASCAL
Programmation en PASCAL
L’utilisation du langage de programmation PASCAL pour réaliser un logiciel
Problème Solution algorithmique Logiciel
Ax+b=0 manipulation des outils algorithmique
Gestion de stock Ex : Ecrire – Lire - Si tant que pour .. manipulation des outils d’un
Gestion de facturation Langage de programmation
Comptabilité Ex : Readln – Writeln – if …
……
A) Comment lancer le PASCAL :
Dans le système d’exploitation chercher le fichier exécutable BP.exe
Clique sur démarrer – exécuter et taper CMD
Tapez d : pour se déplacer vers la deuxième partition de disque dure ensuite entrer dans le dossier BP ou BP7 et après accéder au sous dossier BIN
Après quelque seconde une fenêtre apparaitra (BP.exe c’est un éditeur de texte a pour but de saisir un programme)
B) Le plan d’un programme en PASCAL /c/basic/algo
C) Déclaration des variables mémoires
Var
Nom de la variable mémoire : type de donnée ;
Type de donnée : string = texte Integer=entier [-32768 ;32767] word [0 ;32737] Real=réelle
D) Affectation
Nom de la variable mémoire := valeur ;
E) Instruction de sortie /d’affichage/d’écriture
Write(‘Message’) ; Affiche le message sur l’écran
Writeln(‘Message’) ; Affiche le message sur l’écran et revenir à la ligne
Write(NVM) ; Affiche le contenu de la variable mémoire sur l’écran
Writeln(NVM) ; Affiche le contenu de la variable mémoire sur l’écran et revenir à la ligne
F) Instruction d’entrer /de saisie/Lecture/
Readln(NVM) ;
Exemple d’application
Ecrire un programme en PASCAL qui permettra d’entrer deux valeur, de calculer leurs somme et d’afficher le résultat
Solution
Program nom ;
Uses crt ;
Var
X,y,s : integer ;
Begin
Clrscr ;
Write(‘entrez la valeur de x ‘) ;readln(x) ;
Write(‘entrez la valeur de y ‘) ;readln(y) ;
S :=x+y ;
Write(‘Somme = ‘,s) ;
Readln ;
End.
Commande de positionnement sur l’écran
GOTOXY(Numéro de la colonne , numéro de la ligne) ;
Liste des commandes de pascal
Les instructions conditionnelles
if condition then instruction ;
if condition then instruction
else instruction ;
Pas de ; avant le else.
case variable_ordinale of
valeur1 : instruction ;
valeur2 : instruction ;
else : instruction ;
end ;
Les instruction itératives
For compteur := debut To fin Do instruction
For compteur := debut DownTo fin Do instruction
While expression Do instruction
Repeat instruction Until expression
Le code de l’instruction Repeat est toujours exécuté au moins une fois.
MemAvail ;
Cette fonction retourne la mémoire totale libre en octets.
MaxAvail ;
Cette fonction retourne la longueur en octets du bloc contigu le plus grand de la mémoire vive. Très utile pour connaître la taille allouable à un pointeur en cours d'exécution.
Les fichiers texte
Lorsque l’on souhaite utiliser un fichier texte, il faut suivre cinq étapes.
Déclaration d’une variable de fichier texte
nomdevariable : TextFile ;
Exemple :
var
source : TextFile ;
Affecter un fichier à une variable
AssignFile(nomdevariable,’nomdefichier’) ;
Exemple :
AssignFile(source,’c :\fichier.txt’) ;
Le nom du fichier est passé en paramètre sous forme de chaine de caractères. Si le fichier ne se trouve pas dans le répertoire courant ou le chemin de recherche, il faut indiquer le chemin absolu du fichier. On peut faire référence à un fichier qui n’existe pas pour le créer .
Ouvrir un fichier texte
Delphi possède 3 instructions pour ouvrir un fichier :
_ Rewrite(nom_de_variable) : permet de créer un fichier qui n’existe pas. Si le fichier existe déjà, il sera simplement écrasé. Le contenu du fichier ne sera perdu qu’à partir du moment où l’on écrit des données dans le fichier.
_ Reset(nom_de_variable) : permet d’ouvrir un fichier en lecture seul. Si le fichier à ouvrir n’existe pas il y aura une erreur d’exécution.
_ Append(nom_de_variable) : permet d’ouvrir un fichier en écriture. Les données insérées le seront en fin de fichier. Si le fichier n’existe pas, l’application génère une erreur d’execution.
Lire un fichier texte
La fonction Readln permet de lire un fichier texte ligne après ligne. Le " ln " fait référence à la séquence CR-LF.
Readln(variablesource,variabledestockage) ;
Exemple :
var
s : string ;
source : TextFile ;
begin
Readln( source , s ) ;
end ;
La fonction Eof permet de détecter la fin d’un fichier. Elle prend comme paramètre la variable qui pointe sur le fichier. Eof renvoie True lorsque la fin du fichier est atteinte.
Exemple :
while not Eof(source) do
Ecrire dans une fichier texte
La fonction Writeln permet d’écrire un fichier texte.
Writeln(variablesource,variabledestockage) ;
Il existe une procedure Write qui permet d’écrire une ligne en plusieur fois mais il est indispensable d’utiliser Writeln à la fin pour passer à la ligne.
Fermeture d’un fichier
La fermeture des fichiers est importaent car elle libère les ressources exigées par le fichier et permet une réelle écriture des données sans risque de perte d’information.
CloseFile(variablesource) ;
Test d’existence d’un fichier
FileExists(‘nomdeficheir’) : Boolean
Exemple :
var
F : TextFile ;
...
AssignFile(F,’c :\fichier.txt’) ;
if FileExists(‘c :\fichier.txt’) then Append( F )
else Rewrite( F ) ;
...
Close( F ) ;
Les directives de compilation pour gérer les erreurs d’E/S
Pour éviter que le déroulement d’une application ne s’interrompe en cas d’abscence d’un fichier, il faut désactiver la vérification d’entrée sortie en utilisant la directive {$I+/-}
Exemple :
var
F : TextFile ;
I : Integer
...
AssignFile(F,’c :\fichier.txt’) ;
{$I-}
Append(F) ;
{I+}
I :=IOResult ;
if( I = 2 ) then Rewrite( F ); // le fichier n’existe pas
...
CloseFile( F ) ;
Le résultat d’une évaluation est stockée dans la variable IOResult déclarée implicitement. La valeur de la variable doit être stockée dans une autre variable car le simple fait d’appeler IOResult la vide de son contenu.
