Poster un nouveau sujet Poster une réponse
Traject
Auteur Message
AlexRider38



Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13
Posté le : Mar 20 Juil 2010, 6:08   Citer 

Voici un programme de calcule des trajectoires balistiques:


Code
:0→A:0→B
:Param
:0→Tmin
:3→Tmax
:.02→Tstep
:-2→Xmin
:25→Xmax
:5→Xscl
:-2→Ymin
:10→Ymax
:5→Yscl
:Lbl 0
:Menu("TRAJECT","TRAJECTOIRE",1,"CONVERSION",2,"QUITTER",3
:Lbl 1
:ClrHome
:Input "VITESSE (M/S)  ",A
:ClrHome
:Input "ANGLE (MAX.90°)  ",B
:ClrHome
:Disp "VITESSE",A,"ANGLE",B
:Pause
:ClrHome
:Output(1,1,"DEscriptION:
:Output(3,3,"CALCUL DE
:Output(4,3"TRAJECTOIRE
:Output(5,3,"BALISTIQUE
:Pause
:ClrHome
:Output(1,1,"T:TEMPS (SEC.)
:Output(2,1,"X:DISTANCE
:Output(3,1,"Y:HAUTEUR
:Pause
:ClrHome
:"ATcosB°"→X[sub]1T[/sub]
:"ATcosB-(9.8/2)T[sub]2[/sub]"→Y[sub]1T[/sub]
:Trace
:Goto 0
:Lbl 2
:ClrHome
:Menu("CONVERSION","KM/H:M/S",4,"M/S:KM/H",5,"RETOUR",0
:Lbl 4
:Input "KM/H:",A
:Disp "M/S:",A/3.6
:Pause
:0→A
:ClrHome
:Goto 2
:Lbl 5
:Input "M/S",B
:Disp "KM/H:",B*3.6Pause
:0→B
:Goto 2
:Lbl 3
:""→X[sub]1T[/sub]
:""→Y[sub]1T[/sub]
:ClrHome
:ClrDraw
:ZStandard
:Func
:Output(1,1,"
:


Le 83p:

Voilaici

Alex

 Adresse email Haut de page Bas de page 
 
Wirekey



Autorisation : Membre
Nb de messages : 228
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Mar 20 Juil 2010, 11:33   Citer 

Il y a des erreur dans le fichier...

Deux - de la soustraction utilisés au lieu de l'autre.

Et Ici :

Output(4,3"TRAJET

Et d'autre j'ai pas eu le courage de continuer moodforlove.gif


Citer
2) Les internautes peuvent déposer librement les programmes de leur création. En les déposant sur ce forum, ils accèptent qu'ils devienent libre de droit, c'est à dire que chacun peut les copier, modifier et les redistribuer sur un autre site.



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





  Page générée en 6 requêtes