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
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 La beauté des nombres

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5613
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 - 5: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 : 5089
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: La beauté des nombres   Mar 15 Sep 2015 - 8: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 : 2414
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: La beauté des nombres   Mar 15 Sep 2015 - 10: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 : 5613
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 - 17: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



Nombre de messages : 553
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: La beauté des nombres   Mer 16 Sep 2015 - 5: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 : 5613
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 - 13: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
Voir le sujet précédent Voir le sujet suivant 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
» VanilleChoco - La beauté du sud~
» S.O.S. Beauté, Tome 1/2

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: