Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic WE!

WE!

8 réponses
Avatar
Jean-marc
Hello! - "...llo lo ...o"
Il ya quelqu'un? - "..elqu'un ...qu'un ..un"

L'écho semblait être la seule présence sur
le groupe désert.

Un peu de détente.

Ce programme pourrait s'intituler:
"Que J'Aime A Faire Apprendre Ce Nombre Utile Aux Sages..."

Placer un label (Label1) sur une form, puis:

Private Sub Form_Activate()
Dim i As Long
Dim p As Double
Dim s As Integer

s = 1: While i < 1000000: p = p + (s * 1 / (2 * i + 1)): i = i + 1: s
= -s: Label1.Caption = 4 * p: DoEvents: Wend
End Sub

Bon week-end!

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
WhiteWater
Patrice Henrio a écrit :
suite de wallis ? non ?

En tout cas il semble qu'il y ait eu un problème sur
microsoft.public.fr.vb car plus rien ne passait depuis hier.

Bon week-end.

en cherchant le prochain terme de la suite suivante

1, 11, 21, 1211, 111221, 312211, 13112221, ?

"Jean-marc"
<mailto: a écrit dans le message
de news: 451eb164$0$5543$
<mailto:451eb164$0$5543$...
> Hello! - "...llo lo ...o"
> Il ya quelqu'un? - "..elqu'un ...qu'un ..un"
>
> L'écho semblait être la seule présence sur
> le groupe désert.
>
> Un peu de détente.
>
> Ce programme pourrait s'intituler:
> "Que J'Aime A Faire Apprendre Ce Nombre Utile Aux Sages..."
>
> Placer un label (Label1) sur une form, puis:
>
> Private Sub Form_Activate()
> Dim i As Long
> Dim p As Double
> Dim s As Integer
>
> s = 1: While i < 1000000: p = p + (s * 1 / (2 * i + 1)): i = i + 1: s
> = -s: Label1.Caption = 4 * p: DoEvents: Wend
> End Sub
>
> Bon week-end!
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
<mailto:
>
>




Bonjour

1, 11, 21, 1211, 111221, 312211, 13112221, 1113213211, 31131211131221,
13211311123113112211, ... on peux continuer longtemps comme ca.
Avatar
Patrice Henrio
je vois que l'astuce est connue ... au moins de certains


"WhiteWater" <"Pure"AntiSpam"Coincidence"@club-internet.fr> a écrit dans
le message de news: %
Patrice Henrio a écrit :
suite de wallis ? non ?
En tout cas il semble qu'il y ait eu un problème sur
microsoft.public.fr.vb car plus rien ne passait depuis hier.
Bon week-end.
en cherchant le prochain terme de la suite suivante
1, 11, 21, 1211, 111221, 312211, 13112221, ?
"Jean-marc"
<mailto: a écrit dans le message
de news: 451eb164$0$5543$
<mailto:451eb164$0$5543$...
> Hello! - "...llo lo ...o"
> Il ya quelqu'un? - "..elqu'un ...qu'un ..un"
>
> L'écho semblait être la seule présence sur
> le groupe désert.
>
> Un peu de détente.
>
> Ce programme pourrait s'intituler:
> "Que J'Aime A Faire Apprendre Ce Nombre Utile Aux Sages..."
>
> Placer un label (Label1) sur une form, puis:
>
> Private Sub Form_Activate()
> Dim i As Long
> Dim p As Double
> Dim s As Integer
>
> s = 1: While i < 1000000: p = p + (s * 1 / (2 * i + 1)): i = i + 1:
s
> = -s: Label1.Caption = 4 * p: DoEvents: Wend
> End Sub
>
> Bon week-end!
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
<mailto:
>
>




Bonjour

1, 11, 21, 1211, 111221, 312211, 13112221, 1113213211, 31131211131221,
13211311123113112211, ... on peux continuer longtemps comme ca.


Avatar
Jean-marc
Hello,

l'astuce est connue de tous ceux qui ont lu "les fourmis".
Plus amusant: démontrer que le chiffre 4 (ni aucun des chiffres suivants)
n'apparait jamais dans la série :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;


"Patrice Henrio" a écrit dans le message de
news:
je vois que l'astuce est connue ... au moins de certains


"WhiteWater" <"Pure"AntiSpam"Coincidence"@club-internet.fr> a écrit dans
le message de news: %
Patrice Henrio a écrit :
suite de wallis ? non ?
En tout cas il semble qu'il y ait eu un problème sur
microsoft.public.fr.vb car plus rien ne passait depuis hier.
Bon week-end.
en cherchant le prochain terme de la suite suivante
1, 11, 21, 1211, 111221, 312211, 13112221, ?
"Jean-marc"
<mailto: a écrit dans le message
de news: 451eb164$0$5543$
<mailto:451eb164$0$5543$...
> Hello! - "...llo lo ...o"
> Il ya quelqu'un? - "..elqu'un ...qu'un ..un"
>
> L'écho semblait être la seule présence sur
> le groupe désert.
>
> Un peu de détente.
>
> Ce programme pourrait s'intituler:
> "Que J'Aime A Faire Apprendre Ce Nombre Utile Aux Sages..."
>
> Placer un label (Label1) sur une form, puis:
>
> Private Sub Form_Activate()
> Dim i As Long
> Dim p As Double
> Dim s As Integer
>
> s = 1: While i < 1000000: p = p + (s * 1 / (2 * i + 1)): i = i +
1: s
> = -s: Label1.Caption = 4 * p: DoEvents: Wend
> End Sub
>
> Bon week-end!
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
<mailto:
>
>




