Notesale: Turn your study into money

Document Preview

Extracts from the notes are below, to see the PDF you'll receive please use the links above

---

Les bases du langage Pascal
Juin 2014

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)
...

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
...
Donc pour s'y retrouver un peu, on met des majuscules,
mais c'est uniquement pour faciliter la lecture
...
Program, begin et end sont des mots-clés
...
MonProg est le nom que j'ai donné au programme (noter le point-virgule après
MonProg, et le point après end)
...

Dans cet exemple, on a commencé à ajouter des traitements à faire, sous forme d'instructions
...
Cela se traduit par
l'instruction "i:=1"
...
En fait dans cette clause, on stocke toutes les déclarations de toutes les
variables
...


Notez les points-virgules en fin de chaque instruction
...
Deux espaces suffisent pour
dégager ce que contient la clause VAR et ce qu'il y a entre le begin et le end
...

Texte non indenté, à NE PAS FAIRE :
Program MonProg;
var
i : integer;
j : string;
begin
i:=1;
j:='Bonjour à tous';
end
...
;
const
maconstante1 = ;

...

var
mavar1 : ;
mavar2 : ;

...

end;
function MaFonct1;
begin
;

...

end
...
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
...

procedure et function: On verra plus tard
...

En attendant, essayez ça :

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

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
...
Ensuite cliquer sur le bouton Enregistrer
Aller à nouveau dans Fichier/Tout Fermer
Aller dans Fichier/Réouvrir et choisir "crt1
...
Pour fermer
l'application, appuyer sur la touche Entrée
...
Affecter une valeur à une variable nommée S s:='Salut à tous';
2
...
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
...
D'ailleurs, vous en
avez déjà utilisé dans l'exemple ci-dessus : writeln et readln sont des procédures définies "en
standard"
...
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
...

Remarquez les commentaires entre accolades
...

Remarquez aussi l'initialisation de la variable phrase
...
Ainsi la première fois qu'on appelle notre fonction, il faut bien qu'on lui envoie
une chaîne vide (réflechissez voyons !!)
...
En effet, les variables, fonctions et procédures ne
sont visibles que si elles sont situées au-dessus du code qui les appelle
...

Vient ensuite le paramètre (phrase:string) qui permet "d'envoyer" une donnée à la fonction
...
Ensuite, après les deux points, j'indique que ma
fonction doit me retourner une chaîne de caractères
...
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;
...


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
...
On ne peut pas l'utiliser en dehors
...
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
...
]
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);
[
...

Dans ce cas, je passe Phrase en paramètre, la procédure travaille dessus, la modifie, et le
résultat m'est renvoyé
...
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
...
commentcamarche
...
Vous pouvez copier, modifier des copies de
cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement

---

Title: get started with pascal langage
Description: get started with pascal langage

Buy These NotesPreview