View Full Version : [Visual Basic 6] Programmazione - Vettori, numeri primi , numeri pari , ordinamento !
Ragazzi ho un problema da risolvere, sto creando un programma che deve generare n vettori (da input) i quali devono essere solo numeri non primi, una volta fatto ciò, stamparli e estrarre solo quelli pari ed ordinarli in maniera crescente !:mbe: :muro: :confused: :rolleyes:
mi date una mano cortesemente ?:confused:
Riporto qui sotto il codice che sono riuscito a compilare:
Private Sub Command1_Click()
Cls
'dichiarazione variabili
Dim x() As Integer
Dim i As Integer
Dim n As Integer
Dim r As Integer
Dim iflag As Integer
Dim j As Integer
n = InputBox("inserire numero elementi", "numero elementi")
Do While n <= 0
MsgBox "n deve essere >0"
n = InputBox("inserire numero elementi", "numero elementi")
Loop
ReDim x(n)
'genera vettore casuale
For i = 1 To n
Randomize
x(i) = Int(Rnd * n) + 1
Next i
'numero primo
For i = 1 To n
iflag = 0
For j = 2 To x(i) - 1
r = x(i) Mod j
If r = 0 Then iflag = 1
Next j
If iflag = 1 Then
Print i, x(i), "non primo"
Else
Print i, x(i)
End If
Next i
End Sub
In pratica il problema che riscontro è che non riesco a far stampare n vettori da input SOLO NON PRIMI, ma mi stampa anche i PRIMI .....
il problema ripeto è dire al programma, tramite comando DO WHILE di continuare a cercare (casualmente...solo numeri NON PRIMI) e stamparmeli finchè non si raggiunge n vettori (scelti da input in precedenza)....senza stamparmi anche i numeri primi !...:rolleyes:
Non ho ancora completato il tutto dato che ho bisogno di risolvere prima questo "STEP":rolleyes:
Il problema sostanzialmente e scrivere la parte di codice al posto del ciclo For i = 1 to n (prima del codice del generatore di numeri casuali) con un ciclo DO UNTIL !
Tesinevb
06-02-2011, 17:53
'genera vettore casuale
Randomize timer
For i = 1 To n
x(i) = Int(Rnd * n) + 1
Next i
For j = 1 To n
r = x(j) Mod j
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j)
End If
Next j
'For j = i+1 To x(i) -1
r = x(j) Mod j
if r=0 then
Print j, x(i), "non primo"
Else
Print j, x(i)
End If
Next j
Next i
scusa se mi specifichi esattamente (copiando ed incollando il codice in maniera corretta secondo te) te ne sarei grato!
Perchè ho provato a modificare secondo quanto mi hai scritto ma non funge assolutamente!:muro:
Tesinevb
06-02-2011, 18:07
mi hai quotato mentre modificavo:
'genera vettore casuale
Randomize timer
For i = 1 To n
x(i) = Int(Rnd * n) + 1
Next i
For j = 1 To n'n è un solo vettore!!!!!!!!!!!!!!!!!!!!!!
r = x(j) Mod j
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j)
End If
Next j
tu crei un solo vettoresevuoi creare + vettori devi usare una matrice bidimensionale x(y,z)...ecc ecc
cmqècon unsolo ciclo che puoi stampare il vettore x(x) appunto un solo vettore di n elementi
mi hai quotato mentre modificavo:
'genera vettore casuale
Randomize timer
For i = 1 To n
x(i) = Int(Rnd * n) + 1
Next i
For j = 1 To n'n è un solo vettore!!!!!!!!!!!!!!!!!!!!!!
r = x(j) Mod j
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j)
End If
Next j
tu crei un solo vettoresevuoi creare + vettori devi usare una matrice bidimensionale x(y,z)...ecc ecc
abbi pazienza forse son io che sono un po troppo principiante in materia mi potresti ricopiare ed incollare il codice completo esatto ?(prendi pure dal mio primo post)
grazie mille!!
Tesinevb
06-02-2011, 18:16
non ho proprio voglia di farlo ti posso ripetere questo:
tu crei un solo vettore se vuoi creare + vettori devi usare una matrice bidimensionale x(y,z)...ecc ecc
cmq è con un solo ciclo che devi stampare il tuo unico vettore x(x) precisamente, appunto, un solo vettore x di n elementi okay?
non ho proprio voglia di farlo ti posso ripetere questo:
tu crei un solo vettore se vuoi creare + vettori devi usare una matrice bidimensionale x(y,z)...ecc ecc
cmq è con un solo ciclo che devi stampare il tuo unico vettore x(x) precisamente, appunto, un solo vettore x di n elementi okay?
scusami ho sbagliato ad impsotare la domanda, a me serve creare UN vettore di n elementi generati casualmente SOLO NON PRIMI !:muro:
Tesinevb
06-02-2011, 18:25
scusami ho sbagliato ad impsotare la domanda, a me serve creare UN vettore di n elementi generati casualmente SOLO NON PRIMI !:muro:
'genera vettore casuale
Randomize timer
For i = 1 To n ' n= numero massimo di elementi
x(i) = Int(Rnd * n) + 1' creazione di un vettore con k elementi esimo di n
Next i
For j = 1 To n' n = il numero massimo di elementi
'x(j) esempio n = 6 x(0), x(1), x(2), x(3)... x(6)
'x(j) unico vettore creato da rnd interi di max 6 elementi
r = x(j) Mod j
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j)
End If
Next j
ecco il code da inserire
ciao
'genera vettore casuale
Randomize timer
For i = 1 To n ' n= numero massimo di elementi
x(i) = Int(Rnd * n) + 1' creazione di un vettore con k elementi esimo di n
Next i
For j = 1 To n' n = il numero massimo di elementi
'x(j) esempio n = 6 x(0), x(1), x(2), x(3)... x(6)
'x(j) unico vettore creato da rnd interi di max 6 elementi
r = x(j) Mod j
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j)
End If
Next j
ecco il code da inserire
ciao
scusa ma non è cambiato nulla dal tuo primo quote, e comunque non funge, io penso che il problema sia in quel ciclo for i = 1 to n prima del generatore casuale che andrebbe sostituito con un ciclo DO UNTIL finchè la condizione di numero NON primo sia verficata ma il problema appunto è che non so come impostare il ciclo do until in questo caso !:muro:
Tesinevb
06-02-2011, 19:12
Ragazzi ho un problema da risolvere, sto creando un programma che deve generare n vettori (da input) i quali devono essere solo numeri non primi, una volta fatto ciò, stamparli e estrarre solo quelli pari ed ordinarli in maniera crescente !:mbe: :muro: :confused: :rolleyes:
mi date una mano cortesemente ?:confused:
Riporto qui sotto il codice che sono riuscito a compilare:
Private Sub Command1_Click()
Cls
'dichiarazione variabili
Dim x() As Integer
Dim i As Integer
Dim n As Integer
Dim r As Integer
Dim iflag As Integer
Dim j As Integer
n = InputBox("inserire numero elementi", "numero elementi")
Do While n <= 0
MsgBox "n deve essere >0"
n = InputBox("inserire numero elementi", "numero elementi")
Loop
'fino a quì inserisci di quanto vuoi che sia grande il vettore
'esempio digiti 17, 17 saranno 17 elementi
ReDim x(n)
'genera vettore casuale
For i = 1 To n
Randomize
x(i) = Int(Rnd * n) + 1
Next i
'quì hai x(1) fino a x(17)con dentro numeri random
'da quì a
'numero primo
For i = 1 To n
iflag = 0
For j = 2 To x(i) - 1
r = x(i) Mod j
If r = 0 Then iflag = 1
Next j
If iflag = 1 Then
Print i, x(i), "non primo"
Else
Print i, x(i)
End If
Next i
'a quì fai un errore logico il codice corretto è questo
'----------------------
For j = 1 To n' n = il numero massimo di elementi 17
'x(j) esempio n = 6 x(0), x(1), x(2), x(3)... x(17)
'x(j) unico vettore creato da interi di max 17 elementi
r = x(j) Mod j ' controlla se è primo non sò se nemmeno è giusto
if r=0 then
Print j, x(j), "non primo"
Else
Print j, x(j) 'stampa i numeri primi
End If
Next j
'----------------------
End Sub
questo sopra deve cmq funzionare e stampare regolarmente i numeri... controlla
Riaggiorno questo 3d dato che sono riuscito a risolvere dopo vari grattacapi... il mio "problema" , se può essere utile a qualcuno..ben venga..!
Cadevo nel seguente errore: Non dichiaravo una variabile come "contatore" e quindi il programma mi riportava tutti i numeri senza far selezioni di ciò che mi interessava a me..
Riporto solo la parte "corretta" ;)
Quindi come dichiarazione variabili c'è da aggiungere
Dim conta as integer
conta=0
Bisognava cambiare il ciclo for con un ciclo do while
quindi:
Do while < conta
ISTRUZIONE
conta=conta+1
Print conta
a(conta)= vettore istruzione
Loop
Tutto qui!:rolleyes: ;)
Tesinevb
15-02-2011, 18:41
Riaggiorno questo 3d dato che sono riuscito a risolvere dopo vari grattacapi... il mio "problema" , se può essere utile a qualcuno..ben venga..!
Cadevo nel seguente errore: Non dichiaravo una variabile come "contatore" e quindi il programma mi riportava tutti i numeri senza far selezioni di ciò che mi interessava a me..
Riporto solo la parte "corretta" ;)
Quindi come dichiarazione variabili c'è da aggiungere
Dim conta as integer
conta=0
Bisognava cambiare il ciclo for con un ciclo do while
quindi:
Do while < conta
ISTRUZIONE
conta=conta+1
Print conta
a(conta)= vettore istruzione
Loop
Tutto qui!:rolleyes: ;)
anche questo che hai scritto non funzionerà avrai un errore...
l'istruzione corretta è:
Do while conta < 10 '... allora funziona
-------------
cmq per la cronaca funzionava anche prima se ti impegni capirai di +
anche questo che hai scritto non funzionerà avrai un errore...
l'istruzione corretta è:
Do while conta < 10 '... allora funziona
-------------
cmq per la cronaca funzionava anche prima se ti impegni capirai di +
Pardon ho fatto un errore di battitura Do While conta < n
è dato da input precedentemente!
Comunque per la cronaca in ogni caso il codice era corretto e non c'era nulla da modificare, mancava questa istruzione....(come "contatore") e come volevasi dimostrare non avevo tutti i torti nel dire ciò che dicevo...grazie comunque per l'interessamento!
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.