removed an n at optional
This commit is contained in:
parent
8d1aadcae8
commit
64907ba9de
2 changed files with 8 additions and 9 deletions
|
@ -3,7 +3,7 @@ __***This is the exercise we have to do for our Ada 2nd semester exam:***__
|
|||
|
||||
- Both Tds are separated by a comment with their names
|
||||
- I did all of the question of exercise 2 in order
|
||||
- I did the paper question of exercise 3 then the rest of the question (except the optionnal one on strings)
|
||||
- I did the paper question of exercise 3 then the rest of the question (except the optional one on strings)
|
||||
- the elvish sentence means "One Ring to rule them all, One Ring to find them, One Ring to bring them all, and in the darkness bind them" I thought it was totally appropriate
|
||||
- the INSA logo is from the 1st semester Test :)
|
||||
- the pointless - are these really pointless or so are our lives? - comments have a //
|
||||
|
|
|
@ -4,14 +4,14 @@ with Fiche_Plongee, Capteurs, Gada.Text_IO;
|
|||
use Fiche_Plongee, Capteurs, Gada.Text_IO;
|
||||
|
||||
procedure td is
|
||||
|
||||
|
||||
-- TD 2
|
||||
|
||||
function Effectif_Palanquee(Table: T_Palanq) return integer is
|
||||
I : integer := 1; -- to go through the table
|
||||
|
||||
function Effectif_Palanquee(Table: T_Palanq) return Integer is
|
||||
I : Integer := 1; -- to go through the table
|
||||
Counter : Integer := 0; -- the final value
|
||||
begin
|
||||
|
||||
|
||||
for I in 1 .. Max_Plongeurs loop
|
||||
if Table.Plongeurs(I).Present then
|
||||
Counter := Counter+1;
|
||||
|
@ -20,12 +20,11 @@ procedure td is
|
|||
|
||||
return Counter;
|
||||
end Effectif_Palanquee;
|
||||
|
||||
|
||||
-- //Wake up Neo
|
||||
|
||||
|
||||
function Effectif_Fiche(Table: T_Fiche_Secu) return integer is
|
||||
|
||||
function Effectif_Fiche(Table: T_Fiche_Secu) return Integer is
|
||||
I : Integer := 0; -- to go through the table
|
||||
J : Integer := 0; -- to go through the table
|
||||
Counter : Integer := 0; -- the final value
|
||||
|
|
Loading…
Reference in a new issue