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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 : 5537
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 : 5031
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 : 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
papydall

avatar

Nombre de messages : 5537
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 : 453
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 : 5537
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: