Вконтакте - как и всякая социальная сеть, вконтакте чуть более, чем полностью наполнен быдлами, провинциальными студентами, гламурными кисками, тупыми п*****и, задр*тами и просто унылым говном.
Вот именно, что те нуно чтобы они были оба четные. Попробуй при And написать x не четным, а y четным. Програма все равно возведет оба числа на 2 ! Поделит он их на 2 только когда оба числа не четные ! А при Or все будет нормально !
Удачи вам, а я пойду долбаться со стеком P.S. Сегодня на практике по программированию было круто. Первый комп не включился - какой-то Error16. На втором в делфи не хватала какого-то файла и нельзя было проверить работоспособность проги. На третьем каспер в екзешнике дельфи углядел вируса и заблокировал его. Наконец на четвертом мы смогли нормально поработать. У одного чела тоже, сначала норм, потом когда он дописал прогу дельфи накрылся. Ну а после слов препода: "Сейчас ваш пошлю в 99-тую, вы тут хорошую лабораторию сейчас разнесете", мы чуть не легли - хороша лаборатория, в которой дельфи даже трудно найти работающий.
Quote (White)
Вот это вы!
Не, это мы на практике по программированию
Mixon, советую посетить хороший сайт - Proklondike.com. Там много интересной литературы собрано. Особенно раздел Visual Basic/VBA, думаю тебе будет полезен.
Сообщение отредактировал GhoST-44 - Sunday, 28.02.2010, 14:19
Добавлено (28.02.2010, 18:40) --------------------------------------------- чота я в раздумье
задача: Заданы 3 ненулевых числа a,b,c. Определить могут ли они быть сторонами треугольника a<b+c; b<a+c; c<b+a. Определить какой треугольник (равностор, равнобедрен, или обычный) То что получилось у меня
Code
Sub задача() Dim a As Single Dim b As Single Dim c As Single a = InputBox("Введите координаты a") b = InputBox("Введите координаты b") c = InputBox("Введите координаты c") If (a <> 0) And (b <> 0) And (c <> 0) Then Else MsgBox "Введите координаты отличные от 0" End If If (a < b + c) And (b < a + c) And (c < a + b) Then If (a = b = c) Then MsgBox "ABC равносторонний треугольник" Else If (a = b) Or (b = c) Or (a = c) Then MsgBox "ABC - равнобедренный треугольник" Else MsgBox "ABC - Треугольник общего вида" End If End If Else MsgBox "Èç a, b è ñ íåëüçÿ ïîñòîðîèòü òðåãîëüíèê!" End If End Sub
все в принципе работает норм только почему то если вводить 3 одинаковых значения то прога грит что треугольник равнобедренный а должен быть равносторонний Каждый дрочит как он хочет! (с) VL Project