Algorithme calcul d'une moyenne ( 2 listes)

[alexis.v]

Bonjour,
j'aimerais que vous m'aidiez à traduire cet algorithme pour ma cx cas.
Dans l'attente de vos réponses je vous souhaite une bonne fin de journée.

[Hamza.S]

cet exercice c'est un peu du n'importe quoi. ta calculette a des fonctions qui calculent la moyenne, la variance et l'écart-type
pour calculer la moyenne d'une liste et coefficient pas besoin de programme il y a la fonction mean(liste1,liste2)
pour l'écart-type, c'est stDevSamp(liste1,liste2)
pour la variance, c'est varSamp(liste1,liste2)

traduction de l'algorithme

Code: Select all

Define algo()=
Func
Local c,t,n,i
c:=0
t:=0
n:=dim(l1)
For i,1,n
  t:=t+l1[i]*l2[i]
  c:=c+l2[i]
EndFor
approx(t/c)
EndFunc

pour qu'il marche tu dois définir tes listes l1 et l2

* tu peux le faire depuis la page calcul en faisant l1:={ta liste1 séparé par des virgules} et l2:={ta liste2 séparé par des virgules}
exemple : l1:={8,12.5,19,5} et l2:={4,2,7,6}

ou
* tu peux le faire dans tableur et listes en mettant dans les cases A et B l1 et l2 voir image

[alexis.v]

Merci beaucoup pour ta réponse !!

[alexis.v]

Code: Select all

Define ex()=
Prgm
request"n"
0→a
For i,1,n
a+((1)/(n))*(1-(((i)/(n)))^(2))→a
EndFor
disp"a"
EndPrgm

c'est algorithme pour calculer l'aire du dessous d'une parabole mais je pense qu'il est pas correct

[Hamza.S]

l'erreur vient de la ligne Request
c'est Request "n",n
et pour afficher tu fais Disp a

[critor]

En fait, c'est cette ligne dès le début qui ne va pas :

Code: Select all

request"n"

Corrige en :

Code: Select all

request"n",n

[alexis.v]

merci bien mais pourquoi faut-il mettre n apres "n" ?

[critor]

Request prend 2 paramètres :

• un message d'invite à afficher
• le nom de la variable dans laquelle enregistrer

Donc par exemple, ta ligne pourrait devenir :

Code: Select all

Request "Entrez la valeur de n :",n

... ou encore en plus court :

Code: Select all

Request "n=",n

[Hamza.S]

ce genre d'exercice, le mieux c'est de faire une fonction et passé n en argument.
ça donne :

Code: Select all

Define ex(n)=
Func
Local a,i
0→a
For i,1,n
a+((1)/(n))*(1-(((i)/(n)))^(2))→a
EndFor
a
EndFunc

et pour l'exécuter : ex(5) (exemple n=5)

[alexis.v]

Merci beaucoup a vous deux !!!!