Added // for pointless comments
fixed long lines stuff
This commit is contained in:
parent
10ffa53ae5
commit
66801362a0
2 changed files with 24 additions and 11 deletions
|
@ -6,3 +6,4 @@
|
||||||
- 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 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 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 they?- comment have a //
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
-- shall we play a game?
|
-- //shall we play a game?
|
||||||
|
|
||||||
with Fiche_Plongee, Capteurs, Gada.Text_IO;
|
with Fiche_Plongee, Capteurs, Gada.Text_IO;
|
||||||
use Fiche_Plongee, Capteurs, Gada.Text_IO;
|
use Fiche_Plongee, Capteurs, Gada.Text_IO;
|
||||||
|
@ -22,7 +22,7 @@ procedure td is
|
||||||
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
|
||||||
|
@ -42,7 +42,7 @@ procedure td is
|
||||||
return Counter;
|
return Counter;
|
||||||
end Effectif_Fiche;
|
end Effectif_Fiche;
|
||||||
|
|
||||||
-- the matrix has you
|
-- //the matrix has you
|
||||||
|
|
||||||
function Est_Plongee_Technique(Palanq : T_Palanq) return Boolean is
|
function Est_Plongee_Technique(Palanq : T_Palanq) return Boolean is
|
||||||
I : Integer := 1; -- to go through the table
|
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
|
return (Teacher = 1 and Other = 0 and (Student > 0 and Student <5)); -- we return the value taken by the condition
|
||||||
end Est_Plongee_Technique;
|
end Est_Plongee_Technique;
|
||||||
|
|
||||||
-- follow the white rabbit
|
-- //follow the white rabbit
|
||||||
|
|
||||||
function Numero_Premiere_Technique(Fiche : T_Fiche_Secu) return Integer is
|
function Numero_Premiere_Technique(Fiche : T_Fiche_Secu) return Integer is
|
||||||
I : Integer := 1; -- to go through the table
|
I : Integer := 1; -- to go through the table
|
||||||
|
@ -79,7 +79,7 @@ procedure td is
|
||||||
return I;
|
return I;
|
||||||
end Numero_Premiere_Technique;
|
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
|
function Durees_Fiche_OK(Fiche: T_Fiche_Secu) return Boolean is
|
||||||
I : Integer := 1; -- to go through the table
|
I : Integer := 1; -- to go through the table
|
||||||
|
@ -93,7 +93,7 @@ procedure td is
|
||||||
return Good;
|
return Good;
|
||||||
end Durees_Fiche_OK;
|
end Durees_Fiche_OK;
|
||||||
|
|
||||||
-- Do you know Twitch Prime?
|
-- //Do you know about Twitch Prime?
|
||||||
|
|
||||||
function Profondeur_Max(Table: T_palanq) return Integer is
|
function Profondeur_Max(Table: T_palanq) return Integer is
|
||||||
I : Integer := 0; -- to go through the table
|
I : Integer := 0; -- to go through the table
|
||||||
|
@ -110,7 +110,7 @@ procedure td is
|
||||||
|
|
||||||
end Profondeur_Max;
|
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
|
function Profondeur_Fiche_OK(Fiche: T_Fiche_Secu) return Boolean is
|
||||||
I : Integer := 1; -- to go through the table
|
I : Integer := 1; -- to go through the table
|
||||||
|
@ -124,7 +124,12 @@ procedure td is
|
||||||
return Good;
|
return Good;
|
||||||
end Profondeur_Fiche_OK;
|
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
|
-- TD 3
|
||||||
|
@ -155,7 +160,11 @@ procedure td is
|
||||||
-- (Nord,2,32481.8)
|
-- (Nord,2,32481.8)
|
||||||
-- (Nord,1,32483.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
|
procedure Course is
|
||||||
|
@ -242,7 +251,9 @@ procedure td is
|
||||||
|
|
||||||
end Course;
|
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;
|
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
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
|
|
Loading…
Reference in a new issue