Zadania z funkcjami

slowik84 · 2008-12-03 21:20:53

Ktos wie w ogole jak ruszyc te programy z funkcjami, bo mi jakos nic do glowy nie przychodzi, tzn. wiem jak mogloby to dzialac ale nie wiem jak to napisac zeby dzialalo.

pozdro all

anubiss · 2008-12-04 18:02:40

Ok.
A więc funkcja do zadania 1 wykonująca potęgowanie wygląda następująco:

Kod:

Function poteguj(ByVal podstawa As Integer, ByVal wykladnik As Integer) As Integer
        Dim a, b, c As Integer
        a = podstawa
        b = podstawa
        c = podstawa
        For i As Integer = 1 To wykladnik - 1
            c = a * b
            a = c
        Next i
        Return c
    End Function

Pozdrawiam!

A więc funkcja licząca silnię danej liczby to:

Kod:

Function silnia(ByVal liczba As Integer) As Integer
        Dim pierwsza, druga, wynik As Integer
        pierwsza = 1
        druga = 2
        For i As Integer = 1 To liczba - 1
            wynik = pierwsza * druga
            druga = druga + 1
            pierwsza = wynik
        Next i
        Return wynik
    End Function

Jeszcze raz pozdrawiam!

Ostatnio edytowany przez anubiss (2008-12-04 18:39:34)

wieslawski · 2008-12-04 21:44:43

Nie potrzeba tylu zmiennych. Wystarczy:

dim wynik as integer =1
for i as integer=1 to wykladnik
wynik*=podstawa (czyli wynik=wynik*podstawa)
next i
return wynik

to dziala tez dla wykladnika =0

dla silni jest podobnie:

dim wynik as integer =1
for i as integer =2 to n
wynik*=i
next i
return wynik

takze dziala dla n rownego zero (oczywiscie zakladamy, ze wykladnik w pierwszym przypadku i n w przypadku silni jest rowne co najmniej 0)

Ostatnio edytowany przez wieslawski (2008-12-04 21:47:50)

#1 2008-12-03 21:20:53