ИТТ ПРИЗЫВАЮТСЯ МАМКИНЫ ПОГРОМИСТЫРебят, помогите плз с прогой на VB, заебался уже, ошибку не детектит, а таблица значений функции не печатается в окне после вот этогоConsole.WriteLine("от 293 до 353 с шагом 10:") Console.ReadLine()Module Module1 Sub Main() Dim l, N, D, P, S, T1, T2, T As Double Const R As Double = 0.000082056 Const Na As Double = 6.022E+23 Console.Write("Давление, атм: ") P = CDbl(Console.ReadLine) Console.Write("Диаметр молекулы, ангстрем: ") D = CDbl(Console.ReadLine) 0.0000000001 Console.Write("Начальная температура(К) :") T1 = CDbl(Console.ReadLine) Console.Write("Конечная температура(К) :") T2 = CDbl(Console.ReadLine) Console.Write("Шаг :") S = CDbl(Console.ReadLine) Console.Clear() Console.WriteLine("При давлении" & String.Format("{0,25}", P) & " атм") Console.WriteLine(" диаметре молекулы" & String.Format("{0,24:E2}", d) & " м") Console.WriteLine() Console.WriteLine() Console.WriteLine("выполнены расчеты для значений температуры") Console.WriteLine("от 293 до 353 с шагом 10:") Console.ReadLine() Console.WriteLine("T (K) | l (м)") Console.WriteLine("----------------------------") T = T1 For i As Integer = 0 To (T2 - T1) / S Step 1 Console.WriteLine(" {0,-8} | {1}", T, 1 / l) N = Na P / R / T l = Math.Sqrt(2) D D N Math.PI T += S Next i Console.ReadLine() End SubEnd Module
бамп
>>119365877 (OP)VB? Вы что, ебанутые?
Помог бы, тебе, но я больше по микроконтроллерам. Давай на ассемблере писать. Только скажи какие команды у процессора, сколько в нем регистром и объем стека
>>119365997>>119366000я не технарь вообще и это говно у нас всего один кус будет
>>119366072курс* быстрофикс
>>119366072Быдлогуманитарий порвался
ну же кто-нибудь, бамп
>>119365877 (OP)Какой же ублюдский язык. аштресет
>>119366097не рвался нихуя, просто не нужно это потом рили
1
>>119365877 (OP)Ты без индентов и пропуска строк из любви к искусству пишешь?
>>119366177вообще-то я мало ебу в этой хуйне. если пришли, помогайте, а не выебываейтесь
2
>>119366220Я бы помог, но я нихуя VB не знаю.
>>119366072Ты бы заканчивал с этим. Попробуй ассамблер,базарю еще захочешь
>>119365877 (OP)Пиздец гуманитарокод.Ридлайн убери.
>>119366290который? оба убрал, нихуя не изменилось
3
4
5
6
7
8
9
10
11
12
13
14
>>119366398Ты вообще не понимаешь, что у тебя программа делает? Иди кури мсдн на тему того, как ридлайн и райтлайн работают. https://msdn.microsoft.com/ru-ru/library/system.console.readline(v=vs.110).aspx
t2-t1/s точно больше нуля?
>>119366597>Ты вообще не понимаешь, что у тебя программа делает?Yep. Мартышка видит - мартышка делает. Его носом ткни в любую строку - он не сможет сказать что это и зачем.
>>119366615И да, вот эту манду убери:Console.WriteLine("от 293 до 353 с шагом 10:") Console.ReadLine()
Console.WriteLine(" {0,-8} | {1}", T, 1 / l)N = Na P / R / Tl = Math.Sqrt(2) D D N Math.PIА почему так? Типа сперва выводим, потом считаем, что выводим?
>>119366615вроде да, больше
>>119366675убирал уже, умник. ничего не изменилось
>>119366699Открывай дебаггер, ебана.Пацаны из мелкософта ему ворлдкласс инструмент дали, а он ВРОДИ БЫ.
>>119366692N = Na P / R / Tl = Math.Sqrt(2) D D N Math.PIConsole.WriteLine(" {0,-8} | {1}", T, 1 / l)T += SМожет так надо?
>>119366806никакой разницы
>VBвся суть образования в россии
>>119366852Да это пиздец
>>119366806Прога на самом деле элементарнейшая, но написана жопой. Алсо похоже еще и шатаба кое что из разметки съела.
>>119366980Да понятно, что элементарная
ОП - ты мудак.В VB.NET нету:P = CDbl(Console.ReadLine)Юзай рассово верную:P = Double.Parse(Console.ReadLine(), Globalization.NumberStyles.Any)Ну остальное сам подгонишь.
>>119367055ОП про дот нет и не упоминал, это просто VB
>>119365997не VB красит человека
>>119367055VB 2008, если что
>>119367079Это .net По коду видно
А у тебя прога просто завершается или таблицу не выводит но завершается по энтеру?
>>119367107Ну ок, тебе виднее
>>119367128таблицу не выводит, не завершается
Может в цикле i As Double?
>>119367158Какие данные на входе?
>>119367226всм?
>>119365877 (OP)T2>T1. T2-T1/S > 1. Вангую ты оп дибил конченый, даже ввести правильно не можешь.Добавь хотя-бы простейшие проверки на вводные выводные данные. И да, T1 T2 и S должны бытьцелые.
For i As Double = 0 To (T2 - T1) / S Step 1N = Na P / R / Tl = Math.Sqrt(2) D D N Math.PIConsole.WriteLine(" {0,-8} | {1}", T, 1 / l)T += SТак пробуй
>>119367363T1 = CDbl(Console.ReadLineT2 = CDbl(Console.ReadLine)S = CDbl(Console.ReadLine)Что получают эти переменные через консоль от тебя?
>>119367413там половины символов не хватает
>>119367432бля, ну числа там29335310
>>119367413Двачую этого. 1 / l на не инициализированную переменную делится.
>>119367493Я хз разметку макаба пожрала, As Diuble а не As Integer и райтконсоле после расчёта I поставь а не перед
>>119367615As DoubleСамофикс
>>119367501Ради интереса вынеси за цикл Dim counter As Integer = (T2 - T1) И цикл объяви какFor i As Integer = 0 To counter Step S
Вот никогда в своей жизни не думал что в 6 утра буду помогать кому-то с вб, который не видел уже лет 13ОП - Отписывайся как у тебя успехи
>>119365877 (OP)бля за такое именование переменных пиздить надо.уебоксажаскрыл
>>119367887Два чая
>>119367887Студентота учится - не пизди сам таким был
>>119367731Этот прав
>>119367943Есть ещё что? или расходимся?
теперь к переменной D приебываться начал, всё тлен.ОП
>>119367936да, за такое в продкшене могут убить.хули такому говностилю учат в вузах бля
>>119368005Так ты читай её нормально - скобк и запятую у CDbl забыл
>>119367887А надо типа в стиле не Т1, а dTemp1, не S , а iStep етк?
>>119365877 (OP)>N = Na P / R / Tэто что за формула?>l = Math.Sqrt(2) D D N Math.PIвот это что за дерьмо?
>>119368013Да в вузахвсем до пизды нанаименование переменных. Я бы тупо за вб в продакшене убил.
>>119368095Макаба пожрала знаки умножения
>>119367867посмотри по-братски пока сам код, а то вакаба пожрала там кое-что
>>119367887А ты оптимист. Думаешь что это он сам написал?Оп блять, сделай CInt((T2 - T1) / S)Еще D у тебя не определена. Задай ей допустим D = 1
>>119368078один из вариантовConsole.Write("Давление, атм: ")P = CDbl(Console.ReadLine)Console.Write("Диаметр молекулы, ангстрем: ")D = CDbl(Console.ReadLine) 0.0000000001Console.Write("Начальная температура(К) :")T1 = CDbl(Console.ReadLine)Console.Write("Конечная температура(К) :")T2 = CDbl(Console.ReadLine)Console.Write("Шаг :")TemperatueFinishTemperatureBeginPressureMoleculaDiameter
For i As Integer = 0 To (T2 - T1) Step S
>>119368184не умничай
>>119368103весь мой продакшон - вб.жив, регулярно им обмазываюсь
>>119368183Бля ну не учите уебка этому - на шаг делить нельзя!!! На шаг делить нельзя - путь и пишет его как Step
>>119368233Не заебывает столько лишних буков?
>>119368245Да с таким именованием переменных обосраться можно. Он блеать сам хоть может свой код читать?
>>119368337норм именование, чего ты?
>>119368214As Double
>>119368389Исходя из его данный инт сойдет - там один хуй преоразование типов отработает
>>119368417Ну я просто смотрю он всё даблом указал
>For i As Integer = 0 To (T2 - T1) / S Step 1попробуйFor i As Integer = 0 To Cint((T2 - T1) / S )
>>119368471Да зачем на шаг делить??
у омича опа чуть ли не самый кривой код что я видел.хотя курсовых сделал в свое время за сотню
For i As Double = T1 To T2 Step S
>>119368497Чтобы ПОНЯТЬ что такое цикл и как он работает
>>119368497чтобы считать с нужеой точностью.только все равно хуйня да
>>119368541Два чая этому товарищу
>>119368541в next что ставить? и вб можно в циклы по double?
>>119368598Next iВблизи умеет циклы в дабле
>>119368636*вб умеет
>>119368386>норм именованиеЭто даже не днищще. Где то по ту сторону добра и зла.>>119368497>на шаг делитьЭто разве шаг? Там последний элемент в range.lastNumber = Cint((T2 - T1)/S)For i As Integer = 0 To lastNumber Step 1
>>119365877 (OP)У тебя ошибка вConsole.WriteLine(" диаметре молекулы" & String.Format("{0,24:E2}", d) & " м")Сделай с большой буквы же. D.
>>119368700S у него это шаг, читай начало проги где S и вводится
For i As Double = T1 To T2 Step SN = Na P / R / Tl = Math.Sqrt(2) D D N Math.PIConsole.WriteLine(" {0,-8} | {1}", T, 1 / l)T += SNext iЗвездочки сам вставишь лол
>>119368759cделал, как ты сказал. такая херня полезла
>>119368911в цикле все збс, его не трогай. я перейти к нему не могу
>>119368964вводи 3,53 же
>>119368964String.Format("{0,24:E2}", d)Замени наString.Format("{0,25}", d)
>>119369208СУКА РАБОТАЕТ, СПАСИБО ТЕБЕ БРАТОК, МИР ТВОЕМУ ДОМУ
>>119369327Да пожалуйста.