Petit problem avec le pascal
Fermé
cloudstrif
-
22 avril 2007 à 22:41
kmanber Messages postés 543 Date d'inscription mardi 30 août 2005 Statut Membre Dernière intervention 28 décembre 2008 - 23 avril 2007 à 12:24
kmanber Messages postés 543 Date d'inscription mardi 30 août 2005 Statut Membre Dernière intervention 28 décembre 2008 - 23 avril 2007 à 12:24
A voir également:
- Petit problem avec le pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Excel trier du plus grand au plus petit - Guide
- Petit 1 comme ² ✓ - Forum Windows
- Petit colis distribution - Forum Réseaux sociaux
2 réponses
Yep,
Je ne me rappelle plus comment s'écrit le langage Pascal, alors je te donne l'algo en pseudo-code que tu ré-arrangeras à la sauce Pascal :
n > 0
X = nombre pour trouver sa partie entière inférieure de racine carré
R = 0
n =1
TANT QUE R + (2n-1) <= X
ALORS R = R + (2n-1)
n = n + 1
BOUCLE
AFFICHER "La partie entière inférieure de la racine carré du nombre X est égale à n-1"
> Quand tu rencontres une formule de math, test la bien pour comprendre comment elle fonctionne. Ensuite l'aglo vient tout seul ;)
++
Daop
Je ne me rappelle plus comment s'écrit le langage Pascal, alors je te donne l'algo en pseudo-code que tu ré-arrangeras à la sauce Pascal :
n > 0
X = nombre pour trouver sa partie entière inférieure de racine carré
R = 0
n =1
TANT QUE R + (2n-1) <= X
ALORS R = R + (2n-1)
n = n + 1
BOUCLE
AFFICHER "La partie entière inférieure de la racine carré du nombre X est égale à n-1"
> Quand tu rencontres une formule de math, test la bien pour comprendre comment elle fonctionne. Ensuite l'aglo vient tout seul ;)
++
Daop
kmanber
Messages postés
543
Date d'inscription
mardi 30 août 2005
Statut
Membre
Dernière intervention
28 décembre 2008
256
23 avril 2007 à 12:24
23 avril 2007 à 12:24
$i=1
$i5=0
$i2=InputBox("calcul","Donnez un chiffre")
while $i5 <= $i2
$i5=$i5+$i
$i3=($i-1)/2
$i=$i+2
WEnd
MsgBox(0, "result", $i3)
A adapter à un autre langague
$i5=0
$i2=InputBox("calcul","Donnez un chiffre")
while $i5 <= $i2
$i5=$i5+$i
$i3=($i-1)/2
$i=$i+2
WEnd
MsgBox(0, "result", $i3)
A adapter à un autre langague