Forum

Catégorie : Programmes
Forum : Aide à la programmation
Vues : 1341
Réponses : 6
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Aide : Programme table de multiplication

Coreteck le 14/04/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 ?
linkakro le 14/04/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.
Coreteck le 15/04/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 goutte.gif
Sangohan38 le 15/04/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 le 15/04/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 le 15/04/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 le 16/04/2010 à 08:59
En effet ton programme fonctionne parfaitement merci infiniment bigmouth.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.