11 lines
No EOL
408 B
Ada
11 lines
No EOL
408 B
Ada
with Ada.Text_Io;
|
|
|
|
procedure Afficher_Test(Txt_Appel, Txt_Attendu, Txt_Obtenu : in String) is
|
|
begin
|
|
Ada.Text_Io.New_Line;
|
|
Ada.Text_Io.Put_Line("-----------------------------------------------------------");
|
|
Ada.Text_Io.Put_Line(Txt_Appel);
|
|
Ada.Text_Io.Put_Line("Attendu : " & Txt_Attendu);
|
|
Ada.Text_Io.Put_Line("Obtenu : " & Txt_Obtenu);
|
|
Ada.Text_Io.New_Line;
|
|
end Afficher_Test; |