[Naloga][Visul Basic] Program za izračun dimenzij soda...

No naloga, pri kateri bi rabil pomoč je sledeča:

Sestavi in preizkusi program, ki iz datoteke prebere različne volumne sodov v obliki valja. Program naj izračuna dimenzije sodov tako, da bosta višina in premer soda za posamezen primer enaka.

Branje podatkov in izpis rezultatov naj bo izvedeno preko ustreznih vhodnih in izhodnih datotek. Kontroliraj uspešnost odpiranja datotek! Program mora omogočati izračun poljubnega števila nalog.

Program izdelaj v obliki:
- opredelitev logične (oziroma matematine) rešitve problema,
- določitev potrebnih vhodno - izhodnih operacij (podatki in rezultati),
- bločni diagram poteka programa,
- izvirni izpis kode v programskem jeziku VISUAL BASIC.NET,
- kratek in pregleden opis delovanja programa,
- kratko in pregledno navodilo za uporabo programa,
- izpis izračunanih vsaj petih testnih primerov (izpis podatkov in rezultatov).

No, ker pa nimam blage veze o Visual Basicu, sem se obrnil na Slo-Tech!
A bi se našel kdo, ki bi to vedel naredit? Thnx!

Lp, Matej

Bom probu sam pomagat, ker nimam VB-ja...
Sploh ne razumem kaj je treba narest. Gremo korak po koraku.

V vhodni datoteki so recimo podatki(volumni sodov): 45, 35, 56, 15.
In zdej ti morš prebrat te številke, in izračunat mere sodov. In zdej ne zastopm, kaj morta bit premer pa višina enaka?

Število nalog, kaj je to? A je to število podatkov v datoteki?

Potem neki računaš dimenzije in to zapišeš v izhodno datoteko. A mam prov? .

Vrjetn pa maš kšn blok diagram... Če sam VB-ja ne znaš.

No resno, tist dimenzije k morjo bit enake za vsak primer, pa sploh ne zastopm.
Poj ko mi vse to razložiš pa bom clo kej sprogramiru

opredelitev logične (oziroma matematine) rešitve problema
Če velja da h = R = 2r potem V = Pi*h*r^2 = (Pi/4)*h^3. Za iyračun višine je enačba h = (4*V/Pi)^(1/3). Upam da se nism zmotu .
Ker vsaj jest mislm da v VB-ju tretji koren ne obstaja se zračuna na naslednji način h = Exp(Log(število)/koren)).

Dim podatki as string
Dim delimStr As String = ", "
Dim delimiter As Char() = delimStr.ToCharArray()
Dim split As String() = Nothing
Dim fs as New FileStream("vhodna_datoteka.txt",FileMode.Open,FileAccess.Read)
Dim sr as New StreamReader(fs)
podatki = sr.ReadToEnd()
sr.close()
split = podatki.Split(delimiter)
fs = New FileStream("izhodna_datoteka.txt",FileMode.Open,FileAccess.Write)
Dim sw as New StreamWriter(fs)
Dim h As double
Dim s As String
For Each s In split
	h = Convert.ToDouble(s)
     	as.Write( (Exp(Log(4*h/Pi)/ 3)).ToString() + ", " )
Next s
sw.close()

Še zdej ne vem zakaj so prazne vrstice v kodi? [niso, lerazmaki med vrsticamo so "kanček" večji -OwcA]
Nč nism testiru a to sploh dela al se sploh prevede. Mal sm si pomagu s c# pa internetom (MSDN and stuff).

ja halo? kaj pa radij soda?

ne, sam vem da sod ni valj. ima zaukrivitev.

oops pa res...