De la structure du langage et des principaux mots clés

Tout d'abord, nous sommes d'accord : notre but est d'écrire un programme; Quand notre programme sera suffisamment élaboré, on pourra appeler ça une application (ça fait pro). Tous nos programmes seront constitués de la même manière, dont voici un exemple : 

Program MonProg;
begin
end.

Il faut savoir que le code source d'un programme Pascal, c'est un fichier texte, que l'on pourrait tout à fait écrire avec le bloc notes de Windows. Autrement dit, il s'agit d'un texte sans aucune mise en forme (pas de gras, italique...). Donc pour s'y retrouver un peu, on met des majuscules, mais c'est uniquement pour faciliter la lecture. Évidemment, ce programme ne fait rien, mais il se compilera et s'exécutera quand même. Program, begin et end sont des mots-clés. Il existe comme cela de nombreux mot-clés, qui ne peuvent être utilisés à d'autre fin que celle définie par compilateur. MonProg est le nom que j'ai donné au programme (noter le point virgule après MonProg, et le point après end) Si on complique, on pourrait avoir : 

Program MonProg;
var 
  i : integer;
begin
  i:=1;
end.

Dans cet exemple, on a commencer à ajouter des traitements à faire, sous forme d'instruction. On utilise une variable, qui s'appelle i, et dans laquelle on met la valeur 1. Cela se traduit par l'instruction "i:=1". Cette variable doit obligatoirement être déclarée en début de programme, grace à la clause VAR. En fait dans cette clause, on stocke toutes les déclarations de toutes les variables. Par exemple : 

Program MonProg;
var 
  i : integer;
  j : string;
begin
  i:=1;
  j:='Bonjour à tous';
end.

Notez les points-virgule en fin de chaque instruction. Pour rendre le texte plus lisible, on indente le texte, de manière à ce que chaque bloc soit décalé de vers la droite. Deux espaces suffisent pour dégager ce que contient la clause VAR et ce qu'il y a entre le begin et le end. Cette présentation est extrêment importante : utilisez-là au fur et à mesure que vous tapez le texte, et non après avoir tout tapé.

Texte non indenté, à NE PAS FAIRE : 

Program MonProg;
var 
i : integer;
j : string;
begin
i:=1;
j:='Bonjour à tous';
end.

Allez, puisqu'on est bien avancé, je vous présente d'un coup d'un seul la structure complète d'un programme : 

Program <nom du prog>;

uses MonUnit1, MonUnit2, ...;

const
  maconstante1 = <valeur>;
  ...
type
  montype1 : <type de donnée>;
  montype2 : <type de donnée>;
  ...
var
  mavar1 : <type de donnée>;
  mavar2 : <type de donnée>;
  ...

procedure MaProc1;
begin
  <instructions>;
  ...
end;

function MaFonct1;
begin
  <instructions>;
  ...
end;

begin
  <instructions>;
  maproc1;
  mavar1:=MaFonct1;
  ...
end.

La première partie (Program, Var), vous connaissez presque. On a simplement ajouté deux choses :

En attendant, essayez ça : 

Program MonPremierProg;

var
  s : string;

begin
  s := 'Salut à tous !';
  writeln(s);
  readln;
end.

En Turbo Pascal, taper le texte et lancer la compilation (F9).
En Delphi 4, nous avons un problème, car cet environnement est prévu pour générer des applications graphiques, et le modèle d'application console n'est pas disponible en Delphi 4 :

Procédures et fonctions

Lorsque notre programme s'étoffe un peu, il est hors de question de le décrire séquentiellement, même en indentant, vous imaginez 20000 lignes d'un seul bloc ! D'autre part, il peut être interessant de définir des sous-programmes exécutant certaines tâches pour pouvoir les réutiliser. C'est précisemment ce à quoi servent les procédures et les fonctions. D'ailleurs, vous en avez déjà utilisé dans l'exemple ci-dessus : writeln et readln sont des procédures définies "en standard".
Imaginons, dans notre exemple précédent, que nous demandions à l'utilisateur de notre programme de saisir des mots, et qu'il nous faille en faire une phrase en les concaténant. On pourrait faire : 

Program MonDeuxiemeProg;

var
  s, Phrase : string;

begin
  writeln('Entrez un mot :');
  readln(s);
  Phrase:=s;

  writeln('Entrez un deuxième mot :');
  readln(s);
  Phrase:=Phrase+s

  writeln('Entrez un troisième mot :');
  readln(s);
  Phrase:=Phrase+s;

  writeln('La phrase complète est :');
  writeln(Phrase);
end.

En dehors du fait que c'est un peu répétitif, si je veux insérer une virgule après chaque mot tapé, je devrai le faire trois fois. Nous allons donc définir une fonction qui va faire tout ça une fois pour toute : 

Program MonDeuxiemeProg;

function ConstruitPhrase(phrase:string):string;
var s : string;
begin
  readln(s);
  ConstruitPhrase:=phrase+', '+s;
end;

var
  Phrase : string;
