Pascal - Structure du langage et mots clés

Pascal (Delphi)
Introduction
Structure
Caractéristiques
Structures conditionnelles

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 le 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 commencé à ajouter des traitements à faire, sous forme d'instructions. 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, grâce à 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-virgules 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é 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êmement importante : utilisez-la 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 :

uses: Indique qu'on utilise des fonctions et outils contenus dans d'autres fichiers de programme (nommés des unités) que celui dans lequel on travaille.
Types: Cette clause sert à définir des types de données particulières.
procedure et function: On verra plus tard. L'essentiel est de savoir que ces procédures et fonctions sont situées AVANT le bloc principal begin/end.

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 :

Fichier/Tout fermer
Fichier/Nouveau
Dans l'onglet application, choisir "texte", et taper le texte du programme
Une fois le texte tapé, Fichier/Enregistrer, choisir un répertoire sur votre disque et taper "crt1.dpr". Ensuite cliquer sur le bouton Enregistrer
Aller à nouveau dans Fichier/Tout Fermer
Aller dans Fichier/Réouvrir et choisir "crt1.dpr"
Pour compiler et lancer le programme, choisir Exécuter/Exécuter (ou F9). Pour fermer l'application, appuyer sur la touche Entrée.
Notre algorithme est le suivant :
1. Affecter une valeur à une variable nommée S s:='Salut à tous';
2. Ecrire le contenu de la variable à l'écran Writeln(s);
3. Lire une touche au clavier Readln;

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 intéressant de définir des sous-programmes exécutant certaines tâches pour pouvoir les réutiliser. C'est précisément 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.

J'écris un texte à l'écran (remarquez les "quotes" entourant les chaînes de caractères) pour dire à l'utilisateur ce qu'il doit faire
je lis ce qu'il tape
je mets le résultat dans ma variable phrase
je lui demande de saisir un autre mot, et je lis ce qu'il tape
je cumule le contenu de phrase avec ce qu'il a tapé dans s (phrase:=phrase+s)
enfin, j'affiche la phrase complète.

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 à chaîne 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'on appelle notre fonction, il faut bien qu'on lui envoie une chaîne vide (réflechissez voyons !!). La déclaration a été descendue juste au-dessus du begin de début, pour lever toute ambiguïté.
En effet, les variables, fonctions et procédures ne sont visibles que si elles sont situées au-dessus du code qui les appelle.

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 chaîne de caractères.
Ensuite, après les deux points, j'indique que ma fonction doit me retourner une chaîne de caractères.
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 renvoyé en 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 lui 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 sers 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 puisse 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 à chaîne vide}
  {premier mot}
  writeln('Entrez un mot :');
  ConstruitPhrase(Phrase);
  [...]
end.

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

Article écrit par Thierry Cornu

Trucs & astuces pertinents trouvés dans la base de connaissances

10/12 10h48	GRUB - La structure de fichier de configuration (Linux)
19/10 01h12	Structure de la base de registre (Base de registre)
24/01 19h28	Clés USB sous Windows 98 (USB)
09/01 20h26	C/C++ Erreur de segmentation (Langage C)
30/11 22h37	Comment débuter, quel langage? (Langages)
26/11 20h22	Supprimer l'historique des recherches (Internet)
15/11 02h50	Langage informatique=Langage de programmation (Mythes et légendes)
21/09 09h44	Critères de choix d'un langage/framework (Programmation)
21/01 03h06	Envoyer un mail avec pièce jointe (Langages)
03/06 00h46	Liens Compilateurs et Ressources (Pascal)
Plus d'astuces sur « cles langage mots pascal structure »

Discussions pertinentes trouvées dans le forum

02/11 17h48	structure en langage c	Développement	12/05 13h30->tamsamani	5
05/03 19h08	structure en langage C	Développement	05/03 19h56->tafiscobar	1
22/10 11h35	Langage C structure: message d'erreur	Développement	22/10 17h33->mamiemando	1
25/05 19h53	langage C structure, pointeur et fonction	Développement	25/05 19h53->jeremie	0
08/11 17h16	aide Structure en C	Développement	11/11 17h55->kilian	8
02/10 20h37	Structure fichier pdf	Développement	04/10 16h49->pdelf	3
02/06 10h48	[C] Passer l'adresse d'une structure	Développement	02/06 11h14->kij_82	3
06/12 22h48	Pointeur de structure dans fonction C	Développement	07/12 11h08->solid360	3
13/11 00h39	[XML] demande JUSTE confirmation de structure	Développement	13/11 13h50->areuh	2
13/04 18h28	Aide C++ : Structure & Fichier	Développement	15/05 21h14->mamiemando	42
Discussion fermée Problème résolu		Plus de discussions sur « cles langage mots pascal structure »