Visual Basic - Prva pomoč

moram programirati nekaj v vb.net

Lahko kdo obrazloži kaj kaj pomeni, nekaj posameznih stavkov vem, ko povežem v celoto je pa kriza

recimo tole:


Module Module1

Sub Main()

Dim r As Single
Dim pi As Single

Console.WriteLine("program za izračun ploščine kroga ")
Console.WriteLine("")

Console.Write("podaj radij kroga ")
r = Console.ReadLine()

pi = Math.PI * r ^ 2

Console.WriteLine("ploščina kroga: " & pi.ToString("F3"))



Console.ReadLine()


End Sub

End Module

...tole razumem kaj pomeni s to ploščino kroga.

--------------------------------------------------------------------------------------------------------------------------
bisekcija:

Module Module1

Sub Main()
' Deklariramo spemenljivke
Dim a As Single
Dim b As Single
Dim c As Single
Dim eps As Single
Dim sk As Integer

' Določimo kako natanæno želimo izračunati rešitev
eps = 0.00001
' Začetno število korakov = 0
sk = 0

Console.WriteLine("Podana je funkcija f(x)=2x-2")
Console.Write("Podaj spodnjo mejo intervala: ")
a = Console.ReadLine
Console.Write("Podaj zgornjo mejo intervala: ")
b = Console.ReadLine

Console.WriteLine()
Console.WriteLine("Vmesnje stopnje števila c")
Console.WriteLine()
Console.WriteLine("Negativne vrednosti: Pozitivne vrednosti:")
Console.WriteLine(" c < 1 c > 1 ")
Console.WriteLine()

' Ponavljamo niz operacij....
Do
c = (a + b) / 2
sk = sk + 1

If (2 * a - 2) * (2 * c - 2) > 0 Then
a = c
Else
b = c
End If

' Niz ukazov za izpis vmesnih vrednosti števila c.
'______________________________________________________________
If c < 0 Then
Console.WriteLine(c & " ")
End If

If c > 0 And c < 1 Then
Console.WriteLine(" " & c)
End If

If c > 1 Then
Console.WriteLine(" " & c)
End If
'_______________________________________________________________


Loop While Math.Abs(b - a) > eps
' ...dokler absolutna vrednost (b-a) ne preseže vrednosti 0.00001.

Console.WriteLine()
Console.WriteLine("Ničla funkcije = " & c)
Console.WriteLine("Število korakov = " & sk)
Console.ReadLine()

End Sub

End Module

----------------------------------------------------------------------------------------------------------------------------------------------

Imports System.IO
Module Module1

Sub Main()

Dim x() As Single
Dim y() As Single
Dim n As Integer
Dim i As Integer
Dim inp As StreamReader
Dim out As StreamReader
Dim podatki As String
Dim b() As String

inp = New StreamReader("D:\DELAJTU\ogljisca.txt")
n = inp.ReadLine()

ReDim x(n - 1)
ReDim y(n - 1)

For i = 0 To n - 1

Console.WriteLine("točka" & i & ":")
podatki = inp.ReadLine

b = podatki.Split()
x(i) = b(1)
y(1) = b(2)

Console.WriteLine("" & x(i) & " " & y(i) & "")
Next
inp.Close()

out = New StreamReader("D:\DELAJTU\ogljisca.txt")
out.ReadLine()
out.Close()

Console.ReadLine()

End Sub

End Module

-------------------------------------------------------------------------------------------------------------------------------

kaj je zanka? kako naštimam if stavek?

hvala, hvala

Za seminar Moram narest takšen program, ki bo izpisoval to:

Program za risanje in izračun vseh ničel funkcije f(x)=a × sin (ω×t+&#966, kjer je t čas, a je amplituda, φ je začetna faza, (2×&#960/ω pa je perioda.

moram narest takšen ukaz ki bo ob poljubnem a-ju, omegi, fi-ju izpisoval ničle. Najprej ustvarim to formulo, in kasneje še formulo za ničle?

Kako se tega sploh lotit?

a res nihče ne bi vedel?

Ne, ne ne. Seminarsko bom sam nrdu.

"Program za risanje in izračun vseh ničel funkcije f(x)=a × sin (ω×t+&#966, kjer je t čas, a je amplituda, φ je začetna faza, (2×&#960/ω pa je perioda"

Zanima me če sem pravilno zastavil nalogo. Kako se je sploh lotiti? A moram narest ukaz za spremenljivko t?
Recimo nekako takole:



Dim t As Single
Dim ...

Console.WriteLine("program za izračun ničel funkcije ")
Console.WriteLine("")

Console.Write("podaj čas t ")
t = Console.ReadLine()

f(t) = Izrazim iz podane formule (?)

Console.WriteLine("za dan t je ničla v: " & pi.ToString("F3"))

Console.ReadLine()