Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Mon premier programme :)
Auteur Message
Neophyte
Invité
Posté le : Mer 17 Oct 2007, 23:27   Citer 

Bonjour ou bonsoir a tous happy.gif

Voila j'ai récemment décidé de me mettre un peu a la programmation ; cependant je ne souhaitais pas recopier bêtement les lgnes de codes proposées ici, j'ai voulu écrire un ptit quelque chose moi même.

Ce sont en fait 2 programmes :
*Le premier permet de passer nimporte quelle fraction sur 100 : vous avez
60 000 000 de Français dont 45 000 000 en couple (valeurs prises au hasard hein :p), combien de % de Français vivent en couple?



Code

:Output(4,2,"POURCENTAGES"
:Pause
:EffEcr
:Input("DENOMINATEUR?",A
:Input("DIVISEUR?",B
:((100*A)/B)->C
:Disp "A / B ="
:Disp "C / 100"
:Disp "C ="
:Disp C



Le second programme applique la réciproque du Théorème de Pythagore (si (Coté_le_plus-long)² = (Autre_cote_1)²+(Autre_coté_2)², alors le triangle est rectangle - mais vous le savez ça hein? ^^ )


Code
:EffEcr
:Output(2,4,"PYTHAGORE"
:Pause
:EffEcr
:Input "COTE LE PLUS LONG?",A
:Input "AUTRE COTE 1?",B
:Input "AUTRE COTE 2?",C
:If A^2=B^2+C^2
:Then
:Disp "LE COTE LE"
:Disp "PLUS LONG EST"
:Disp "HYPOTENUSE"
:Disp "ET MESURE"
:Disp A
:Else
:Disp "LE COTE LE"
:Disp "PLUS LONG"
:Disp "N'EST PAS HYPOTENUSE"
:End
:



Voila je vous avais prévenu, c'est simle ^^ m'enfin faut un début a tout.
ALors qu'en pensez vous? Y a des bases a revoir? happy.gif

P.S : Les objectifs sont aussi un peu Terre -a-terre mais je ne sais pas faire grand chose d'autre de "simple" a programmer en 2nde.

  Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Jeu 18 Oct 2007, 15:28   Citer 

Yeah pas mal pour un debut (les pourcentages tkt on a tous fait ca :p)

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 18 Oct 2007, 18:44   Citer 

C'est déjà bien de t'être mis à la programmation, en plus en faisant tes propres programmes happy.gif

Au passage, sache que tu peux oublier les guillemets à la fin des lignes, et que tu peux enchaîner les Disp en un seul.
En clair, voici ton code fait au minimum d'octet (=> Ratuss au sens de la syntaxe bien sur, je ne parle pas de l'organisation^^):


Code
:EffEcr
:Output(2,4,"PYTHAGORE
:Pause
:EffEcr
:Input "COTE LE PLUS LONG?",A
:Input "AUTRE COTE 1?",B
:Input "AUTRE COTE 2?",C
:If A²=B²+C²
:Then
:Disp "LE COTE LE","PLUS LONG EST","L'HYPOTENUSE","ET MESURE",A
:Else
:Disp "LE COTE LE","PLUS LONG","N'EST PAS L'HYPOTENUSE
:End



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





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

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa