|
| Knup | | Nouveau membre | | 5 messages postés |
|  Posté le 05-10-2006 à 15:04:13   
| Convertisseur
with P_ESiut; use P_ESiut;
procedure convertisseur is
Dollars,Euros : Float;
Taux : Float := 1.2;
Choix : character ;
begin
a_la_ligne;
ecrire("Voulez vous convertir des euros(E) ou des dollars (D)?");
lire(Choix);
if Choix='D' then
a_la_ligne;
ecrire ("Rentrez votre valeur en Dollars");
lire (Dollars);
Euros := Dollars/Taux;
a_la_ligne;
ecrire ("Cela fait");ecrire (Euros); ecrire(" en euros");
elsif Choix='E' then
a_la_ligne;
ecrire ("Rentrez votre valeur en Euros");
lire (Euros);
Dollars := Euros*Taux;
a_la_ligne;
ecrire ("Cela fait");ecrire (Dollars); ecrire(" en Dollars");
else
a_la_ligne;
ecrire("Vous avez tapé un mauvais choix");
end if;
end convertisseur;
Message édité le 05-10-2006 à 15:06:37 par Knup
--------------------
|
|
| Knup | | Nouveau membre | | 5 messages postés |
| Posté le 05-10-2006 à 15:05:49
| Localisation:
with P_ESiut; use P_ESiut;
procedure localisation is
X,Y : integer;
begin
a_la_ligne;a_la_ligne;a_la_ligne;a_la_ligne;
ecrire("Bienvenue sur le super programme de localisation de Pierre-Louis FERRER!!!");
Pause;a_la_ligne;a_la_ligne;a_la_ligne;
Ecrire_Ligne("Pour localiser il faut deux coordonées, entrez la valeur de X");
Lire(X);a_la_ligne;
Ecrire_Ligne("Rentrez la valeur de Y");
Lire(Y);
if Y<0 then
if X<0 then
ecrire("Position: Sud-Ouest");
elsif X>0 then
ecrire("Position: Sud-est");
else
ecrire("Position: Sud");
end if;
elsif Y>0 then
if X<0 then
ecrire("Position: Nord-Ouest");
elsif X>0 then
ecrire("Position: Nord-est");
else
ecrire("Position: Nord");
end if;
else
if X<0 then
ecrire("Position: Ouest");
elsif X>0 then
ecrire("Position: est");
else
ecrire("Position: Centre");
end if;
end if;
end localisation;
Message édité le 05-10-2006 à 15:06:22 par Knup
--------------------
|
|
| Knup | | Nouveau membre | | 5 messages postés |
| Posté le 05-10-2006 à 15:07:54
| Jeu de Nim2 :
with Hasard123;
with P_ESiut; use P_ESiut;
procedure Nim2 is
Tas,U : integer;
Max : integer ;
FinJeu : boolean := false;
H : positive;
begin
ecrire("Entrez le nombre 'allumettes initial");
lire(Tas);
ecrire("Entrez le nombre d'allumete maximum que l'on peut prendre");
Lire(Max);
while Max<2 loop
ecrire("Le nombre maximum d'allumette a prendre doit etre égal a 2 au minimum");
lire(Max);
end loop;
while Tas<(Max+1) loop
ecrire("Le nombre d'allumette doit etre superieur a "&integer'image(Max+1));
lire(Tas);
end loop;
while not FinJeu loop
if Tas=0 then
ecrire("Gagné");
FinJeu:=True;
elsif Tas<=Max then
ecrire("perdu");
FinJeu:=True;
else
ecrire("Reste "&integer'image(Tas));
if Tas mod (Max+1)=0 then
H:=Hasard123;
else
H:=Tas mod (Max+1);
end if;
Tas:=Tas-H;
ecrire(". Je prend"&positive'image(H));
ecrire(". Reste"&integer'image(Tas));
ecrire(". Vous prenez? ");
Lire(U);
while U>Max or 0>U or U>Tas loop
ecrire("Vous pouvez tirer maximum "&Integer'image(Max)&" allumettes, et ne pas depasser le nombre restant d'allumettes");
lire(U);
end loop;
Tas:=Tas-U;
end if;
end loop;
end Nim2;
|
|
| faima | | Nouveau membre | | 1 message posté |
| Posté le 26-02-2009 à 00:41:50 
| Est ce que vous pouvez mettre le code de packetage Hasard123 de jeu de nim2?
merci d'avance
--------------------
dsfdqs |
|
|
