procedure Mk_Troll is
begin
if Troll_Pkg.Trollmetre < 50 then
Troll_IO.Put_Line ("Ada c'est Bien");
else
Troll_IO.Put_Line ("Ada RULEZ DA FUCKING WORLD");
end if;
end Mk_Troll;
=> pas besoin d'appeler la méthode principale du programme
=> cette méthode ne prend pas d'arguments (on récupère les arguments par une méthode de Ada.Command_Line)
=> elseif pas bon, remplacer par elsif
=> il faut éviter le plus possible d'utiliser les use (afin de savoir toujours où est déclarée la méthode qu'on appelle). C'est plus verbeux, mais plus clair.
=> "Ada C Bien" est confus. On pourrait croire qu'Ada et C sont bien... alors que C su><.
A part ça, l'esprit y est ! Tu n'as plus qu'à t'y remettre :-)
[^] # Re: adaCoinCoin 0.34 est out
Posté par gege . En réponse au journal adaCoinCoin 0.34 est out. Évalué à 1.
with Troll_IO;
with Troll_Pkg;
procedure Mk_Troll is
begin
if Troll_Pkg.Trollmetre < 50 then
Troll_IO.Put_Line ("Ada c'est Bien");
else
Troll_IO.Put_Line ("Ada RULEZ DA FUCKING WORLD");
end if;
end Mk_Troll;
=> pas besoin d'appeler la méthode principale du programme
=> cette méthode ne prend pas d'arguments (on récupère les arguments par une méthode de Ada.Command_Line)
=> elseif pas bon, remplacer par elsif
=> il faut éviter le plus possible d'utiliser les use (afin de savoir toujours où est déclarée la méthode qu'on appelle). C'est plus verbeux, mais plus clair.
=> "Ada C Bien" est confus. On pourrait croire qu'Ada et C sont bien... alors que C su><.
A part ça, l'esprit y est ! Tu n'as plus qu'à t'y remettre :-)