FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 La beauté des nombres

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: 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. tongue

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5527
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: 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.
111112= 123454321 (pas besoin de calculette)  Very Happy


A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2979
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: 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 ! Laughing

Bon j'ai pas vérifié les calculs ! Je te fais confiance...drunken

lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: 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)  Very Happy  

Dois-je comprendre que ta calculette (qui a rendu fou plus d'un panoramicien) est bonne pour la corbeille ?! Evil or Very Mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc

avatar

Nombre de messages : 803
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: 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 !


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: La beauté des nombres   

Revenir en haut Aller en bas
 
La beauté des nombres
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» La beauté des nombres
» Loto Beauté loulou - 10 décembre
» pour jouer avec les chiffres et les nombres
» S.O.S. Beauté, Tome 1/2
» Grand Prix Beauté 2010

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: