Poster un nouveau sujet Poster une réponse
Programme pour connaitre l'intensité d'une éclaircie
Auteur Message
Lumpy



Autorisation : Membre
Nb de messages : 7
Inscrit le : Lun 28 Avr 2008, 16:57
Posté le : Lun 28 Avr 2008, 17:23   Citer 

Bonjour a tous
Je suis nouveau sur ce forum et je vien d'apprendre aujourd'hui la programation avec mon petit calepin TI-82 winkle.gif

Je suis dans le domaine forestier et c'est qu'en BTS que je me rend compte des atout que m'apporte cet appareil en forêt pour calcul de cubage et autre fonction.

un peu exité de mes nouveaux programmes je voudrai en soumettre un qui consiste a dire si, lors d'une une éclairci on prélève trop ou pas assez d'arbres lisez plutôt :


Code
:Disp "volume preleve"
:input A
:Disp "volume avant eclaircie"
:input B
:(A/B)*100->C
:Disp C
:If C<(ou égal)10     dsl pour le <(ou égal) mais je trouve pas le sigle  :$
:Disp "tres faible"
:Else
:Disp "."
:End
:If C<(ou égal)20 and C>10
:Then
:Disp "Faible"
:Else "."
:End
:If C<(ou égal)30 and C>20
:Then
:Disp "modere"
:Else
:Disp "."
:End
:If C<(ou égal)40 and C>30
:Then
:Disp "Forte"
:Else
:Disp "."
:End
:If C>40
:Then
:Disp "tres forte"
:Else
:Disp "."
:end
:stop




il est peut être un peu lourd et rudimentaire on peut surement le simplifier...peut être que les "else" ne servent a rien comment les enlever sans dérégler le programme?
toutes les suggestions sont bonnent a prendre winkle.gif

----------------------
La femme a un grand pouvoir en effet elle peut rendre l'homme le plus sage en une bête aux besoins primaire
Lumpy
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
craminou
Invité
Posté le : Lun 28 Avr 2008, 22:23   Citer 

salut à tous
tu peut tabler dans un truc du gout

Code
if C<= ..(ton nombre)
disp "blalbalba"
if C<=..
disp "bla
if C<=..
disp "bla
disp "."


mais je ne voit pas l'interet du disp "."
dans mon prog il affichera "." SI C =/= 10 , 20 ou 30

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink