3 réponses
mac_evel
Messages postés
7
Date d'inscription
mercredi 17 septembre 2008
Statut
Membre
Dernière intervention
17 septembre 2008
4
17 sept. 2008 à 10:35
17 sept. 2008 à 10:35
Salut! Voici le mien qui marche très bien.Il donne aussi les valeurs dans les complexes
petites info: il existe une flèche sur ta calculette que je représenterai par: ->
il existe aussi une touche racine que je représenterai par: racine
il existe encore une touche i pour les complexes que je représenterai par: i
si tu le recopies à la lettre il devrait marcher
:delta
:Prgm
:Disp " BONJOUR"
:Pause
:Disp" Entrez Les Valeurs"
:Disp" de a,b,c:"
:b^2-4*a*c->d
:Disp "delta=b²-4ac"
:Disp "delta=",d
:Pause
:If d<0 Then
:Disp "delta<0 donc pas de solution dans R"
:Disp"x'=(-b+iracine(-delta))/2a",(-b+i*racine(-d))/(2*a)
:Disp"x''=(-b-iracine(-delta))/2a",(-b-i*racine(-d))/(2*a)
:Else
:If d=0 Then
:Disp "Delta nul"
:Disp "Une racine double"
:Disp "x=-b/(2a)",-b/(2*a)
:Else
:Disp "x'=(-b+racine(delta))/2a",(-b+racine(d))/(2*a)
:Disp"x''=(-b-racine(delta))/2a",(-b-racine(d))/(2*a)
:EndIf
:EndIf
:EndPrgm
Et voilà ce programme te suivra toute ta vie
petites info: il existe une flèche sur ta calculette que je représenterai par: ->
il existe aussi une touche racine que je représenterai par: racine
il existe encore une touche i pour les complexes que je représenterai par: i
si tu le recopies à la lettre il devrait marcher
:delta
:Prgm
:Disp " BONJOUR"
:Pause
:Disp" Entrez Les Valeurs"
:Disp" de a,b,c:"
:b^2-4*a*c->d
:Disp "delta=b²-4ac"
:Disp "delta=",d
:Pause
:If d<0 Then
:Disp "delta<0 donc pas de solution dans R"
:Disp"x'=(-b+iracine(-delta))/2a",(-b+i*racine(-d))/(2*a)
:Disp"x''=(-b-iracine(-delta))/2a",(-b-i*racine(-d))/(2*a)
:Else
:If d=0 Then
:Disp "Delta nul"
:Disp "Une racine double"
:Disp "x=-b/(2a)",-b/(2*a)
:Else
:Disp "x'=(-b+racine(delta))/2a",(-b+racine(d))/(2*a)
:Disp"x''=(-b-racine(delta))/2a",(-b-racine(d))/(2*a)
:EndIf
:EndIf
:EndPrgm
Et voilà ce programme te suivra toute ta vie
Il y a un problème avec ton programme , La calculatrice affiche erreur:syntaxe au niveau du If D<0 Then , y'a un problème avec le " then " ... comment je dois faire :S
tu dois l'écrire comme ceci:
:If D<0
:Then
ect
pareil pour:
:If D=0
:Then
etc
perso j'ai utiliser ce que tu as mis met j'ai du faire quelque changements pour que ça marche parfaitement.
PS: pour
:EndIf
:EndIf
:EndPrgm
sa marchait pas non plus (erreur) alors j'ai enlevé ces 3 ligne et sa marche. Il y a d'autre truc encor mais je me souviens plus.
:If D<0
:Then
ect
pareil pour:
:If D=0
:Then
etc
perso j'ai utiliser ce que tu as mis met j'ai du faire quelque changements pour que ça marche parfaitement.
PS: pour
:EndIf
:EndIf
:EndPrgm
sa marchait pas non plus (erreur) alors j'ai enlevé ces 3 ligne et sa marche. Il y a d'autre truc encor mais je me souviens plus.
