Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Определить, принадлежит ли точка с координатам (x:y) плоской фигуре, являющейся кругом с центром в начале координат и радиусом r https://www.cyberforum.ru/ visual-basic/ thread1125661.html
Помогите пожалуйста, через 2 часа сдавать. Определить, принадлежит ли точка с координатам (x:y) плоской фигуре, являющейся кругом с центром в начале координат и радиусом r
VB Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
Помогите пожалуйста, через 2 часа сдавать. Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
VB Даны два числа. Вывести на экран первое число, если оно больше второго, и оба числа в противном случае. https://www.cyberforum.ru/ visual-basic/ thread1125643.html
Помогите пожалуйста, через 2 часа сдавать. Даны два числа. Вывести на экран первое число, если оно больше второго, и оба числа в противном случае.
VB Как очистить MaskEdBox от предидущей записи с сохранением маски? https://www.cyberforum.ru/ visual-basic/ thread1125517.html
Как очистить MaskEdBox от предидущей записи в VB6 с сохранением маски? Для TextBox это выглядит так: Text1 = "", а для MaskEdBox это не работает. Добавлено через 13 часов 18 минут Решил проблему самостоятельно. Это выглядит так: MaskEdBox1.SetFocus MaskEdBox1.Mask = " " MaskEdBox1.Mask = "##.##.####" MaskEdBox1.PromptChar = " " Text2 = ""
VB Пересчет Элементов матрицы
Всем привет, прошу помощи в написании программы. Никак еще не разобрался с матрицами.. Нужно пересчитать элементы матрицы, чтобы они увеличивались на значения элементов вектора
VB Как скомпилировать приложение? Добрый день,задолбался,качнул бейсик 2006,созал проект,сохраняю,а оно сохраняет проект и без компилированого екс файла,прикол ещё тако что при выхое я вижу это прога чёто сохраняет по пути C:\Program Files (x86)\Microsoft Visual Studio\VB98 хотя такого пути не существует,мож это я недопонимаю или чтото нетак??? зарание спс https://www.cyberforum.ru/ visual-basic/ thread1125098.html
VB Сумма и массивы Помогите! 4 варианты Читайте правила - https://www.cyberforum.ru/announcement.php?a=3 Тема закрыта. https://www.cyberforum.ru/ visual-basic/ thread1124730.html Select Case VB
Помогите!! 4 вариант
VB Табулирование https://www.cyberforum.ru/ visual-basic/ thread1124715.html
Помогите плиз!!! 4 вариант!
VB В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово https://www.cyberforum.ru/ visual-basic/ thread1124223.html
помогите решить пожалуйста а то я в программировании не очень)
VB Сравнение матриц
Здрасте кнопкатыки!))) Как написать код чтобы программа сравнивала две матрицы то есть одинаковые они или нет?
VB Как узнать объект ярлыка в 64-битной ОС Имею ярлык к Internet Explorer. Браузер находится в папке C:\program files При выполнении кода: msgbox CreateObject("WScript.Shell").CreateShortcut(Link).TargetPath получаю путь C:\program files (x86) Воспользовался файловой переадресацией = не помогает. Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare... https://www.cyberforum.ru/ visual-basic/ thread1123532.html
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
21.03.2014, 11:23  [ТС] 0

Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2 - VB - Ответ 5930312

21.03.2014, 11:23. Показов 6508. Ответов 10
Метки (Все метки)

Ответ

Цитата Сообщение от The trick Посмотреть сообщение
Код Visual Basic
1
2
3
4
5
* * Dim s As Single, b As Single, q As Boolean
* * s = -4: b = 3
* * q = ((s / 2) = (s \ 2)) And ((b / 2) = (b \ 2))
* * s = -q * s * s - CSng(Not q) * (s + 2)
* * b = -q * b * b - CSng(Not q) * (b + 2)
оно не запускается когда жму F5

Вернуться к обсуждению:
Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2 VB
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2014, 11:23
Готовые ответы и решения:

Даны Два Числа, Возвести в квадрат их сумму, если оба числа четные
1) Дано трехзначное число, найти произведение первой и последней цифр. Верно Ли что оно кратно 5?...

Если все числа четные, каждое из них уменьшить в 2 раза, если хотя бы одно - четное, увеличить каждое число на 20%...
Даны три целых положительных числа. Если все они четные, каждое число уменьшить в два раза, если...

Даны два различных числа a и b. Если оба числа являются нечетными, то наименьшее из двух чисел возвести в квадрат.
1) Работа. Даны два различных числа a и b. Если оба числа являются нечетными, то наименьшее из...

Числа А,В: Если они оба отрицательные,то заменить каждое из них квадратом,иначе положительное из них увеличить в 2 раза
Даны действительные числа А и В.Если они оба отрицательные,то заменить каждое из них...

10
21.03.2014, 11:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2014, 11:23
Помогаю со студенческими работами здесь

Даны два целых числа, если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулям
Даны два целых числа. Если числа не равны, то заменить каждое из них большим, а иначе заменить оба...

Если оба числа отрицательные, то каждое из них увеличить на 0,5
Даны действительные х1, х2,....хn; у1, у2,....уn. Преобразовать данные последовательности по...

Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае
помогите решить задачу на ветвление с программой. Текст таков:Даны 2 действительных числа a,b....

Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
Помогите пожалуйста, через 2 часа сдавать. Дано вещественное число. Если оно отрицательно, то...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru