salut melle;
bon pour un premier temps on va se contenter d'ecrire
et de lire les données a partir d'une matrice
(tableaux a deux dimensions).
voila comment déclarer un tableau :
var T : array [1..10] of real;
Affecter une valeur à un élément de tableau :
T[1]:=0.0; T[i]:=T[j]+T[k];
Lire au clavier un tableau :
for i:=1 to 10 do read(T[i])
Afficher un tableau :
for i:=1 to 10 do write(T[i]:6); writeln
Somme des éléments d'un tableau :
S:=0.0;
for i:=1 to 10 do S:=S+T[i]
Déclarer une matrice:
var M : array [1..10,1..20] of real;
Affecter une valeur à un élément de matrice :
M[1,1]:=0.0;
M[i,j]:=M[k,l]+M[s,t];
Lire au clavier une matrice:
for i:=1 to 10 do
for j:=1 to 20 do read(M[i,j]);
voici un programme complet concernant l'initialisation
d'un tableau a deux dimensions:
------------debut du code---------------
program InitialiserEtAfficherMatrice;
var
T: array[1..6, 1..6] of real;
procedure afficher; {afficher la matrice T}
var
k, l: integer;
begin
for k := 1 to 6 do {afficher ligne à ligne}
begin
for l := 1 to 6 do {afficher les valeurs dans une ligne}
write(T[k, l]);
writeln;
end;
end;
procedure initialiser; {initialiser à 0 la matrice T}
var i, j: integer;
begin
for i := 1 to 6 do {parcourir ligne à ligne}
for j := 1 to 6 do {parcourir la ligne}
T[i, j] := 0.0
end;
begin
initialiser;
afficher;
readln
{--------fin du code-----------}
end.
