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?

www.bakugan-pbf.pun.pl www.zaradnych.pun.pl www.wesele.pun.pl www.bananoweleszcze.pun.pl www.soyogi.pun.pl