[70011]

Эйнштейн сказал: Жопа перманентна.. остальное приходящее...
Я говорю: Случилась жопа - ну и фиг с ней...
ЗАвтра последняя контрольная по химии, а я к ней не готовлюсь... совесть мучает, и даже с непривычки вроде как страшно, но все равно не хватит мне на хорошо автоматом, тобишь экзамен все равно сдавать...
В близкие недели надо сдавать долги, потом праздники, потом сессия.. как все неудобно.
А мозги только об одном думают.... хочу на сплав!! в поход.. в лес...в нирвану, где нет матана и информатики...
кстати о ней родной..
кто разбирается в бэйсике, нужен .... лад.. под катом прога для рассчета энергии гармонического осцилятора (болд мой) для разных значений волновых чисел (все разбито на три таблицы - три значения волновых чисел) Вопрос проще некуда.. я не прошу переделать прогу, просто каким макаром заставить ее выводить значения не в столбик а в строчку!????? я убьюсь..
зык. меня бесит то, что требуется не просто чтобы прога работала, но чтоб она была оптимизирована до максимума, и выдавалась в таком виде, как захочет препод..

Module Module1
Const h As Double = 0.0000000000000001986
Dim w, T As Double
Const k As Double = 0.0000000000000001381
Sub Main()
Dim Nv, Fv, SumFv, E1, Ev, Xy, SumXy As Double
Dim v As Integer = 0
Dim e As Double = 0.000001
w = 10
T = 100
Console.WriteLine(" T | Fv | /h (см-1) ")
Console.ForegroundColor = ConsoleColor.Yellow
For i = 1 To 3
w = 10 ^ i
Console.WriteLine("")
Console.WriteLine(" w = {0,-46}", w)
Console.WriteLine("--------------------------------------------------------")
For T As Double = 100 To 2000 Step 100
Do
E1 = (v + 0.5) * h * w
Fv = Math.Exp(-E1 / (k * T))
SumFv = SumFv + Fv
Xy = Fv * E1
SumXy = SumXy + Xy
v = v + 1
Loop Until (Fv) < e
Ev = SumXy / (SumFv * h)
Console.WriteLine(" {0,-5} | {1,-10:F4}| {2,-24:E8} ", T, SumFv, Ev)
v = 0
SumFv = 0
Fv = 0
SumXy = 0
Next T
Next i
Console.ReadLine()
End Sub

End Module