π
<-
Chat plein-écran
[^]

Pb PRINT/MSGBOX sur HP Prime

Programmation et implémentation d'algorithmes.

Pb PRINT/MSGBOX sur HP Prime

Unread postby Jaxom31 » 20 Sep 2019, 12:27

Bonjour,
J'ai fait ce petit programme pour calcul du discriminant et des solutions d'une équation.
Code: Select all
EXPORT delta_fab2()
BEGIN
LOCAL a,b,c,y,x,x1,x2,z;
print();
z := 1;

WHILE z==1 DO
  a:=0;
  b:=0;
  c:=0;
  INPUT(a);
  INPUT(b);
  INPUT(c);

  y := (b^2-4*a*c);

  IF y>0 THEN
    ((-b+√y)/(2*a)) ▶ x1;
    ((-b-√y)/(2*a)) ▶ x2;
 
    MSGBOX("Delta vaut : " + y + " Donc l'équation admet 2 solutions X1 = " + x1 + " et X2 = " + x2);

  END;
 
  IF y<0 THEN MSGBOX("Delta vaut : " + y + " donc l'équation n'a pas de solution");
  END;
 
  IF y=0 THEN
     (-b/(2*a)) ▶ x;
     MSGBOX("Delta vaut : " + y + " donc l'équation a une solution unique X = " + x);
  END;


  MSGBOX("On continue ?", 1) ▶ z;

END;

END;


J'ai deux soucis avec celui-ci :

- J'aurais préféré utiliser des PRINT au lieu de MSGBOX pour l'affichage des solutions, mais si je fais ça le programme ne fonctionne plus :#fou#: , pourquoi ?
- Comment rajouter des sauts de lignes dans un PRINT ou un MSGBOX ?
User avatar
Jaxom31Premium
Niveau 3: MH (Membre Habitué)
Niveau 3: MH (Membre Habitué)
Level up: 40%
 
Posts: 7
Joined: 20 Sep 2019, 12:21
Gender: Not specified
Calculator(s):
MyCalcs profile

Re: Pb PRINT/MSGBOX sur HP Prime

Unread postby critor » 20 Sep 2019, 12:47

Bonjour.

Il suffit de mettre \n dans une chaîne de caractère pour un retour à la ligne qui sera pris en compte à la fois par PRINT et par MSGBOX :
"ligne1\nligne2"

Pour le reste, les affichages PRINT et MSGBOX n'ont pas le même comportement.
MSGBOX me semblerait plus pertinent pour ce genre de programme, vu qu'il affiche immédiatement et attend.

Les affichages PRINT se font sur un écran dédié, qui normalement n'est montré qu'en fin de programme, et encore uniquement si les dernières instructions de sortie sont des PRINT.
Il y a toutefois moyen de montrer cet écran en cours de programme. Il suffit de faire suivre une ou plusieurs instructions PRINT de WAIT();.
Les affichages PRINT effectués précédemment seront alors montrés, avec attente d'appui sur une touche.
Image
User avatar
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Level up: 41.8%
 
Posts: 41470
Images: 14480
Joined: 25 Oct 2008, 00:00
Location: Montpellier
Gender: Male
Calculator(s):
MyCalcs profile
YouTube: critor3000
Twitter: critor2000
GitHub: critor

Re: Pb PRINT/MSGBOX sur HP Prime

Unread postby Jaxom31 » 20 Sep 2019, 13:10

Super, Merci beaucoup, ça fonctionne parfaitement. :D
User avatar
Jaxom31Premium
Niveau 3: MH (Membre Habitué)
Niveau 3: MH (Membre Habitué)
Level up: 40%
 
Posts: 7
Joined: 20 Sep 2019, 12:21
Gender: Not specified
Calculator(s):
MyCalcs profile

Re: Pb PRINT/MSGBOX sur HP Prime

Unread postby ggauny@live.fr » 28 Nov 2019, 16:32

delta_prime.zip
(1.39 KiB) Downloaded 94 times
Capture.JPG
Bonjour,
ce programme de Mikael Nicotéra peut aussi apporter des idées quant à la présentation.
J'espère vous avoir aidé.
User avatar
ggauny@live.frPremium
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 43.4%
 
Posts: 283
Joined: 11 Mar 2015, 20:43
Gender: Not specified
Calculator(s):
MyCalcs profile


Return to Programmation

Who is online

Users browsing this forum: No registered users and 3 guests

-
Search
-
Social TI-Planet
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
981 utilisateurs:
>969 invités
>8 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)