Langage de Description d'Algorithme

Passage à turbo PASCAL
Toutes les commandes L.D.A. seront écritent dans un caractère normale et noire, les instructions correspondantent en Pascal seront écritent en gras et bleu.
1. paramètrages :
bloc Program nom;
déclarations
instruction
 déclarations;
begin
instructions
fbloc end.
Déclarations
var nom_variable : type var nom_variable : type;
types : entier
réel
caractères
booléen
alphanumerique		 types : integer
real
char
boolean
string
var a : entier var a : integer;
const nom_constante = valeur const nom_constante = valeur;
a <-- 5 a := 5;
2. instructions :
ecrire a,"2" writeln (a,'2');
opérateurs : * , / , div , mod
+ , -
= , <> , < , <= , > , >=
and , or , not
entrer a,b readln (a,b);
conditions :
si condition alors if contition then
begin
traitement 1 traitement 1
end
sinon else
begin
traitement 2 traitement 2
fsi end;
selonque a=1 faire case a of
1 : begin
traitement 1 traitement 1
end
a = 2 faire 2 : begin
traitement 2 traitement 2
end
a = 3 faire 3 : begin
traitement 3 traitement 3
end
autrement faire else : begin
traitement 4 traitement 4
end
fselon end;
les répétitives
tantque codition faire while condition do
begin
traitement 1 traitement 1
ftant end;
pour i de départ à fin pasde pas faire for i:=départ to[+1](downto[-1]) fin
begin
traitement traitement
fpour end;
Les vecteurs et matrices
var v : vecteurde 10 entier var v : array [1..10] of integer;
v(i) v[i]
var m matricede 10*5 entier var m : array [1..10,1..5] of integer;
m(1,1) m[1,1]
Les enregistrements
type client enregistrement type client = record
nom : alphanumérique
cp : entier
solde : réel		 nom : string;
cp : integer;
solde : real;
fin-enregistrement end;
client.cp <-- 1000 client.cp := 1000;
Les fichiers
var f fichier de réel var f file of real
ouvrir f création :
assign (f,'a:notes.dat');
rewrite (f);
utilisation :
assign (f,'a:notes.dat');
reset (f);
ecrire x sur f write (f,x);
lire x sur f read (f,x);
fermer f close (f);
eof(f) eof (f);
Exemples