
Programmation : Initiation au Turbo Pascal

Le Pascal est un Langage Structuré c.a.d qu'il faut toujours déclarer les différentes variables que l'on utilisent. De plus la Compilation Pascal est Linéaire :
On ne peut utiliser dans son Programme qu'une fonction ( ou procédure ) que l'on à définit AVANT ( ou Prédéfini dans une Unité ).
Vous avez compris la phrase???? Si Oui, vous êtes capable de programmer en Pascal..... non ??, je blague bien sur !! Il faut en connaître un peu plus, mais il ne faut pas
perdre cela de la mémoire, car elle résume assez bien ce qu'est le Pascal et permet de comprendre la Structure d'un Programme en Pascal. Je vous l'expliquerai brièvement plus
tard, Tout d'abord passons au ChoseS Sérieuses !!!! .
Que pourrait-on faire pour Commencer ????
Commençons par le plus simple : Afficher une phrase à l'écran, cela va nous permettre de voir la structure générale d'un programme simple en
Pascal.
Les commentaires ou remarques en Pascal sont entre { } ou (* *).
Exemple 1 : Affichage d'une phrase.
Le plus simple programme en Turbo Pascal pour l'affichage d'une Phrase :
Program MonProg;
Begin { Début du Programme }
Write('Bonjour à tous les lecteurs du Falk ''Mag') ; { Affichage }
End. { Fin du Programme. Remarquez le point après le End }
Mais c'est vraiment trop particulier et ça ne permet pas de voir toutes les possibilités offertes par le Turbo Pascal, l'exemple suivant est un peu plus compliqué mais
plus intéressant :
Program Exemple1; { Définition du NOM du Programme }
Uses Crt; { Utilisation de l'unité CouRanTe du Pascal }
(* ==> Fonction Gestion Ecran : Curseur , Affichage .. *)
Begin { Début du Programme }
ClrScr; { Efface l'écran : CLeaRSCReen }
Writeln('Bonjour à tous les lecteurs du Falk ''Mag');
{ Fonction Write : Affiche à l'écran une chaîne de Caractères }
{ Fonction Writeln :
Va au début de la ligne suivante après l'affichage }
Write('Appuyer sur une touche ..... ... .. . ');
Readln; { Fonction Readln ==> Lit une touche au clavier }
{ Ici , cela nous permet de pouvoir voir ce qu''il y à l'écran }
GotoXY(12,11) { Place le curseur en X = 12 et Y = 11 }
Write('Là j''écris au milieu de l''écran ');
Readln;
End. { Fin Du Programme }
* Remarquons que chaque fonction est séparée par un ' ; ' et que le programme commence par l'instruction BEGIN et se termine par END.
* De plus , Si dans la chaîne à afficher il y a un ' ' ', il faut en mettre deux :
Exemple :
La chaîne ' Il faut m'appeler ' renverra une erreur ,
Il faut mettre : ' Il faut m''appeler '
* La Fonction Write permet d'afficher une chaîne de Caractère à l'écran.
Maintenant , on va passer à la structure propre du Pascal :
=> Définition de constantes et de variables.
Exemple 2 : Calcul de la Surface d'un cercle.
Program Exemple2;
{ On défini les constantes }
Const Pi = 3.14159 ;
{ Les variables globales
( c.a.d utilisables tout au long du Programme ) }
Var SurfaceDuCercle : Real ; { Variable de Type Réel }
RayonDuCercle : Real ;
{ ' Var ' nous permet de définir une variable }
{ Différent Type existe pour la variable
( D'ailleurs Nous verrons cela plus Tard) }
Begin
{ Initialisation des différentes variables }
SurFaceDuCercle := 0.00 ;
RayonDuCercle := 0.00 ;
{ Prend le rayon du cercle au clavier }
Write('Donner le Rayon du Cercle ');
{ Rentre en mémoire le rayon }
Readln(RayonDuCercle);
{ Pour Lire une Valeur au Clavier , On utilise Toujours Readln }
Write('La Surface est : ',Pi*RayonDuCercle*RayonDuCercle:6:2);
{ Variable:Nbre De Chiffre Total:Nombre De Décimales }
{ Ici Pi*RayonDuCercle*RayonDuCercle = Surface sera du Type ABCD.EF }
{ A -> F ==> 6 Chiffres et E->F ==> 2 Chiffres }
Readln;
End;
Jusqu'ici, pas trop de nouveauté!!!!! par rapport au premier exemple, J'imagine (et j'espère) que l'on peut continuer sans que cela crée un problème .
On peut le faire d'une autre manière plus générale, ce qui va nous permettre de voir la Structure Générale de la Déclaration De Variable(s) En
Turbo Pascal :
Program Exemple2BIS;
Uses Crt ; { 1 . Déclaration D'Utilisation de(s) Unité Utilisée(s)
{ Ici on Utilise l'unité CouRanTe }
{ 2 . Puis , On défini les Constantes }
Const Pi = 3.14159 ;
{ 3 . On Définit de nouveaux Type(s) de Variable
Si cela est Utile }
Type TypeSurface : Real ; { C'est un mauvais exemple
Car le Type Real existe déjà mais c'est seulement pour voir la
Structure complète d'un programme en Turbo Pascal }
{ 4 . Puis les Variables Globales du Programme ( c.a.d utilisables tout au long du Programme ) }
Var
RayonDuCercle : Real ;
{ N.B : A la place de Real On pourrait mettre TypeSurface }
{ Var RayonDuCercle : Real ; ET
Var RayonDuCercle : TypeSurface ; Définissent la même chose }
NombreDeDecimal : Integer ; { Variable Type Entier }
Resultat : TypeSurface ;
Procedure CalCulSurface ; { Définition d'une nouvelle Procédure }
Begin { Début de la procédure }
Resultat := Pi*RayonDuCercle*RayonDuCercle ;
{ Une Affectation est faite avec ' := '
Exemple : Pi := 3.1415... }
{ Un Test Sur Une variable est faite avec ' = '
Exemple : If ( Pi = 0 ) Then Erreur ; }
End; { Fin de la procédure }
Begin { Début du Programme }
ClrScr;
{ Initialisation des differentes variables }
RayonDuCercle := 0.00 ;
{ Prend le rayon du cercle au clavier }
Write('Donner le Rayon du Cercle ');
{ Rentre en mémoire le rayon }
Readln(RayonDuCercle);
CalCulSurface ;
Write('La Surface du cercle est : ',Resultat);
End. { Fin Du Programme }
Ici, Nous avons utilisé une Procédure : Le ' End ' de la procédure est donc terminé par un ' ; ', et il y a définition d'un Nouveau Type ( Type
TypeSurface = Real ), un tout petit peu inutile ici .... .. .. ! ! ??? , mais c'est pour l'exemple !!! .
Voilà, Nous allons nous arrêter là pour notre la partie de notre initiation au Turbo Pascal. La prochaine fois nous verrons ce qu'est une fonction par rapport
a une procédure et les Types puis peut-être les Procédures et Fonctions Avec et Sans Paramètres d'entrées.
N.B : Pour vous aider les 3 .pas ( Avec moins de Commentaires ) sont avec le Falk'Mag.
Si vous trouvez que le Niveau est trop compliqué, (Ou trop Simple !!), Faites-le moi savoir. Ecrivez à la rédaction qui transmettra.