|
|
|||
 |
SUIVI PAR MAIL INACTIF |
||
 |
SUJET NON RESOLU | ||
 |
SUJET ACTIF | ||
 |
N'APPARTIENT PAS A LA FAQ | ||
|
|
||||||||
  |
|||||||||
|
|
||||||||
|
|
||||||||
|
|
|||||||||
type T_Byte is new Integer range 0..255;
for T_Byte'Size use 8;
type T_Image is array(Natural Range<> , Natural Range<>) of T_Byte;
-- Procedure ...
procedure Lire (Nom_Fichier: String; Matrice: in out T_Image) is
fichier : File_Type;
begin
open (fichier, in_file, Nom_Fichier);
for i in matrice'range(1) loop
for j in matrice'range(2) loop
read (fichier, matrice(i, j));
end loop;
end loop;
close(fichier);
end Lire;
PAGE : [1]
|
|
|||
|
|
SUIVI PAR MAIL INACTIF |
||
|
|
SUJET NON RESOLU | ||
|
|
SUJET ACTIF | ||
|
|
N'APPARTIENT PAS A LA FAQ | ||
|
|
||||||||
|
|
|||||||||
|
|
||||||||
|
|
||||||||
|
|
|||||||||