fork download

 
Function Olcia(x As double, dokladnosc As Long) As double
'Trzeba sie przyjrzec, jak wyglada ten wzor.
'Pierwszy składnik sumy (1+ 1/3*x trzbea obliczyc bo w zaden sposob nie ma zaleznosci z pozostalymi
 
'Poczawszy od drugiego skladnika sumy zmienia sie:
'- znak skladnika co drugi jest ujemny, co drugi dodatni.
'- potega x-a rosnie o 1.
'- licznik kazdego skladnika jest iloczynem liczb o roznicy 3, iloczyn ten zaczyna sie od 2.
'  w kazdym skladniku tego licznika jest o jeden wiecej iloczyn niz w poprzednim.
'- mianownik sklada sie z iloczynu potegi trojki, potega rosnie o 1
'  oraz silni, silnia tez rosnie o jeden.
 
' Czyli wystarczy osobno zapamietac kazdy z tych elementow, poczawszy od drugiego.
' wszystko zapakowac w petle i za kazdym przejsciem odpowiednio zwiekszac kazdy element.
' a obliczony skladnik dodawac do wyniku.
 
Dim wynik As double 'zmienna bedzie przechowywac wynik po obliczeniach funkcja go wypluje
 
'Zaczne od obliczenia pierwszego skladnika sumy.
wynik = 1+1/3*x
'teraz trzeba przydzielic pamiec na poszczegolne elementy, oktorych napisalem wczesniej
Dim znak As integer 'znak skladnika, bedzie sie zmieniac 0 na 1, z 1 na 0
znak = 1 'przyjalem sobie, ze jeden to minus, 0 to plus. teraz trzeba  bedzie liczyc 2 skladnik, a jest on ujemny.
Dim licznik As Double 'bedzie trzymac aktualnie wyliczona wartosc licznika(w sensie ulamka)
Dim LicznikNext As double 'musze wiedziec, przez co mam pomnożyc licznik, zeby wyliczyc kolejne.
licznik = 2 'dalej bedzie widac dlaczego takie wartosci
licznikNext = 2
'teraz stworze zmienne dla mianownika.
'zmienna na te potegi trojki z mianownika.
Dim potegitrojki As double
potegitrojki = 9 'bedzie mnozone razy trzy dla kazdego skladnika. pierwszy skladnik ma 3^2 = 9
Dim silnia As double 'ta silnia w mianowniku kazdego skladnika
silnia = 2 '2 bo 2! = 2
Dim silniaNext As double 'do obliczania silni w kolejnych skladnikach
silniaNext = 3    ' kolejny skladniki to 3! czyli 2!*3
Dim potega_x As double 'bedzie trzymac kolejne potegi x-a
potega_x = x^2
 
'Mam wszystkie potrzebne zmienne do liczenia
'zmienna dokladnosc odpowiada za to ile tych skladnikow mamy zsumowac. im wiecej dodamy tym dokladniejszy bedzie wynik.
'stworze petle. kazde przejscie tej petli bedzie odpowiadac za sume jednego skladnika
Dim i As Long
For i=1 To dokladnosc 
	'do wynik dodaje/odejmuje kolejne skladniki
	If (znak == 1) then
		znak = 0
		wynik = wynik - (licznik / (potegitrojki * silnia) ) * potega_x 
	else 
		znak = 1
		wynik = wynik + (licznik / (potegitrojki * silnia) ) * potega_x 
	End If
	'teraz trzeba tylko ustawic wszystkie zmienne tak, aby wskazywaly na nastepny skladnik
	licznikNext = licznikNext+3
	licznik = licznik * licznikNext
	potegitrojki = potegitrojki * 3
	silnia = silnia * silniaNext
	silniaNext = silniaNext + 1
Next i
'jak posumuje te skladniki to w zasadzie koniec. ta funkcja ma je zwrocic.
Olcia = wynik
End Function
 
Public Class Application
	Public Shared Sub Main()
		System.Console.WriteLine("Hello world!")
	End Sub
End Class
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/MflWDz/prog.vb (2,9) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (18,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (21,6) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (23,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (24,5) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (25,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (26,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (27,8) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (28,12) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (31,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (32,13) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (33,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (34,7) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (35,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (36,11) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (37,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (38,9) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (43,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (44,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (46,4) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (47,7) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (48,8) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (49,6) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (50,7) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (51,8) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (52,8) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (54,13) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (55,9) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (56,14) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (57,8) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (58,12) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (59,5) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (61,6) : Error VBNC30203: Not valid as identifier.
/home/MflWDz/prog.vb (62,13) : Error VBNC30203: Not valid as identifier.
There were 34 errors and 0 warnings.
Compilation took 00:00:00.6617460

Standard output is empty