[RESOLU]Aide pour un programme tres simple

[maxoudj4]

Bonjour je suis confronté a un problème insoluble, c'est un programme de math qui calcule les intervalles de confiance asymptomatique
voici mon programme il m'affiche des erreurs je n'y comprends rien

Code: Select all

Define a(n,p,b,c)=
Prgm
:Request "n",n,0
:Request "p",p,0
:If n<30 or n*p<5 or n(1-p)<5 Then
:Disp "non"
:Else
:p-1.96*√(((p(1-p))/(n)))→b
:p+1.96*√(((p(1-p))/(n)))→c
:EndIf
:Disp b
:Disp c
:EndPrgm

Merci pour votre aide très précieuses

[Hamza.S]

Code: Select all

Define a(n,p,b,c)=
Prgm
Request "n",n,0
Request "p",p,0
If n<30 or n*p<5 or n*(1-p)<5 Then
Disp "non"
Else
p-1.96*√(((p*(1-p))/(n)))→b
p+1.96*√(((p*(1-p))/(n)))→c
EndIf
Disp b
Disp c
EndPrgm

si tu utilises des variables n'oublies pas de mettre les signes par exemple n*(1-p)
et je ne comprends pas pourquoi tu redemandes n et p dans ton programme

[maxoudj4]

c'est pour que l'utilisateur rentre la valeur de n et de p et que algorithme calcule les intervales en fonction ça mais quand j’exécute le programmes il me mets "ce n'est pas un nom de fonction" et le curseur bloque sur l'instruction if

[Hamza.S]

d'accord. en gros tu donnes de la chance à l'utilisateur de se rattraper

[maxoudj4]

Code: Select all

Define a(n,p,b,c)=
Prgm
Request "n",n,0
Request "p",p,0
If n<30 or n*p<5 or n*(1-p)<5 Then
Disp "non"
Else
p-1.96*√(((p*(1-p))/(n)))→b
p+1.96*√(((p*(1-p))/(n)))→c
EndIf
Disp b
Disp c
EndPrgm

si tu utilises des variables n'oublies pas de mettre les signes par exemple n*(1-p)
et je ne comprends pas pourquoi tu redemandes n et p dans ton programme

tu parles du n et p du request ?? Si oui j'ai suivie le tuto pour la syntaxe du request,il demandais de le mettre 2 fois(une avec des guillemets et une autre sans)

[Hamza.S]

le n et p tu les as déjà dans les arguments du programme comme tu l'as noté dans Define a(n,p,b,c)=

[Hamza.S]

ton programme sera utilisable que si tu as un seuil de 95% si on te donne 99%, 90% ou autre ton programme ne sera plus valide

[maxoudj4]

exact c'est le but tu peut me dire pourquoi il m'affiche une erreur

[Hamza.S]

tu as encore erreur avec ce que j'ai modifié?

[Levak]

Autrement dit :

Code: Select all

Define a(n,p,b,c)=
Prgm
:If n<30 or n*p<5 or n*(1-p)<5 Then
:  Disp "non"
:Else
:  b := p-1.96*sqrt(p*(1-p)/n)
:  c := p+1.96*sqrt(p*(1-p)/n)
:EndIf
:Disp b, c
:EndPrgm


Btw, les arguments b et c sont inutiles là, il vaudrait mieux faire un Local b, c