| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
baldhorse
Dołączył: 13 Cze 2006
Posty: 59
Przeczytał: 0 tematów
Skąd: Poznań
|
 Wysłany: Nie 13:43, 02 Lip 2006 Temat postu: Procedury, referencje [console] |
|
|
| Kod: |
Module Module1
Sub Main()
Dim tab() As Integer
TworzTablice(tab)
WypelnijTablice(tab)
WyswietlTablice(tab)
Console.WriteLine()
SumujTablice(tab)
SredniaZTablicy(tab)
Console.ReadLine()
End Sub
Sub TworzTablice(ByRef tabl1 As Array)
Dim Tablica(9) As Integer
tabl1 = Tablica
End Sub
Sub WypelnijTablice(ByRef tabl1 As Array)
Dim i As Integer
For i = 0 To tabl1.GetUpperBound(0)
Randomize()
tabl1(i) = Rnd() * 49 + 1
Next
End Sub
Sub WyswietlTablice(ByRef tabl1 As Array)
Dim i As Integer
For i = 0 To tabl1.GetUpperBound(0)
Console.Write(tabl1(i) & ";")
Next
End Sub
Sub SumujTablice(ByRef tabl1 As Array)
Dim i As Integer
Dim w As Integer = 0
For i = 0 To tabl1.GetUpperBound(0)
w = w + tabl1(i)
Next
Console.WriteLine("Suma elementów tablicy to: " & w)
End Sub
Sub SredniaZTablicy(ByRef tabl1 As Array)
Dim i As Integer
Dim w As Integer = 0
For i = 0 To tabl1.GetUpperBound(0)
w = w + tabl1(i)
Next
Console.WriteLine("Średnia z elementów tablicy to: " & (w / (tabl1.GetUpperBound(0) + 1)))
End Sub
End Module
|
|
|
| Powrót do góry |
|
 |
|
|
 |
hanziri
Administrator
Dołączył: 05 Kwi 2006
Posty: 126
Przeczytał: 0 tematów
Skąd: Kalisz
|
| Wysłany: Nie 13:46, 02 Lip 2006 Temat postu: |
|
|
Program j/w ma z zastosowaniem prcedur wypelnić tabelę 10 elementową losowymi liczbami. Policzyć średnią i sumę. No i wyświetlić 
a to druga metoda..
| Kod: |
'---------------------------------------------
Module Module1
Sub wypeln(ByRef tabela() As Integer)
Dim x As Integer
For x = 0 To 9
tabela(x) = Int(50 * Rnd() + 1)
Next
End Sub
Sub suma(ByRef tabela() As Integer)
Dim wynik As Integer
Dim x As Integer
For x = 0 To 9
wynik += tabela(x)
Next
tabela(10) = wynik
End Sub
Sub srednia(ByRef tabela() As Integer)
Dim wynik As Integer
Dim x As Byte
For x = 0 To 9
wynik += tabela(x)
Next
tabela(11) = wynik / 10
End Sub
Sub Main()
Console.WriteLine("wypelniam tablice")
Dim taba(11) As Integer
Dim x As Byte
wypeln(taba)
For x = 0 To 9
Console.Write(taba(x) & " ")
Next
suma(taba)
srednia(taba)
Console.WriteLine("suma: " & taba(10))
Console.WriteLine("srednia: " & taba(11))
Console.ReadLine()
End Sub
End Module
'-----------------------------------------
|
|
|
| Powrót do góry |
|
|
PsiaQ
Gość
|
| Wysłany: Śro 15:45, 05 Lip 2006 Temat postu: |
|
|
|
Ho ho ho, wielkie dzięki panowie. Tego było mi trzeba ;>
|
|
| Powrót do góry |
|
|