Bonjour

1, 11, 21, 1211, 111221, 312211, 13112221, 1113213211, 31131211131221,
13211311123113112211, ... on peux continuer longtemps comme ca.






Avatar
scraper
Bonjour Patrice Henrio, dans le message
news:
tu disais :

je vois que l'astuce est connue ... au moins de certains



tout est question de phonétique :-)


--
Adresse invalide
Mon site : http://scraper.chez-alice.fr
Me contacter : http://pcland.easyforum.fr/index.htm

scraper
Avatar
Jean-marc
Hello,

en fait, c'est simplement le calcul de PI en utilisant le fait que
arctan(1)=PI/4 et que

1 1 1 1 (-1)^n
arctan(1)= - - - + - - - + ... + -------
1 3 5 7 2n+1

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;




"Patrice Henrio" a écrit dans le message >de
news:




suite de wallis ? non ?



En tout cas il semble qu'il y ait eu un problème sur
>microsoft.public.fr.vb car plus rien ne passait depuis hier.
Bon week-end.



en cherchant le prochain terme de la suite suivante
1, 11, 21, 1211, 111221, 312211, 13112221, ?



"Jean-marc" a écrit dans le message
de news: 451eb164$0$5543$
Hello! - "...llo lo ...o"
Il ya quelqu'un? - "..elqu'un ...qu'un ..un"

L'écho semblait être la seule présence sur
le groupe désert.

Un peu de détente.

Ce programme pourrait s'intituler:
"Que J'Aime A Faire Apprendre Ce Nombre Utile Aux Sages..."

Placer un label (Label1) sur une form, puis:

Private Sub Form_Activate()
Dim i As Long
Dim p As Double
Dim s As Integer

s = 1: While i < 1000000: p = p + (s * 1 / (2 * i + 1)): i = i + 1: s
= -s: Label1.Caption = 4 * p: DoEvents: Wend
End Sub

Bon week-end!

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;




Avatar
Fred
dans : news:451f77e7$0$5520$,
Jean-marc écrivait :

Hello,

l'astuce est connue de tous ceux qui ont lu "les fourmis".
Plus amusant: démontrer que le chiffre 4 (ni aucun des chiffres
suivants) n'apparait jamais dans la série :-)



Voilà qui est amusant :-)
Pour prouver que le 4 est absent, je dirais qu'il suffit de s'interroger
sur ce que signifierait sa présence ?
Mais je crois que Patrice est beaucoup matheux que moi alors je n'ose
formaliser :-)

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Jean-marc
"Fred" a écrit dans le message de news:

dans : news:451f77e7$0$5520$,
Jean-marc écrivait :

Hello,

l'astuce est connue de tous ceux qui ont lu "les fourmis".
Plus amusant: démontrer que le chiffre 4 (ni aucun des chiffres
suivants) n'apparait jamais dans la série :-)



Voilà qui est amusant :-)
Pour prouver que le 4 est absent, je dirais qu'il suffit de s'interroger
sur ce que signifierait sa présence ?
Mais je crois que Patrice est beaucoup matheux que moi alors je n'ose
formaliser :-)



Hello Fred,

C'est en effet un moyen de le démontrer :-)

On peut aussi remarquer que une ligne s'écrit toujours
comme une suite de couples, on a donc toujours qq chose
de la forme ax by cz ...

<Faire défiler pour voir une démonstration>

.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Or, pour 2 couples consécutifs, le x et le y , ou le y et le z doivent
être distincts.

En effet, on ne peut pas avoir par exemple:
aX bX, car alors on doit écrire (a+b)X

Exemple pour "11":
"11 11" est impossible. On doit écrire "21"

On voit alors tout de suite que 3 est la limite, car dans la
plus longue suite, on ne peut avoir que 11 1x, avec x <>1.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Patrice Henrio
Joli et désarmant de simplicité.


Or, pour 2 couples consécutifs, le x et le y , ou le y et le z doivent
être distincts.

En effet, on ne peut pas avoir par exemple:
aX bX, car alors on doit écrire (a+b)X

Exemple pour "11":
"11 11" est impossible. On doit écrire "21"

On voit alors tout de suite que 3 est la limite, car dans la
plus longue suite, on ne peut avoir que 11 1x, avec x <>1.