begin
  Phrase:='';  {initialiser à chaine vide}

  {premier mot}
  writeln('Entrez un mot :');
  Phrase:=ConstruitPhrase(Phrase);

  {deuxième mot}
  writeln('Entrez un deuxième mot :');
  Phrase:=ConstruitPhrase(Phrase);

  {troisième mot}
  writeln('Entrez un troisième mot :');
  Phrase:=ConstruitPhrase(Phrase);

  {résultat}
  writeln('La phrase complète est :');
  writeln(Phrase);
end.

Remarquez les commentaires entre accolades. Ce texte est ignoré du compilateur.
Remarquez aussi l'initialisation de la variable phrase. Ceci est extrêmement important, car lorsqu'un programme démarre, les variables sont dans un état "indéfini" et peuvent contenir n'importe quoi. Ainsi la première fois qu'ion appelle notre fonction, il faut qu'on bien lui envoie une chaine vide (réflechissez voyons !!). La déclaration a été descendue juste au-dessus du begin de début, pour lever toute ambuguité.
En effet, les variables, fonctions et procedures ne sont visibles que si elles sont situées au dessus du code qui les appellent.

Déclaration de fonction

J'ai donc créé la fonction suivante : 

function ConstruitPhrase(phrase:string):string;
var s : string;
begin
  readln(s);
  ConstruitPhrase:=phrase+', '+s;
end;

ConstruitPhrase est le nom.
Vient ensuite le paramètre (phrase:string)qui permet "d'envoyer" une donnée à la fonction. Celle-ci est de type chaine de caractère.
Ensuite, après les deux-points, j'indique que ma fonction doit me retourner une chaine de caractère.
Cette fonction prend donc ce que je lui donne (Phrase), ajoute une virgule, puis ce que vient de taper l'utilisateur. On indique que c'est ce résultat qui doit être est renvoyé ne le stockant dans une "variable" qui est le nom de la fonction : ConstruitPhrase:=phrase+', '+s;.
On aurait pu aussi, en Delphi, utiliser le mot Result au lieu du nom de la fonction : result:=phrase+', '+s;

 

Utilisation de fonctions

Pour utiliser la fonction, il suffit de citer son nom en lui indiquant le paramètre qu'elle demande : 

ConstruitPhrase(Phrase,s);

Sauf que puisque c'est une fonction, je doit récupérer le résultat, que je stocke dans ma variable phrase : 

Phrase:=ConstruitPhrase(Phrase);

En clair, j'appelle la fonction en luis donnant ce que contient Phrase, et elle me renvoie Phrase augmenté d'une virgule et d'un mot tapé par l'utilisateur. Remarquez que la variable s n'est plus déclarée en haut du programme, mais localement à la fonction, car je ne m'en sert que dans cette fonction. On ne peut pas l'utiliser en dehors. Une procédure est très similaire, sauf qu'elle ne renvoie rien. On aurait pu s'en sortir quand même, car il est possible de faire en sorte que le paramètre que l'on passe puis nous revenir modifié : il s'agit d'un passage de paramètre par adresse. La syntaxe serait la suivante : 

[...]
procedure ConstruitPhrase(var phrase:string);
var s : string;
begin
  readln(s);
  phrase:=phrase+', '+s;
end;

begin
  Phrase:='';  {initialiser à chaine vide}

  {premier mot}
  writeln('Entrez un mot :');
  ConstruitPhrase(Phrase);
  [...]
end.

Dans ce cas, je passe Phrase en paramètre, la procedure travaille dessus, la modifie, et le résultat m'est renvoyé. Celà est possible grace au mot-clé var indiqué avant le paramètre. En fait, la procedure travaille sur la même variable (même si le nom aurait pu être différent) que celle du programme principal.


 

 

 

 











Ajouter aux Favoris Ajouter aux votre page
 

 


Acceuil | Forum| Contactez-Nous | Annace |Chat| Music |Radios|Sockets |Protocoles|Windows NT
Langage C |Langage C++ | Assembleur | Java | Perl |Pascal/delphi | Visual basic|MERISE | SQL| JDBC| ODBC
ASP|CGI |HTML |DHTML |XML|Javascript |JSP |PHP|Servlets |VBScript |WAP |UNIX |Linux |MacOS|Windows 9x
Assemblage-PC |Modèle relationnel|Histoire-PC|Fonctionnement-PC|photo pour rire|MS-Dos|Architecture-PC
Flash MX |Word-2003|Power Point|Excel|Langage C|Langage Java|Visual Basic|La base XP | programming
Physique Arabic partie I|Programation en arabe|Physique Français|Internet| Sécurité Informatique
HTML |Agebre en Français|Math Français partie I|Physique Arabic partie II| الطرق العددية
Electricité| Math Français partie II|Math en Arabic|Agebre en Arabic| الأعداد العقدية
Tous les cours informatiques en vidéos |Droit Informatique |logiciels
Tous les cours physiques en vidéos |Microsoft office
Cours math en vidéos | Msn en ligne
TV Live


Autoformations les cours informatiques en vidéos gratuitement
:: Copyright © 2008 http://www.autoformations.co.cc All rights reserved ::