Aide : Programme table de multiplication |
Auteur |
Message |
Coreteck
Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 14 Avr 2010, 19:12
|
Posté le : Mer 14 Avr 2010, 19:15
|
|
|
Bonjour,
Je suis actuellement en 2nd et dans un dm on me demande de réaliser un programme affichant la table de multiplication d'un nombre demandé.
J'ai farfouillé un peu sur le net mais je n'est malheureusement pas trouvais ce que je cherchais.... Pouvais vous m'indiquer une solution ou une méthode pour arriver a faire mon programme ?
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 14 Avr 2010, 22:40
|
|
|
Tout d'abord quel genre d'affichage désires tu pour écrire ta table ? Car afficher successivement des résultats pourrait suffir.
Voici le plus simple.
Code | prompt A
For(B,1,10
Disp A*B
pause
End |
Après c'est une histoire d'affichage.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
|
|
|
Coreteck
Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 14 Avr 2010, 19:12
|
Posté le : Jeu 15 Avr 2010, 13:59
|
|
|
J'avais déjà pensé a un programme de ce type, malhereusement l'énoncé me demande d'afficher la table comme suis :
(Exemple avec la table de 3)
3*0=0
3*1=3
3*2=6
etc....
Et c'est là que je sèche
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 15 Avr 2010, 14:43
|
|
|
Je le ferais comme cela:
Code | ClrHome
prompt A
For(B,1,10
If B<9
Then
Output(B,2,"*
Output(B,1,A
Output(B,3,B
End
If B>8
Then
Output(B-8,11,"*
Output(B-8,10,A
Output(B-8,12,B
End
End
Pause
ClrHome
Output(1,1," |
Il faut le tester mais je pense que ça va marcher.
Sangohan38
|
|
|
|
Coreteck
Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 14 Avr 2010, 19:12
|
Posté le : Jeu 15 Avr 2010, 15:20
|
|
|
Salut a toi,
Ton programme affiche bien 3*1, etc....
Mais cependant il me faut aussi qu'il affiche le résultat donc 3*1=3....
Une chose me trouble aussi, je ne comprend pas comment tu fais pour afficher les chiffres au endroits voulu ( Avec Output en utilisant B)
PS: si j'utilise 10 le signe * disparait ce que je trouve normale mais je ne suis pas sur si je dois allé jusque 10 voir au delà car l'énoncé n'est pas assez explicite a mon gout...
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 15 Avr 2010, 17:06
|
|
|
Oups, j'ai oublié le plus important pour le programme:
Code | ClrHome
prompt A
For(B,1,9
If B<9
Then
Output(B,2,"* =
Output(B,1,A
Output(B,3,B
Output(B,5,AB
End
If B>8
Then
Output(B-8,11,"* =
Output(B-8,10,A
Output(B-8,12,B
Output(8-B,14,AB
End
End
Pause
ClrHome
Output(1,1," |
Sangohan38
|
|
|
|
Coreteck
Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 14 Avr 2010, 19:12
|
Posté le : Ven 16 Avr 2010, 8:59
|
|
|
En effet ton programme fonctionne parfaitement merci infiniment
|
|
|
|