Facebook

Re: Re: Untitled safest cryptocurrency exchange

From Cute Ibis, 5 Years ago, written in Plain Text.
This paste is a reply to Re: Untitled from Beige Capybara - view diff
URL https://pastebin.pl/view/b96fa365
Embed
Download Paste or View Raw
Hits: 377
  1. Module Module1
  2.     Function czyjest(ByVal n As Double, ByRef x() As Double, ByVal z As Double) As Double
  3.  
  4.         Dim res As Double
  5.  
  6.         If n = 0 Then
  7.             res = 0
  8.         Else
  9.             If x(n) = z Then
  10.                 res = 1
  11.             Else
  12.                 res = 0
  13.             End If
  14.             res = res + czyjest(n - 1, x, z)
  15.         End If
  16.    
  17.         Return res
  18.  
  19.     End Function
  20.  
  21.     Sub Main()
  22.  
  23.         Dim x(100), n, z As Double
  24.  
  25.         Console.WriteLine("podaj ilosc elementow: ")
  26.         n = Console.ReadLine()
  27.  
  28.         For i = 1 To n
  29.             Console.WriteLine("podaj element nr{0}: ", i)
  30.             x(i) = Console.ReadLine()
  31.         Next
  32.  
  33.         Console.WriteLine("podaj szukany element: ")
  34.         z = Console.ReadLine()
  35.  
  36.  
  37.         Console.WriteLine("ilos szukanych elementow ciagu: {0}", czyjest(n, x, z))
  38.  
  39.         Console.ReadKey()
  40.  
  41.  
  42.     End Sub
  43.  
  44. End Module
  45.  

Replies to Re: Re: Untitled rss

Title Name Language When
Re: Re: Re: Untitled Innocent Leech text 5 Years ago.

Reply to "Re: Re: Untitled"