Visual Basic - Prva pomoč

zakajaltersuxu

Fizikalc
19. jul 2007
1.608
88
48
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
frown-1.gif


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
smile-1.gif
 

SpEkTr

ex mroizo
19. jul 2007
1.549
36
48
44
Ja brez osnov ti bo bolj malo jasno:)
Zanko maš zgoraj DO...Loop, oziroma LOOP WHILE...Zanko maš tudi FOR...NEXT, in tako naprej
IF stavek pa naštimaš IF...vmes pride koda in na koncu...END IF
smile-1.gif
 

zakajaltersuxu

Fizikalc
19. jul 2007
1.608
88
48
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+φ), kjer je t čas, a je amplituda, φ je začetna faza, (2×π)/ω pa je perioda.

confused-1.gif
 

zakajaltersuxu

Fizikalc
19. jul 2007
1.608
88
48
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?
pozdrav.gif
 

zakajaltersuxu

Fizikalc
19. jul 2007
1.608
88
48
Ne, ne ne. Seminarsko bom sam nrdu.

"Program za risanje in izračun vseh ničel funkcije f(x)=a × sin (ω×t+φ), kjer je t čas, a je amplituda, φ je začetna faza, (2×π)/ω 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()