[Visual Basic 6] Programmazione - Vettori, numeri primi , numeri pari , ordinamento !

[hw85]

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 !

mi date una mano cortesemente ?

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 !...

Non ho ancora completato il tutto dato che ho bisogno di risolvere prima questo "STEP"

[hw85]

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]

'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

[hw85]

Originariamente inviato da Tesinevb

'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!

[Tesinevb]

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

[hw85]

Originariamente inviato da Tesinevb

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]

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?

[hw85]

Originariamente inviato da Tesinevb

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 !

[Tesinevb]

Originariamente inviato da hw85

scusami ho sbagliato ad impsotare la domanda, a me serve creare UN vettore di n elementi generati casualmente SOLO NON PRIMI !

'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

[hw85]

Originariamente inviato da Tesinevb

'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 !

[Tesinevb]

Originariamente inviato da hw85

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 !

mi date una mano cortesemente ?

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

[hw85]

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!

[Tesinevb]

Originariamente inviato da hw85

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!

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 +

[hw85]

Originariamente inviato da Tesinevb

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!