rlacroix/Ada_S2
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

removed an n at optional

Browse source
This commit is contained in:
Raphael Lacroix 2020-05-31 23:13:46 +02:00
parent 8d1aadcae8
commit 64907ba9de
2 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -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 - Both Tds are separated by a comment with their names
- I did all of the question of exercise 2 in order - 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 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 INSA logo is from the 1st semester Test :)
- the pointless - are these really pointless or so are our lives? - comments have a // - the pointless - are these really pointless or so are our lives? - comments have a //

7
TD_R_LACROIX_ENG_06-01-2020.adb
View file

@ -7,8 +7,8 @@ procedure td is
-- TD 2 -- TD 2
function Effectif_Palanquee(Table: T_Palanq) return integer is function Effectif_Palanquee(Table: T_Palanq) return Integer is
I : integer := 1; -- to go through the table I : Integer := 1; -- to go through the table
Counter : Integer := 0; -- the final value Counter : Integer := 0; -- the final value
begin begin
@ -21,11 +21,10 @@ procedure td is
return Counter; return Counter;
end Effectif_Palanquee; end Effectif_Palanquee;
-- //Wake up Neo -- //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 I : Integer := 0; -- to go through the table
J : Integer := 0; -- to go through the table J : Integer := 0; -- to go through the table
Counter : Integer := 0; -- the final value Counter : Integer := 0; -- the final value