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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 5501
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 : 4988
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
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
papydall

avatar

Nombre de messages : 5501
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/
Marc37



Nombre de messages : 443
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 : 5501
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
» les nombres de visites et de pages vues....
» Trait qui sépare le nombre de messages au nombres de sujets ect
» Limiter le nombres de smileys

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