:If G^2=A^2+B^2
:Then
:Disp "LE TRIANGLE EST ","RECTANGLE
:Else
:Disp "LE TRIANGLE N\\\'EST","PAS RECTANGLE
:End
:Pause
:Goto ZZ

Cela serait plus propre même si ça ne change rien, ça te permet de gagner une ligne mais surtout d'avoir une fin à ton "If". Comme tu utilises un Goto tu n'as pas besoin de mettre cette fin mais ça permet de voir plus clair.

Le END représente quoi en fait ?
La fin de If, Then, Else ?
Ca sert a rien non ?

Et sinon ca va ?

Bientot fini Thalès

:If condition
:Then
:commande à réaliser
:Else
:commande à réaliser
:End

Si tu mets pas de :End tu restes bloqué dans ton Sinon (Else).

Par exemple essaye ça (ou simplement de comprendre) :

:If 1=1
:Then
:"WOOT ?"→S
:Else
:"OSEF"→S
:Disp S
:Disp S
:Pause

Puis ça :

:If 1=1
:Then
:"WOOT ?"→S
:Else
:"OSEF"→S
:End
:Disp S
:Pause
:Stop

Au fait comment on fait pour afficher un texte ou on puisse remonter pour le regarder ?

Petit ratage sans importance mais je réécris :

:If 1=1
:Then
:"WOOT ?"→S
:Else
:"OSEF"→S
:Disp S
:Pause
:Stop

Puis ça :

:If 1=1
:Then
:"WOOT ?"→S
:Else
:"OSEF"→S
:End
:Disp S
:Pause
:Stop

Ca sert a quoi de mettre "NIMPORTE QUEL TEXTE"->S(n'importe quelle lettre) ?
Ca rentre quoi dans la variable S ?

Et tu sais comment stocker du texte (autre que des chiffres quoi, des caracteres alphabetiques) dans une variable ?

Au fait pourquoi quand je mets des apostrophes ca me met des \\\ ?

Voila le code de Thalès !

Qu'est-ce qui va ou pas, etc ?

:ClrHome
:Lbl O
:Menu("QUE FAIRE ?","NORMAL",N,"RECIPROQUE",R,"AIDE",AA
:Lbl AA
:Disp "NORMAL SERT POUR","TROUVER 1 VALEUR","ET LA RECIPROQUE","SERT A PROUVER","OU PAS QUE DEUX","DROITES SONT","PARALLELLES"
:Pause
:Menu("QUE FAIRE ?","RELIRE",AA,"RETOUR",O
:Lbl N
:Menu("QUELLE VALEUR ?","PETITE",P,"GRANDE",G,"RETOUR",O,"AIDE",A
:Lbl A
:Disp "PETIT VALEUR EST","LE NUMERATEUR DE","LA FRACTION DU","RAPPORT,C'EST LA","VALEUR A TROUVER"
:Pause
:Menu("QUE FAIRE ?","RELIRE",A,"RETOUR",N
:
:
:
:
:
:
:Lbl G
:Disp "ENTRER LA VALEUR
:Input ("SEULE : ",S
:ClrHome
:Disp "ET LES VALEURS"
:Input ("LA GRANDE : ",G
:Input ("LA PETITE : ",P
:ClrHome
:S*G/P→R
:Disp "LA LONGUEUR EST","EGALE A",R
:Goto ZZ
:Lbl P
:Disp "ENTRER LA VALEUR
:Input ("SEULE : ",S
:ClrHome
:Disp "ET LES VALEURS"
:Menu("LA PETITE : ",P
:Menu("LA GRANDE : ",G
:S*P/G→R
:Disp "LA LONGUEUR EST","EGALE A :",R
:Goto ZZ
:
:
:Lbl R
:Disp "ENTREZ LES 4","VALEURS
:Pause
:ClrHome
:Input ("NUMERATEUR 1: ",N
:Input ("DENOMINATEUR 1: ",D
Input ("NUMERATEUR 2 :",T
:Input ("DENOMINATEUR 2: ",A
:If N/D=T/A
:Then
:Disp "LES DROITES SONT","PARALLELLES
:Else
:Disp "LES DROITES NE","SONT PAS
:Disp "PARALLELLES
:End
:Goto ZZ
:
:
:Lbl ZZ
:Pause
:ClrHome
:Menu("RECOMMENCER ?","OUI",O,"NON",Z
:Lbl Z
:Stop

J'ose espérer que "NIMPORTE QUEL TEXTE"->S rentre le texte dans la variable, mais le TI Basic est tellement limité que c'est possible que ça ne fonctionne pas. xD

Pour l'apostrophe, dans beaucoup de langage tu peux utiliser les guillemets ou les apostrophes pour indiquer que tu écris du texte. Il est donc nécessaire d'échapper le caractère si tu souhaites qu'il apparaisse comme du texte afin que le programme puisse comprendre que c'est du texte et non l'indicateur de texte.

Dans la plupart des langages,

'texte' donne : texte
"texte" donne : texte
't'es' donne : t
"t'es" donne : t'es
't\'es' donne : t'es
"t\'es" donne : t\'es
"t"es" donne : t
't"es' donne : t"es
"t\"es" donne : t"es
't\"es' donne : t\"es

Mais si la TI confond les guillemets et les apostrophes alors il faut que tu échappes ton apostrophe pour le transformer en texte :

"LE TRIANGLE N\'EST PAS RECTANGLE" donnerait alors : LE TRIANGLE N'EST

La question c'est de savoir comment on échappe en TI Basic (un seul antislash? 3?). Ou de savoir si ce n'est pas ton logiciel de transfert qui échappe l'apostrophe lors du transfert.

Oula, a voir oui

Et pour Thalès ?

Ta partie "NORMAL" est fausse, dessine le triangle si besoin.

Petit1/Grand1 = Petit2/Grand2
Grand1/Petit1 = Grand2/Petit2

Ah en fait ça dépend de ce que tu entends par "QUELLE VALEUR ?", est-ce la valeur manquante ou la valeur seule que va rentrer l'utilisateur?

Avec un pote on a bien réfléchi et je crois bien qu'il n'y a pas d'erreur par rapport a ca
C'est toujours P1/G1=P2/G2

Si l'utilisateur met petite, il devra mettre le numérateur, si il met grande, le résultat sera le dénominateur, si petite, le numérateur sera le résultat (donc la longueur manquante) c'est bon non ?

Ah et y'a quelque problème par rapport aux aides et si après on fait, il y a des ClrHome a rajouter
Je mettrai le bon code une fois rectifié

:ClrHome
:Lbl O
:ClrHome
:Menu("QUE FAIRE ?","NORMAL",N,"RECIPROQUE",R,"AIDE",AA
:
:Lbl AA
:Disp "NORMAL SERT POUR","TROUVER 1 VALEUR","ET LA RECIPROQUE","SERT A PROUVER","OU PAS QUE DEUX","DROITES SONT","PARALLELLES"
:Pause
:Menu("QUE FAIRE ?","RELIRE",AA,"RETOUR",O
:
:Lbl N
:ClrHome
:Menu("QUELLE VALEUR ?","PETITE",P,"GRANDE",G,"RETOUR",O,"AIDE",A
:
:Lbl A
:Disp "PETIT VALEUR EST","LE NUMERATEUR DE","LA FRACTION DU","RAPPORT,CEST LA","VALEUR A TROUVER","ET LA GRANDE EST","LE DENOMINATEUR"
:Pause
:Menu("QUE FAIRE ?","RELIRE",A,"RETOUR",N
:
:Lbl G
:Disp "ENTRER LA VALEUR
:Input ("SEULE : ",S
:ClrHome
:Disp "ET LES VALEURS"
:Input ("LA GRANDE : ",G
:Input ("LA PETITE : ",P
:ClrHome
:S*G/P→R
:Disp "LA LONGUEUR EST","EGALE A",R
:Goto ZZ
:Lbl P
:Disp "ENTRER LA VALEUR
:Input ("SEULE : ",S
:ClrHome
:Disp "ET LES VALEURS"
:Menu("LA PETITE : ",P
:Menu("LA GRANDE : ",G
:S*P/G→R
:Disp "LA LONGUEUR EST","EGALE A :",R
:Goto ZZ
:Lbl R
:Disp "ENTREZ LES 4","VALEURS
:Pause
:ClrHome
:Input ("NUMERATEUR 1: ",N
:Input ("DENOMINATEUR 1: ",D
:Input ("NUMERATEUR 2 :",T
:Input ("DENOMINATEUR 2: ",A
:If N/D=T/A
:Then
:Disp "LES DROITES SONT","PARALLELLES
:Else
:Disp "LES DROITES NE","SONT PAS
:Disp "PARALLELLES
:End
:Goto ZZ
:Lbl ZZ
:Pause
:ClrHome
:Menu("RECOMMENCER ?","OUI",O,"NON",Z
:Lbl Z
:Stop

Voila

Alors ca va

Et du coup je peux faire quoi d'autre
Je vais faire aires/volumes mais sinon quoi ?

Petit1/Grand1 = Petit2/Grand2
Grand1/Petit1 = Grand2/Petit2

Ces deux expressions sont équivalentes. Si deux termes sont égaux alors leurs inverses le sont aussi.

Bref du coup tes textes ne sont pas clairs, "INDIQUEZ LA NATURE DE LA VALEUR MANQUANTE" ou "INDIQUEZ LA NATURE DE LA VALEUR SAISIE" serait plus compréhensible.
Non parce que je n'ai toujours pas compris personnellement.

Ouais je sais pour les expressions équivalentes t'inquiète
Tu parles de changer où ?

:Lbl N
:ClrHome
:Menu("QUELLE VALEUR ?","PETITE",P,"GRANDE",G,"RETOUR",O,"AIDE",A

Aah oui
Je vais mettre un disp avant le menu

Résumé de ce que j'ai fait :

Thalès Pythagore
Aires Volumes
Temps

Je suis a court d'idées je peux faire quoi