GAMOPAT
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Une demande toute simple

5 participants

Aller en bas

Une demande toute simple Empty Une demande toute simple

Message par Putois Blagueur Jeu 13 Mai 2021 - 8:30

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!
Putois Blagueur
Putois Blagueur
Patient incurable

Masculin Nombre de messages : 1140
Age : 45
Localisation : Entre Vénus et Mars
Date d'inscription : 10/02/2016

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par goux.m Ven 14 Mai 2021 - 20:44

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
goux.m
goux.m
Patient contaminé

Masculin Nombre de messages : 189
Age : 56
Localisation : 27
Date d'inscription : 30/08/2013

http://michel.goux.pagesperso-orange.fr/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par Putois Blagueur Sam 15 Mai 2021 - 7:04

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

Masculin Nombre de messages : 1140
Age : 45
Localisation : Entre Vénus et Mars
Date d'inscription : 10/02/2016

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par goux.m Sam 15 Mai 2021 - 10:34

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

Masculin Nombre de messages : 189
Age : 56
Localisation : 27
Date d'inscription : 30/08/2013

http://michel.goux.pagesperso-orange.fr/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par drfloyd Sam 15 Mai 2021 - 11:18

Goux.m nous donne un exemple en basic pourri moderne  Mr. Green

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

_______________________________________________________
Une demande toute simple Giphy10
Ma brocante de poilu :
https://www.gamopat-forum.com/t113082-le-retour-de-la-brocante-du-doc
Mon profil Gamopat Advisor :
https://www.gamopat-forum.com/t94659-dr-floyd-advisor





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 168205
Age : 52
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par Putois Blagueur Sam 15 Mai 2021 - 11:30

@goux.m a écrit:"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 Wink
Putois Blagueur
Putois Blagueur
Patient incurable

Masculin Nombre de messages : 1140
Age : 45
Localisation : Entre Vénus et Mars
Date d'inscription : 10/02/2016

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par goux.m Sam 15 Mai 2021 - 11:47

@drfloyd a écrit:Goux.m nous donne un exemple en basic pourri moderne  Mr. Green

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

Mr. Green Bah j'ai trouvé ça en 5 mn sur internet ...
goux.m
goux.m
Patient contaminé

Masculin Nombre de messages : 189
Age : 56
Localisation : 27
Date d'inscription : 30/08/2013

http://michel.goux.pagesperso-orange.fr/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par goux.m Dim 16 Mai 2021 - 19:57

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

Une demande toute simple Premie10

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
goux.m
goux.m
Patient contaminé

Masculin Nombre de messages : 189
Age : 56
Localisation : 27
Date d'inscription : 30/08/2013

http://michel.goux.pagesperso-orange.fr/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par drfloyd Lun 17 Mai 2021 - 6:16

On ne peut plus simple.

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

_______________________________________________________
Une demande toute simple Giphy10
Ma brocante de poilu :
https://www.gamopat-forum.com/t113082-le-retour-de-la-brocante-du-doc
Mon profil Gamopat Advisor :
https://www.gamopat-forum.com/t94659-dr-floyd-advisor





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 168205
Age : 52
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par wulf Lun 17 Mai 2021 - 13:07

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

Sinclair Rules !  Une demande toute simple 1f4aa
wulf
wulf
Patient incurable

Masculin Nombre de messages : 1313
Age : 50
Localisation : Creuse, Massif Central
Date d'inscription : 28/08/2008

http://wwww.vtt-creuse.tumblr.com

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par SMR Lun 17 Mai 2021 - 13:31

@goux.m a écrit:Voilà ce que j'ai trouvé, tu devrais pouvoir facilement l'adapter:

Une demande toute simple Premie10

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. Mr. Green La base du basic. Razz
SMR
SMR
Interne
Interne

Masculin Nombre de messages : 8236
Age : 42
Localisation : Planète Zèbes
Date d'inscription : 27/03/2016

http://www.lehitdesclubs.fr

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par Putois Blagueur Mer 26 Mai 2021 - 18:13

Drôlement cool!!!! merci pour le programme! Je vais taper ça illico!
Putois Blagueur
Putois Blagueur
Patient incurable

Masculin Nombre de messages : 1140
Age : 45
Localisation : Entre Vénus et Mars
Date d'inscription : 10/02/2016

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum