Facebook
From Beige Capybara, 6 Years ago, written in Plain Text.
This paste is a reply to Untitled from Ample Hornbill - go back
Embed
Viewing differences between Untitled and Re: Untitled
Module Module1
    Function potega(ByVal x suma(ByVal n As Double, ByVal n ByRef x() As Double) As Double

        Dim res As Double
        If n = Then
            res = 1
x(n)
        Else
            res = x * potega(x, n x(n) + suma(n 1)
1, x)
        End If

        Return res
res

    End Function

    Sub Main()

        Dim x, x(100), n As Double

        Console.WriteLine("podaj liczbe: ")
        x = Console.ReadLine()
        Console.WriteLine("podaj potege")
ilosc elementow: ")
        n = Console.ReadLine
ReadLine()

        For i = 1 To n
            Console.WriteLine("podaj element nr{0}: ", i)
            x(i) = Console.ReadLine()
        Next

        Console.WriteLine("{0}^{1}={2}", x, n, potega(x, n))
WriteLine("Suma elementow ciagu: {0}", suma(n, x))

        Console.ReadKey()

ReadKey()


    End Sub

End Module
Module

Replies to Re: Untitled rss

Title Name Language When
Re: Re: Untitled Cute Ibis text 6 Years ago.