Alléger un programe |
Auteur |
Message |
programath
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
|
Posté le : Lun 28 Fév 2011, 14:16
|
|
|
Bonjour ! je voudrai savoir, ou plutot comprendre comment alléger un programme et le rendre plus agréable en modifiant la police du texte :
Code |
Goto 83
Lbl 10
Disp "ENTREZ","UN RAYON:"
Input A
Disp "ENTREZ","UNE HAUTEUR:"
Input B
2pAB->C
2pA*(A+B)->D
pA²B->E
Disp "AIRE LATERAL",C
Disp "(2pAB)"
Pause
Disp "AIRE TOTALE",D
Disp "2pA*(A+B)"
Pause
Disp "VOLUME",E
(pA²B)
Pause
CrlHome
Goto 83
|
Voila c'est un programme tout simple xd
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 28 Fév 2011, 18:05
|
|
|
alors déjà, on divise la taille par 2 et on supprimme les variables pour utiliser moins de mémoire.
Code |
Input "RAYON",A
Input "HAUTEUR",B
Disp "AIRE LATERALE",2pAB
Pause "(2pAB)
Disp "AIRE TOTALE",2pA(A+B
Pause "2pA*(A+B)
Disp "VOLUME",pBA²
Pause "(pA²B)
ClrHome
|
ensuite pour modifier la police, il faut écrire en graphique, je connais un algorithme pour écrire de manière originale, mais alors là on perd pas mal d'octets. et de fluidité.
|
|
|
|
programath
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
|
Posté le : Lun 28 Fév 2011, 22:52
|
|
|
Merci pour l'allègement.
Comment on écrit en graphique ?
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mar 01 Mar 2011, 0:51
|
|
|
Avec la fonction Text(Y,X) avec Y l'ordonnée et X l'abscisse du pixel au dessus de la lettre.
L'origine de ces nombres est en haut à gauche.
Sangohan38
|
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mar 01 Mar 2011, 9:08
|
|
|
la fonction text se compte en pixels depuis en haut à gauche (donc attention, pas de nombres à virgule ni de nombres négatifs...)
pour écrire en gras:
Code |
"Votre texte à afficher ici
For(A,1,longueur(Rép
For(B,0,1
Text(0,5A+B,sous-Chaîne(Rép,A,1
End
End
|
(trouvé par alexvire)
|
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 01 Mar 2011, 16:06
|
|
|
Bravo ! J'aime bien.
---------------------- Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
|
|
|