Salut;
S.v.p la corection et aide pour mon examen que j'ai passe Merci
Exercice 1:Exercice 1 : Soit deux tableaux A(3x3) et B(3x3) définis comme suit:
tableaux A
2 4 6
8 10 12
14 16 18

Tableaux 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;
Var
Max(a,b),maxA,maxB,i,j,k:integer;
Tableaux :array [1..3,1..3] of integer;
A,B :tableaux;
Procedure creetableuxA (var d:tableaux);
Var
begin
K,i,j:integer;
For i:=1 to 3 do
For j:=1 to 3 do
Begin
D[i,j]:=k;
K:=k+2;
End;
End;
Procedure creetableauxB (var m:tableaux);
Var
K,i,j:integer;
Begin
K:=1;
For i:=1 to 3 do
For j:=1 to 3 do
Begin
M[i,j]:=k;
K:=k+2;
End;
End;
Procedure affichertableaux(xx:tableaux);
Begin
Var
I,j:integer
Begin
For i:=1 to 3 do
For j:=1 to 3 do begin {je me rappel pas si dans la feuille d’examen
Write xx[i,j]; j’ai écrie pour sauter chaque ligne}
End;
Writeln
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 (*p.p*)
Creetableaux (A);
Affichertableaux (A);
Creetableaux (B);
Affichertableaux (B) ;
Max (A,maxA) ; {s.v.p c’est juste ici}
Max (B ,maxb) ; {s.v.p c’est juste ici}
(*calcule du max (A, b) 1er méthode*) {s.v.p c’est juste les deux méthodes}
max(a,b) :=maxA
if max(A,B)<maxB then
max(A,B):=maxB
else max(A,B):=maxA;
(*calcule du max(a,b) une deuxième méthode
j’ai oublier laquelle que j’ai utiliser*)

max(a,b) :=MaxA
if maxA>maxB then
max(a,b):=maxA
Else
Max(a,b):=maxB;

End.

REPONSE Exercice n°2:
Program digonale;
Diag,var,somme1,somme2,i,j :integer ;
A, B:array [1..3,1..3] of integer;
Begin
Somme:=0;
For i:=1 to 3 do
Begin
Diag:=A[i,i] ;
Somme1 :=somme1+diag ;
End ;
Write (somme1);
For i:=1 to 3 do
Begin
Diag:=B[i,i];
Somme2:=somme2 + diag;
End;
Write (somme2);
End.

Sil vous plait des questions ?
1)pour les question de notre exercices de l’examen EMD2 s.v.p
quelle est la solution optimal dans un seule programme d’après les question
sans isoler la question n° 2 ?
2) je n’est pas arriver a l’examen a transformer la question n°2
en procédure (somme digonales),s.v.p comment faire,pour avoir un seule programme globale avec les questions 1) 2)et 3) en procédures et 4) en programme principal ?
3) S.V.P et ce que ont fait la somme de la digonale total somme1+somme2 comme il a dit a la fois ?

Merci