PDA

View Full Version : programma vettori. visual basic

piquozzo94
09-11-2011, 16:43
salve a tutti mi servirebbe una mano... il mio prof d info ci ha dato qst esercizio da svolgere.. e mi servirebbe una mano... nn ci sta a capė nnt d' info.... help me...

Caricare un vettore numerico e trovare i massimi relativi... qst č la traccia... spero nel vostro aiuto.. thanks anticipatamente
!fazz
09-11-2011, 16:46
salve a tutti mi servirebbe una mano... il mio prof d info ci ha dato qst esercizio da svolgere.. e mi servirebbe una mano... nn ci sta a capė nnt d' info.... help me...

Caricare un vettore numerico e trovare i massimi relativi... qst č la traccia... spero nel vostro aiuto.. thanks anticipatamente

inizia a farlo poi se ti blocchi ti daremo una mano

ma non ti facciamo noi i compiti :)
piquozzo94
10-11-2011, 09:05
Public Class massimi relativi

Private Sub cmd_go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_go.Click
Dim array(5), max As Integer
Dim s As String = ""
array = {2, 4, 1, 9, 8, 3}
max = array(0)
s &= max & ", "
For i As Integer = 1 To 5
If array(i) > max Then
max = array(i)
s &= max & ", "
End If
Next
MessageBox.Show("I massimi relativi sono: " & s)
End Sub
End Class
!fazz
10-11-2011, 09:48
cosė comunichi solo il massimo assoluto
piquozzo94
10-11-2011, 18:07
allora cosa dovrei...modificare per far si che il programma risponda alla traccia richiesta
piquozzo94
10-11-2011, 18:14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim array(5), max As Integer
array = {2, 4, 1, 9, 8, 3}
max = array(0)
For i As Integer = 1 To 5
If array(i) > max Then
max = array(i)
End If
Next
MessageBox.Show("Il numero pių grande č: " & max)






potrebbe andare bene ?