Procedure+remark imp.

Exercice 1 : Soit deux tableaux A(3x3) et B(3x3) définis comme suit :

Tableau A

2 4 6
8 10 12
14 16 18
Tableau B

1 3 5
7 9 11
13 15 17

Ecrire en langage pascal un programme qui permet de :
1)créer les deux tableaux A et B tels qui sont donnes ci-dessus
2) Calculer et imprimer la somme des digonales de A et de B (à la fois)
( indication : A[i,i] et B[i,i] avec i=1,2,3 ; sont respectivement
les élément de la digonale da A et B)
3) Ecrire une procédure MAX(x :array[1..3,1..3] of integer ; var max :integer)
qui determine le max du tableaux X et retourne la maximum dans la varibles max.
4)Ecrire un programme principal dans lequel on utilise la procédure MAX de la
question 3) pour calculer et imprimer le max des tableaux A et B ,
soit maxA et maxB ,soit maxAB.

Ma Réponse :

Program tableaux;
Type
Tableaux =array[1..3,1..3] of integer ;
A,B:Tableaux;
Var
MaxAB,maxA,maxB,i,j,k:integer;
Procedure creetableuxAB (var d:tableaux,k:integer); (* c'est juste
J'ai pas écrit var k ?*)
Var
K,i,j:integer;
begin
For i:=1 to 3 do
For j:=1 to 3 do
Begin
D[i,j]:=k;
K:=k+2;
End;
End;

Procedure affichertableaux(xx:tableaux);
Var
I,j:integer
Begin
For i:=1 to 3 do
For j:=1 to 3 do begin
Write xx[i,j];
End;
Writeln
End;
procedure diagonale ( a1,b1 :tableaux) ; {j'ai pas mis }
var somme1,somme2 :integer ;
begin
Somme1:=0;
Somme2:=0;
For i :=1 to 3 do
Begin
Somme1:=somme1+a1[i,i]; { j'ai mis a1 au lieu de A}
Somme2:=somme2+b1[i,i]; { j'ai mis B1 au lieu de B}
End;
Writeln('la somme de la diagonal de A = ',somme1) ;
Writeln('la somme de la diagonal de B = ',somme2) ;
End ;
(*Calculer le Max*)
procedure Max (x:tbleaux;var max:integer);
begin
MAX:=[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
If max<x[i,j] then
Max :=x[i,j];
Write (max);
End;
Begin (*programe principal*)
K:2;
CreetableauxAB (A,k);
Affichertableaux (A);
K :=1 ;
CreetableauxAB (B,k);
Affichertableaux (B) ;
Max (A,maxA) ;
Max (B ,maxb) ;
(*calcule du maxAB*)
maxAB :=maxA
if maxAB<maxB then
maxAB:=maxB
. End.

Question : S'il vous plait monsieur Boudjeroua Mohamed
c'est juste ?
Ramarque : Ma boite aux lettre électronique a été pirate
par un mauvais hacker,un Mauvais (craque), et il a changer
Mon mot de passe et donne Attention La boite pirater qu'il
utilise est adel_3n1@yahoo.fr Je serais reconnisons pour ce
qui m'aide a la retrouvez (nouveux mot de passe)