[programme] Delta Discriminant

**Marco**

Où sont l'abscisse et l'ordonnée sur l'écran ???

_________________

RoMz34

En gros ^^ sa sépare l'ecran en quatre parti egale ...

**Marco**

AAAAAaaaah, tu veux dire que tu vois les axes !
Dans ce cas c'est AxesOff dans le même menu.

_________________

**Bisam** · 14.8/20 à la 2ème épreuve de l'agreg 2000

Ce sont donc les AXES que tu veux effacer (et non les abscisse et ordonnée qui sont des nombres permettant de positionner un point dans le plan).
Une commande genre "AXESOFF" doit bien exister, non ?

RoMz34

Merci a vous deux ;)

EDIT : sa marche niquel maintenant j'essai d'augmenter la taille mais est ce que :

Text(-1,y,x etc , fait la difference avec Text(1,1," etc ... :s

**Marco**

Je ne comprends pas ta question

Si c'est ce que tu veux dire, il n'y a que 2 tailles différentes.
Il y a effectivement une différence si tu mets ou non le -1.

_________________

RoMz34

En faite ^^ ma question c'est comment transformé sa :

2: Text(0,0,"X1=(-",B,"+sqrt(",D,"/(2*",A,")")

en plus grand ^^ ...

**Marco**

OK, alors il suffit de mettre le -1 comme ça :

Code:

: Text(-1,0,0,"X1=(-",B,"+sqrt(",D,"/(2*",A,")")

_________________

RoMz34

whao , c'est exactement ce que je veut ^^ merci !! sa donne vraiment bien ;) merci

EDIT : j'arrete pour ce soir , je reprend surement demain ;) bonne nuit a tous et un grand merci a votre aide !!! a PlUs !!! :)

**Marco**

De rien
@+ (pour de nouvelles aventures !!!!)

_________________

**tama**

tiens, ça me rappelle mon ancien programme que j'avais fait quand j'étais aussi en 1èreS xD

J'avais même un prof qui m'avait demandé de l'adapter pour 82 :D

[mode modeste]
Pas mal le programme sinon ;)

EDIT : héééééééé ! RomZ !! Qu'est-ce que tu deviens ? pourquoi tu passes pas sur la TsT ? :D

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

RoMz34

Salut Tama ^^,

désolé je reprend aprés environs 6 mois car en faite je m'etait fait volé la calculette --' en sport ... c'est assez courant au lycée et pour la rentré je vien d'en avoir une ;) !!
J'ai retrouver le bon vieu TsT ;) désolé je ne le trouvé plus mais grace a ta baniere :p !!! ^^

Bon maintenant reprenons le projets ;) !

J'aimerais savoir comment a tu fait le signe delta ? ^^ sa serais pas mal au lieu de metre D ... ^^ QUand au tableau de signe j'y suis pas encore a sa ;) !!! (en cours je veut dire ;) )

EDIT : existe-il un copier coller sur la calculette ?

Quand au logiciel pour faire un programme sur PC je cherche toujours ainsi qu'un testeur ... ^^ car je peut envoyé grace au PC de mes parents .. malheureusement TI graph link ne marche vraiment pas :s ... merci

RoMz34

Et voici le programme plus ou moin finalisé mais je pense que je vais pas trop m'attarder dessus ... mon but est juste d'apprendre ^^ Donc soit je le pousse au bout et passe tout en graphique , le finalise vraiment le rend estethique et fonctionel , sois je le laisse comme sa, simple mais assez brouillons^^ et ainsi je recommence un autre projet.

Code:

1 : ClrHome
2 : Disp "AX^2+BX+C = 0"
3 : Prompt A
4 : If A = 0
5 : Then
6 : Disp "IMPOSSIBLE"
7 : Stop
8 : End
9 : Prompt B,C
10 : ClrHome
11 : Disp "D = B^2-4AC"
12 : (B^2)-(4AC) -> D
13 : Disp " "
14 : Disp "Delta="
15 : Disp D
16 : Disp " "
17 : If D>0
18 : Then
19 : Disp "2 SOLUTIONS"
20 : Output(1,1," // effacer le : done.
21 : Disp " " // sautez une ligne
22 : Pause
23 : ClrHome
24 : Disp "X1=(-B+√D)/(2A)
25 : Disp " "
26 : Disp "ET"
27 : Disp " "
28 : Disp "X2=(-B-√D)/(2A)
29 : Pause
30 : (-B+√D)/(2A) -> I
31 : (-B-√D)/(2A) -> J
32 : ClrDraw
33 : AxesOff
34 : Text (-1,0,0,"X1="
35 : Text (-1,9,0,"(-",B,"+sqrt(",D,"/(2*",A,")")
36 : Text (-1,26,0,"X1=",I)
37 : Pause
38 : Text (-1,0,0,"X2="
39 : Text (-1,9,0,"(-",B,"-sqrt(",D,"/(2*",A,")")
40 : Text (-1,26,0,"X2=",J)
41 : End
42 :
43 : If D<0
44 : Then
45 : Disp "0 SOLUTION."
46 : End
47 :
48 : If D=0
49 : Then
50 : Disp "1 SOLUTION"
51 : Disp "DOUBLE"
52 : Disp " "
53 : OutPut (1,1,"
54 : Pause
55 : ClrHome
56 : Disp "X=(-B)/(2A)"
57 : Pause
58 : (-B)/(2*A) -> K
59 : ClrDraw
60 : AxesOff
61 : Text (-1,0,0,"X=(-",B,"/(2*",A,")")
62 : Text (-1,0,0,"X=",K)
63 : End

**Bisam** · 14.8/20 à la 2ème épreuve de l'agreg 2000

A la lecture du manuel, il n'y a pas l'air d'y avoir de copier-coller à proprement parler mais tu peux utiliser la commande [RCL] pour copier l'intégralité d'un programme puis effacer ce qui ne t'intéresse pas.
Ca peut servir par exemple de faire un programme type pour le début et la fin de tes programmes...

**tama**

oui, cf astuces z80
pour le delta, j'ai mis ma TI en français (juste le temps de le mettre) et c'est dans Catalogue>Caractères, sinon tu peux bidouiller en prenant "(delta)x" ou "(delta)y" dans Vars>Window et supprimer le 2ème caractère par un espace

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !