|
program ex1_d;
type
mat = array[1..2, 1..2] of boolean;
var
m1, m2, mmm: mat;
i, j: integer;
procedure somme (m, mm: mat; var mmm: mat);
var
i, j: integer;
begin
for i := 1 to 2 do
for j := 1 to 2 do
mmm[i, j] := m[i, j] = mm[i, j];
end; { Fin de
'somme' }
begin
writeln('Exercice 1 d www.Software-DS.com');
writeln('Soit 2 matrices de dimension 2x2, m et mm');
writeln('Le contenu de chaque élément est
''true'' ou ''false''');
writeln;
writeln('On veut calculer la somme de ces 2 matrices dont
');
writeln('le contenu est modulo 2');
writeln;
writeln('Donc on remplace le ''+'' par ''and'' c''est a
dire:');
writeln(' true+true=true et false+false=true');
writeln;
{ Cette partie
n'était pas au partiel mais cela permet de verifier
le bon fonctionnement du programme. }
m1[1, 1] := false;
m1[1, 2] := true;
m1[2, 1] := true;
m1[2, 2] := false; {
initialisation des 2 matrices. }
m2[1, 1] := true;
m2[1, 2] := true;
m2[2, 1] := true;
m2[2, 2] := false;
for i := 1 to 2 do
{ Affichage des 2 matrices }
writeln('[', m1[i, 1], ',', m1[i, 2],
'] ', '[', m2[i, 1], ',', m2[i, 2],
']');
writeln;
writeln('Avez-vous cliquer sur les pubs ?');
writeln;
somme(m1, m2, mmm);
for i := 1 to 2 do {
Affichage de la matrice solution }
writeln('[', mmm[i, 1], ',', mmm[i, 2],
']');
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
06/11/01 }
end.
|
