Une demande toute simple

[Putois Blagueur]

Bonjour les codeurs fous.
Quelqu'un peut il me faire parvenir en basic un programme qui recherche les nombres premiers, je le connaissais il y a longtemps, mais mes maths et performances de programmations (lol) se sont atténuées en 25 ans!!!
Du genre simple : 10 for i=1 to1000  ,    20 print I  ,  30 next I   (c'est un exemple)

Merci à vous!

[goux.m]

Bonsoir,

Je viens de trouver ça:

Code:

DECLARE FUNCTION NombreFacteur! (N!)
DECLARE FUNCTION Premier! (N!)
DECLARE FUNCTION NombrePremierPlusPetit! (N!)

PRINT "Liste des nombres premier avant 1000: "
FOR I = 2 TO 1000
    IF Premier(I) THEN PRINT STR$(I) + " ";
NEXT
PRINT
PRINT "Nombre de nombre premier avant 1000: ";
PRINT NombrePremierPlusPetit(1000)

FUNCTION NombreFacteur (N)
    Count = 2
    Racine = SQR(N)
    FOR I = 2 TO Racine
        IF N MOD I = 0 THEN Count = Count + 1
    NEXT
    NombreFacteur = Count
END FUNCTION

FUNCTION NombrePremierPlusPetit (N)
    Count = 0
    FOR I = 2 TO N - 1
        IF Premier(I) THEN Count = Count + 1
    NEXT
    NombrePremierPlusPetit = Count
END FUNCTION

FUNCTION Premier (N)
    Premier = (NombreFacteur(N) = 2)
END FUNCTION

[Putois Blagueur]

Merci, c'est sur qu'il faut l'adapter à mon basic, car je n'ai pas les instructions "declare function"
On va essayer ça

[goux.m]

"declare function" n'est pas nécessaire dans tous les BASIC... C'est quoi ton langage BASIC ?

[drfloyd]

Goux.m nous donne un exemple en basic pourri moderne  

Putois, on s'en fou des fonctions, il suffit de ne pas en utiliser. C'est assez simple à mettre en place,

[Putois Blagueur]

"declare function" n'est pas nécessaire dans tous les BASIC... C'est quoi ton langage BASIC ?

euh......tu vois le TO7, ou le spectrum, un vieux basic de micro 8 bits

[goux.m]

Goux.m nous donne un exemple en basic pourri moderne  

Putois, on s'en fou des fonctions, il suffit de ne pas en utiliser. C'est assez simple à mettre en place,

 Bah j'ai trouvé ça en 5 mn sur internet ...

[goux.m]

Voilà ce que j'ai trouvé, tu devrais pouvoir facilement l'adapter:



C'est un extrait du livre Mathématiques sur ZX81 et ZX Spectrum que tu peux télécharger ici: 

https://datassette.nyc3.cdn.digitaloceanspaces.com/livros/mathematiques_sur_zx81_et_zxspectrum.pdf

[drfloyd]

On ne peut plus simple.

J'adore les fameux "LET" à l'époque...

[wulf]

Le Basic "pourri" des ZX a formé des milliers de coders, et initié encore plus de gens à l'informatique 

Sinclair Rules !  

[SMR]

Voilà ce que j'ai trouvé, tu devrais pouvoir facilement l'adapter:



C'est un extrait du livre Mathématiques sur ZX81 et ZX Spectrum que tu peux télécharger ici: 

https://datassette.nyc3.cdn.digitaloceanspaces.com/livros/mathematiques_sur_zx81_et_zxspectrum.pdf

Ha voilà ça je connais. Des Input, des Print, des Let et des Goto. La base du basic.

[Putois Blagueur]

Drôlement cool!!!! merci pour le programme! Je vais taper ça illico!