j00el - 2010-06-11 15:45:10 |
co trzeba oddać żeby zaliczyć? wystarczy program z permutacjami? mamy tylko oddać czy będziemy się tłumaczyć co napisaliśmy?
|
anubiss - 2010-06-16 21:53:28 |
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As List(Of String) = Permutacje("1234") 'For i As Integer = 0 To a.Count = 1 'TextBox1.Text += a(i) + vbNewLine 'Next For Each Permutacje As String In a TextBox1.Text() += Permutacje() + vbNewLine; Next
End Sub
Function Permutacje(ByVal DanaPermutacja As String) As List(Of String)
Dim Wynik As New List(Of String) Dim Aux As New List(Of String)
If DanaPermutacja.Length = 1 Then Wynik.Add(DanaPermutacja) Else Aux = Permutacje(DanaPermutacja.Remove(0, 1)) For Each Element As String In Aux For i As Integer = 0 To Element.Length Wynik.Add(Element.Insert(i, DanaPermutacja(0))) Next Next End If Return Wynik End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub End Class
|
ciemak666 - 2010-06-16 22:06:07 |
trzeba oddać 2 programy : permutacje i problem ośmiu hetmanów. Z tego co mówił będzie trzeba tłumaczyć programy
|
Glodny - 2010-06-16 23:07:53 |
Jak Przemek oddawał program to się go pytał o takie rzeczy że spokojnie mógł mu za to dać 5 a dostał tylko 3 ;/
widze to w czarnych barwach, chyba ze można mu oddac jakis inne programy "prostsze"
EDIT:
Co mamy dokładnie się nauczyć na Egzamin ze Sztucznej? Jakie wykłady?
|