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, 10: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 : 1614
Age : 47
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, 22: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 : 208
Age : 58
Localisation : 27
Date d'inscription : 30/08/2013

http://dompub30.free.nf/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par Putois Blagueur Sam 15 Mai 2021, 09: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 : 1614
Age : 47
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, 12: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 : 208
Age : 58
Localisation : 27
Date d'inscription : 30/08/2013

http://dompub30.free.nf/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par drfloyd Sam 15 Mai 2021, 13: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





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 181467
Age : 54
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, 13: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 : 1614
Age : 47
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, 13: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 : 208
Age : 58
Localisation : 27
Date d'inscription : 30/08/2013

http://dompub30.free.nf/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par goux.m Dim 16 Mai 2021, 21: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 : 208
Age : 58
Localisation : 27
Date d'inscription : 30/08/2013

http://dompub30.free.nf/

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par drfloyd Lun 17 Mai 2021, 08:16

On ne peut plus simple.

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

_______________________________________________________
Une demande toute simple Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 181467
Age : 54
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, 15: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
avatar
wulf
Patient incurable

Masculin Nombre de messages : 1543
Age : 52
Localisation : --
Date d'inscription : 28/08/2008

Revenir en haut Aller en bas

Une demande toute simple Empty Re: Une demande toute simple

Message par SMR Lun 17 Mai 2021, 15: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
Docteur *
Docteur *

Masculin Nombre de messages : 10472
Age : 44
Localisation : Planète Zèbes
Date d'inscription : 28/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, 20:13

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

Masculin Nombre de messages : 1614
Age : 47
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