Revision Ada

Structure de Contrôle
if Faim then

Manger;
end if;

if Faim then

preparer;
Manger;
Vaisselle;
end if;
if auhur_d'hui=Dim then
Demain:=Lun;
else
Demain:=jour'suss(aujour_d_Hui);
end if;

If A=0.0 then
-- Cas linéaire
else
if b**2-4.0*A*C>0.0 then
--Racines réelles
else
-- Racines complexes
end if;
end if;
Mot reseve elsif
if A=.0 then
-- Cas liéaire
elsif
B**2-4.0*A*C>=0.0 then
-- Racines réelles
else
-- Racines comlexes
end if;

pour appeler les programmes:
if ordre =gauche then
tourner_a_gauche;
else
if ordre =droite then
tourner_a_droite;
else
if ordre =demi_tour then
faire_demi_tour;
end if;
end if;
end if;


if j>0 then
if i/j> k then
Action;
end if;
end if;
ou

if j>0 and then i/j>k then
action;
and if;

instuction case

case ordre is
when gauche => tourner_a_gauche; { =>:alors}
when droite => tourner_a_droite;
when demi_tour =>faire _demi_tour;
when marche => null;
end case;

case aujour_d_hui is
When Lun|Mar|Mer|jeu => Travailler; {lun or mar}
when ven => travailler;faire_la_fete; {app.2.proc;}
when others => null;
end case;

lun..jeu
jour range lun..jeu
jour_ouvrable range lun..jeu

case ajour_d_hui is
when jour_ouvrable =>
travailler;
if aujour_d_hui =ven then
faire_la_fete;
end if;
when others => null;
end case ;


Reprendre l'exercice 5.1 (1) en utilisantune instruction case pour
positionner une valeur fin_de_mois à la valeur correcte.
2- jardinier laboure en hiver,sème au printemps,soigne les plantes
en été ,et récolte en autome.Ecrire une instruction case pour appeler,
le sous programme convenable labourer,semer,soigner ou recolter,selon
la valeur du mois M.Déclarer les sous-types appropriés si necessaire.
3-Un homme peu avisé est payé le premier de chaque mois.Les dix
premiers jours il se gave ,les dix suivants il subsiste et il meurt
de faim pendant le reste du mois.
Appeler les sous programmes gavages ,Minimum et Disette selon le
jour D. Supposer que fin_de_mois a été positionné et que D est déclaré
comme suit:
D:Integer range 1.. Fin_De_mois;
Reponses:
declare
fin_du_mois:integer;
begin
case mois is
when sept|avr|juin|nov=>
Fin_du_mois:=30;
when fevr=>
if annee mod 4=0 then
fin_du_mois:=29;
else
fin_du_mois:=28;
end if;
when others=>
fin_du_mois:=31;
end case;
--- puis comme avant
...
end;

subtype hiver is nom_du_mois range janv..mar;
subtype printemps is nom_du_mois range avr..juin;
subtype ete is nom_du_mois range juil..sept;
subtype automne is nom_du_mois oct..dec;
...
case m is { selon var nom_du_mois}
when hiver =>Labourer;
when printemps=>semer;
when ete => soigner;
when automne => recolter;
end case;


case j is
when 1..10 => ripaille;
when 11..20=> subsistance;
when others => disette;
end case;
Instuctions loop
loop
suite_d_instructions
end loop;
loop
Travailler;
manger;
dormir;
end loop;
comme exemple plus concret,consdérons le probleme consistant la
base e des logarithmes népériens à partir de la srie:
e=1+1/1!+1/2!+1/3!+1/4!+...
ou:
n!=n*(n-1)*(n-2)...3*2*1
une solution possible est:
decalre
e:reel :=1.0;
i:integer:=0;
terme:reel:=1.0;
begin
loop

i:=i+1;
terme:=terme/reel(i);
e:=e+terme;
end loop;
...
loop
if I=N then exit; end if; {arreton jusqu'a i=n}
i:=i+1;
terme :=terme/reel (i);
e:=e+terme;
end loop;
exit when condition;
loop
exit when i=n
i:=i+1;
terme:=terme/reel(i);
e:=e+terme;
end loop;


while i/=n loop {tant i !=n }
i:=i+1;
terme:=terme/reel(i); {i integer n trasforme reel}
e:=e+terme;
end loop;

for i in 1..n loop
terme :=terme/reel (i);
e:=e+terme;
end loop;


for l in 1..n loop
for j in 1..m loop
- si les valeurs de i et j satisfont la condition,
- quitter la boucle emboîtée
end loop;
end loop;

exploration:

for i in 1..n loop
for j in 1..m loop
if condition_satisfaite then
valeur_i:=i;
valeur_j:=j;
exit exploration;
end if;
end loop;
end loop exploration;

exercice 5.3
1 Linstruction get(i):lit la valeur suivante
dans le fichier d'entrée
et la place dans la variable entiére i.ecrire les
instructions
pour lire et ajouter une série de nombres.la fin de
la série est indiquée
par une valeur négative.
2 ecrire les instructions pour déterminer la puissance de 2
dans la factorisation de N.placer le resultat dans
secompte sans modifier n.
3 Calculer:
g=somme de p=1 jusqu'a n (1/p ) -log n
(g--->gama=0.577215665...quand n----> l'infinie)


1 declare
somme:integer:=0;
i: integer;
begin
loop
get (i);
exit when i<0;
some:=somme+i;
end loop;
end;

2 declare
copie:integer:=n;
decompte:integer:=0;
begin
while copie mod 2=0 loop
copie:=copie/2; {je je n'ai pas compris le 2 ex.}
decompte:=decompte+1;
end loop;
...
end;

3 declare

G:reel:=-ln(reel(n));
begin
for p in 1..n loop
g:=g+1.0/reel(p);
end loop;
end;
exercice 5.4
1 Réecrire la boucle emboîtée de la section 5.3
en utilisant une etiquette <<exploration>>au lieu
d'un nommage de la boucle extérieure.pourquoi
n'est ce pas une bonne solution ?
exercice 5.4

1 for i in 1..n loop
for j in 1..m loop
if condition_ok then
valeur_i:=i;
valeur_j:=j;
goto recheche;
end if;
end loop;
end loop;