| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
hanziri
Administrator
Dołączył: 05 Kwi 2006
Posty: 126
Przeczytał: 0 tematów
Skąd: Kalisz
|
 Wysłany: Sob 22:44, 15 Lip 2006 Temat postu: zadania z koła zaliczeniowego |
|
|
zad_1: program ma wypełnić tablicę liczbami losowymi (przedział 5-25) za pomocą procedury. Wypisać wartości z tabeli za pomocą procedury. Obliczyć największą wartość i w pod jakim indeksem za pomocą funkcji.
| Kod: |
'------
Module Module1
Sub wypelnij(ByRef tablica_tym() As Integer)
Dim li1, li As Int16
For li1 = 0 To 19
tablica_tym(li1) = Int(20 * Rnd() + 5)
Next
End Sub
Sub wypisz(ByVal tablica_wypisz() As Integer)
Dim li As Int16
Console.Write("tablica: ")
For li = 0 To 19
Console.Write(tablica_wypisz(li) & " ")
Next
End Sub
Function sprawdz(ByVal tablica_max() As Integer, ByRef indx As Integer) As Integer
Dim li, wart As Integer
For li = 0 To 19
If wart < tablica_max(li) Then
wart = tablica_max(li)
indx = li
End If
Next
Return wart
End Function
Sub Main()
Dim tablica(19) As Integer
Dim li, index As Int16
wypelnij(tablica)
wypisz(tablica)
Console.WriteLine()
Console.Write("wart max " & sprawdz(tablica, index) & " Pod indexem: " & index)
Console.ReadLine()
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: Sob 22:48, 15 Lip 2006 Temat postu: zadania z koła zaliczeniowego |
|
|
zad_2: Program ma za pomocą funkcji wyliczac Y w zależności jakie jest X (dwa przypadki i dwa do tego wzory podane)
| Kod: |
'----------------------
Module Module1
Function licz(ByVal dana_x As Integer) As Double
Dim y As Double
If dana_x < 20 Then
y = 3.5 * dana_x ^ 3 - 2.7 * dana_x ^ 2 + 7
Else
y = 0.5 * dana_x ^ 2 + 2 * dana_x - 5
End If
Return Y
End Function
Sub Main()
Dim x As Integer
Dim odp As String
Do
Console.Write("podaj Y: ")
x = Val(Console.ReadLine())
Console.WriteLine()
Console.WriteLine("wynik: " & licz(x))
Console.WriteLine()
Console.Write("aby przerwac wpisz: nie ")
odp = Console.ReadLine()
Loop Until odp = "nie"
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: Sob 22:51, 15 Lip 2006 Temat postu: zadania z koła zaliczeniowego |
|
|
zad_3: Program z 3 procedurami. Dwie tablice wypełnić liczbami, z tym że odwrotnie.
| Kod: |
'-------------------
Module Module1
Sub wypelnij(ByRef tablica_tym() As Integer)
Dim li1, li As Int16
For li1 = 0 To 5
tablica_tym(li1) = Int(20 * Rnd() + 5)
Next
End Sub
Sub wypisz(ByVal tablica_wypisz() As Integer)
Dim li As Int16
Console.Write("tablica: ")
For li = 0 To 5
Console.Write(tablica_wypisz(li) & " ")
Next
End Sub
Sub odwracanie(ByRef tablica_tym() As Integer, ByVal tablica_tym2() As Integer)
Dim li1, li2 As Integer
li2 = 5
For li1 = 0 To 5
tablica_tym(li2) = tablica_tym2(li1)
li2 = li2 - 1
Next
End Sub
Sub Main()
Dim tablica(6) As Integer
Dim tablica_inv(6) As Integer
Dim li As Int16
wypelnij(tablica)
odwracanie(tablica_inv, tablica)
Console.WriteLine("normalna tablica:")
wypisz(tablica)
Console.WriteLine()
Console.WriteLine("odwrotna tablica:")
wypisz(tablica_inv)
Console.ReadLine()
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: Sob 22:56, 15 Lip 2006 Temat postu: koło |
|
|
|
nie polecam brać tego identycznie na koło, lepiej zrozumieć na tych przykładach zasadę jak to działa. Myślę że ktoś jeszcze ('asy' z grupy 1) tu wrzuci rozwiązania, będzie łatwiej.
|
|
| Powrót do góry |
|
|
