Forum studentów Informatyki Zaocznej na Uniwersytecie Opolskim
Poprawiłem program i schemat. Zapomniałem, że na początku ma być 0
Tutaj http://hostuje.net/file.php?id=707b7c4a … be58af907f znajduje się link do schematów blokowych z konwersatorium.
Schemat:
1. Wypisywanie pierwszych n elementów
2. wypisanie k -tego elementu
3. wypisanie elementu większego i mniejszego od k
Żeby nie przepisywać za każdym razem tego samego, elementy które należy zmienić wyróżniłem kolorami. Dodatkowo napisałem program, który obrazuje działanie algorytmu.
Ostatnio edytowany przez Andrzej (2008-12-17 23:25:30)
Offline
dzieki
widze ze masz jeszcze kolorowe kredki
co do programu to tak rozwiązałem problem
Public Class Form1 Dim a, b, suma, n As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = 1 b = 0 n = TextBox1.Text RichTextBox1.Text = " " If n = 0 Then Label1.Text = 0 RichTextBox1.Text = " " ElseIf n = 1 Then Label1.Text = 0 RichTextBox1.Text = "0," ElseIf n = 2 Then Label1.Text = 1 RichTextBox1.Text = "0,1" Else RichTextBox1.Text = "0,1" For i As Integer = 3 To n suma = a + b Label1.Text = suma RichTextBox1.Text += "," + Label1.Text b = a a = suma Next End If End Sub End Class
brakuje mi jeszcze 3 podpunktu i kilku udogodnień
Offline
Użytkownik
[Musisz być zalogowany, aby przeczytać ukrytą wiadomość]
Offline