with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
-- Affichage matrice identité
procedure Ex02a is
N : Natural;
begin
-- saisie
Put("Veuillez rentrer un nombre > 0 : ");
Get(N);
-- Algo 1
for I in 1 .. N loop
for J in 1 .. I - 1 loop
Put(0, 2);
end loop;
Put(1, 2); -- colonne I
for J in I + 1 .. N loop
Put(0, 2);
end loop;
New_Line; -- à la fin de chaque ligne, nous sautons à la ligne
end loop;
New_Line;
-----------------------------------------------------------------
-- Algo 2
-- Pour toutes les lignes
for I in 1 .. N loop
-- Pour toutes les colonnes
for J in 1 .. N loop
if I = J then -- Si nous sommes sur la diagonale
Put(1, 2);
else
Put(0, 2);
end if;
end loop;
New_Line; -- à la fin de chaque ligne, nous sautons à la ligne
end loop;
end;