papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: La beauté des nombres Mar 15 Sep 2015 - 4:14 | |
| Besoin de programmer, mais manque d'inspiration, ça ne peut donner que de l'inutile.  - Code:
-
rem ============================================================================
rem La beauté des nombres
rem ============================================================================
dim t$,i
full_space 0 : height 0,10
for i = 1 to 4
list i : width i,350 : height i,200
top i,100 : left i,5+(i-1)*(width(i)+10): font_bold i : font_color i,255,255,255
font_size i,12 : font_name i,"dejavu serif" : color i,0,0,255 : item_add i,""
next i
top 4, 320 : width 4,450 : left 4,300
alpha 5 : top 5,20 : left 5,200 : font_bold 5 : font_color 5,0,0,255
font_size 5,24 : caption 5,"LA BEAUTE DES NOMBRES"
alpha 6 : top 6,600 : left 6,200 : font_bold 6 : font_color 6,255,0,255
font_size 6,24 : caption 6,"MAGNIFIQUE, NON !"
rem ============================================================================
t$ = string$(17," ") + "1 * 8 + 1 = 9" : item_add 1,t$
t$ = string$(15," ") + "12 * 8 + 2 = 98" : item_add 1,t$
t$ = string$(13," ") + "123 * 8 + 3 = 987" : item_add 1,t$
t$ = string$(11," ") + "1234 * 8 + 4 = 9876" : item_add 1,t$
t$ = string$(09," ") + "12345 * 8 + 5 = 98765" : item_add 1,t$
t$ = string$(07," ") + "123456 * 8 + 6 = 987654" : item_add 1,t$
t$ = string$(05," ") + "1234567 * 8 + 7 = 9876543" : item_add 1,t$
t$ = string$(03," ") + "12345678 * 8 + 8 = 98765462" : item_add 1,t$
t$ = string$(01," ") + "123456789 * 8 + 9 = 987654321" : item_add 1,t$
rem ============================================================================
t$ = string$(17," ") + "1 * 9 + 2 = 11" : item_add 2,t$
t$ = string$(15," ") + "12 * 9 + 3 = 111" : item_add 2,t$
t$ = string$(13," ") + "123 * 9 + 4 = 1111" : item_add 2,t$
t$ = string$(11," ") + "1234 * 9 + 5 = 11111" : item_add 2,t$
t$ = string$(09," ") + "12345 * 9 + 6 = 111111" : item_add 2,t$
t$ = string$(07," ") + "123456 * 9 + 7 = 1111111" : item_add 2,t$
t$ = string$(05," ") + "1234567 * 9 + 8 = 11111111" : item_add 2,t$
t$ = string$(03," ") + "12345678 * 9 + 9 = 111111111" : item_add 2,t$
t$ = string$(01," ") + "123456789 * 9 + 10 = 1111111111" : item_add 2,t$
rem ============================================================================
t$ = string$(17," ") + "9 * 9 + 7 = 88" : item_add 3,t$
t$ = string$(15," ") + "98 * 9 + 6 = 888" : item_add 3,t$
t$ = string$(13," ") + "987 * 9 + 5 = 8888" : item_add 3,t$
t$ = string$(11," ") + "9876 * 9 + 4 = 88888" : item_add 3,t$
t$ = string$(09," ") + "98765 * 9 + 3 = 888888" : item_add 3,t$
t$ = string$(07," ") + "987654 * 9 + 2 = 8888888" : item_add 3,t$
t$ = string$(05," ") + "9876543 * 9 + 1 = 88888888" : item_add 3,t$
t$ = string$(03," ") + "98765432 * 9 + 0 = 888888888" : item_add 3,t$
rem ============================================================================
t$ = string$(17," ") + "1 * 1 = 1" : item_add 4,t$
t$ = string$(15," ") + "11 * 11 = 121" : item_add 4,t$
t$ = string$(13," ") + "111 * 111 = 12321" : item_add 4,t$
t$ = string$(11," ") + "1111 * 1111 = 1234321" : item_add 4,t$
t$ = string$(09," ") + "11111 * 11111 = 123454321" : item_add 4,t$
t$ = string$(07," ") + "111111 * 111111 = 12345654321" : item_add 4,t$
t$ = string$(05," ") + "1111111 * 1111111 = 1234567654321" : item_add 4,t$
t$ = string$(03," ") + "11111111 * 11111111 = 123456787654321" : item_add 4,t$
t$ = string$(01," ") + "111111111 * 111111111 = 12345678987654321" : item_add 4,t$
rem ============================================================================
for i = 10 to 700 step 10 : height 0,i : pause 30 : next i
rem ============================================================================ | |
|
Jean Claude
Nombre de messages : 5950
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: La beauté des nombres Mar 15 Sep 2015 - 7:33 | |
| Bonjour, Inutile dis-tu? Moi j'y vois des astuces. En particulier les carrés des nombres composés avec des 1. EX: pour le carré de 11111, il y a 5 fois le chiffre 1. donc sur le papier on écrit 5, ensuite à gauche du 5 on écrit en ordre décroissant les chiffres jusqu’à 1 et pour finir on fait pareil à droite et toujours en ordre décroissant. 11111 2= 123454321 (pas besoin de calculette)  A+ | |
|
Minibug
Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: La beauté des nombres Mar 15 Sep 2015 - 9:01 | |
| Bonjour Papydall ! Quand c'est beau comme ça... quand c'est top comme ça... et bien c'est Papydall !  Bon j'ai pas vérifié les calculs ! Je te fais confiance...   | |
|
papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: La beauté des nombres Mar 15 Sep 2015 - 16:07 | |
| Merci pour vos retours. - Jean Claude a écrit:
- 111112= 123454321 (pas besoin de calculette)
Dois-je comprendre que ta calculette (qui a rendu fou plus d'un panoramicien) est bonne pour la corbeille ?!  | |
|
Marc
Nombre de messages : 2392
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: La beauté des nombres Mer 16 Sep 2015 - 4:16 | |
| Bonjour Papydall,
Effectivement c''est original et beau !
Sous le scientifique que tu es, se cache un artiste-poète !
Même si je n'interviens pas souvent, je scrute le forum régulièrement.
Merci pour tous tes nombreux codes.
4h14 : bonne nuit !
| |
|
papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: La beauté des nombres Mer 16 Sep 2015 - 12:36 | |
| Merci Marc37 pour ce doux mot.
Je fais ce que je peux.
Je m’inspire de ce que font les plus doués que moi.
Je m’intéresse à ce qui me plait et il y en plein de choses qui me plaisent, en particulier ce forum. | |
|
Calendrier