diff --git a/README.md b/README.md index 3bc58fe..9c25f69 100644 --- a/README.md +++ b/README.md @@ -6,3 +6,4 @@ - I did the paper question of exercise 3 then the rest of the question (except the optionnal 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 they?- comment have a // diff --git a/TD_R_LACROIX_ENG_06-01-2020.adb b/TD_R_LACROIX_ENG_06-01-2020.adb index 9268496..4adae0d 100644 --- a/TD_R_LACROIX_ENG_06-01-2020.adb +++ b/TD_R_LACROIX_ENG_06-01-2020.adb @@ -1,4 +1,4 @@ --- shall we play a game? +-- //shall we play a game? with Fiche_Plongee, Capteurs, Gada.Text_IO; use Fiche_Plongee, Capteurs, Gada.Text_IO; @@ -22,7 +22,7 @@ procedure td is end Effectif_Palanquee; --- Wake up Neo +-- //Wake up Neo function Effectif_Fiche(Table: T_Fiche_Secu) return integer is @@ -42,7 +42,7 @@ procedure td is return Counter; end Effectif_Fiche; - -- the matrix has you + -- //the matrix has you function Est_Plongee_Technique(Palanq : T_Palanq) return Boolean is I : Integer := 1; -- to go through the table @@ -64,7 +64,7 @@ procedure td is return (Teacher = 1 and Other = 0 and (Student > 0 and Student <5)); -- we return the value taken by the condition end Est_Plongee_Technique; - -- follow the white rabbit + -- //follow the white rabbit function Numero_Premiere_Technique(Fiche : T_Fiche_Secu) return Integer is I : Integer := 1; -- to go through the table @@ -79,7 +79,7 @@ procedure td is return I; end Numero_Premiere_Technique; - -- the two that are one will become the one that is all + -- //the two that are one will become the one that is all function Durees_Fiche_OK(Fiche: T_Fiche_Secu) return Boolean is I : Integer := 1; -- to go through the table @@ -93,7 +93,7 @@ procedure td is return Good; end Durees_Fiche_OK; - -- Do you know Twitch Prime? + -- //Do you know about Twitch Prime? function Profondeur_Max(Table: T_palanq) return Integer is I : Integer := 0; -- to go through the table @@ -110,7 +110,7 @@ procedure td is end Profondeur_Max; - --Ash nazg durbatulûk, ash nazg gimbatul, ash nazg thrakatulûk, agh burzum-ishi krimpatul + -- //Ash nazg durbatulûk, ash nazg gimbatul, ash nazg thrakatulûk, agh burzum-ishi krimpatul function Profondeur_Fiche_OK(Fiche: T_Fiche_Secu) return Boolean is I : Integer := 1; -- to go through the table @@ -124,8 +124,13 @@ procedure td is return Good; end Profondeur_Fiche_OK; - -- The answer to the question of the universe life and everything is ... 42 + + + -- //The answer to the question of the universe life and everything is ... 42 + + + -- TD 3 -- Q1: exmample of events: @@ -155,7 +160,11 @@ procedure td is -- (Nord,2,32481.8) -- (Nord,1,32483.8) - -- where we go we don't need roads + + + + + -- //Roads? where we go we don't need roads procedure Course is @@ -242,7 +251,9 @@ procedure td is end Course; - -- It is the nature of human kind to push itself towards the horyzon, we test our limits, we face our fears, we rise to the challenge, and become something greater than ourselves, a civilization. + -- //It is the nature of human kind to push itself towards the horyzon, we test our limits, + -- //we face our fears, we rise to the challenge, and become something greater than ourselves, + -- //a civilization. @@ -253,6 +264,7 @@ begin end td; + -- //subscribe to pewdiepie, or don't this craze is over anyway -- -- @@ -281,7 +293,7 @@ end td; -- ,#, (( (#.,%*,#, #( *%.*#. #/.#* ./#/ *#.. -- .*. */* ,//, **** ,//. .*/, .//* ,***, -- --- +-- suposed to be "To Lose" or something of that vibe -- -- --