Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Aiutatemi!!!
Forum - Visual Basic 6 - Aiutatemi!!!

Avatar
kevin Mitnick (Normal User)
Newbie


Messaggi: 4
Iscritto: 05/12/2008

Segnala al moderatore
Postato alle 20:18
Venerdė, 05/12/2008
Dopo aver caricato un vettore (di dimensione n) di numeri casuali devo vedere quali tra questi sono primi.Come fare???Help...grz in anticipo

PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 20:42
Venerdė, 05/12/2008
Codice sorgente - presumibilmente VB.NET
  1. function getprimoval(val as Integer) as boolean
  2. dim i as integer
  3. for i= 2 to val-1
  4.  if (val mod i)=0 then
  5.    getprimoval = false
  6.    exit function
  7.  end if
  8. next i
  9. getprimoval = true
  10. end function


non l'ho testata, ma credo che dovrebbe andare.
Adesso devi passare a questa funzione ogni elemento del tuo vettore:

Codice sorgente - presumibilmente VB.NET
  1. dim vett(10) as Integer
  2. '... assegnazione dei num casuali
  3.  
  4. for i = 0 to 10
  5. if (getprimoval(i)) then
  6.  'č un numero intero
  7. else
  8.  'non č un numero intero
  9. end if
  10. next i

Ultima modifica effettuata da Overflow il 05/12/2008 alle 20:54
PM Quote