Petit problem avec le pascal
cloudstrif
-
kmanber Messages postés 546 Date d'inscription Statut Membre -
kmanber Messages postés 546 Date d'inscription Statut Membre -
salut tt le monde
j'ai une petit problem avec le pascal car j'arive pas a resoudre un exercice et je vous empri de m'aider a le resoudre rapidement car je doit le presenter demain a mon prof
l'exercice dit:
pour tout entier n>0, on a : 1+3+5+7+...+(2n-1)=n².
Tirer de cette propriété mathématique un algorithme qui calcule la partie entière inférieure de la racine carrée d'un nombre x.
Exemple : pour x=30 on doit afficher la valeur5.
j'attend votre reponse et encore ne me oublier pas SVP et merci
j'ai une petit problem avec le pascal car j'arive pas a resoudre un exercice et je vous empri de m'aider a le resoudre rapidement car je doit le presenter demain a mon prof
l'exercice dit:
pour tout entier n>0, on a : 1+3+5+7+...+(2n-1)=n².
Tirer de cette propriété mathématique un algorithme qui calcule la partie entière inférieure de la racine carrée d'un nombre x.
Exemple : pour x=30 on doit afficher la valeur5.
j'attend votre reponse et encore ne me oublier pas SVP et merci
Configuration: Windows XP Firefox 2.0.0.3
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 -
$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
