42 / 4 / 2
Регистрация: 15.05.2011
Сообщений: 80
1

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

01.07.2011, 21:42. Показов 3055. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны действительные числа А и В.Если они оба отрицательные,то заменить каждое из них квадратом,иначе положительное из них увеличить в 2 раза.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.07.2011, 21:42
Ответы с готовыми решениями:

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

Если оба числа отрицательные, то заменить каждое из них его квадратом
Даны действительные числа A и В, Если они оба отрицательные, то заменить каждое из них его...

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

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

4
11512 / 3798 / 681
Регистрация: 13.02.2009
Сообщений: 11,216
01.07.2011, 21:53 2
Заменил, увеличил!
Что дальше?
2
42 / 4 / 2
Регистрация: 15.05.2011
Сообщений: 80
01.07.2011, 22:57  [ТС] 3
Ну напиши код.. если не сложно?
0
11512 / 3798 / 681
Регистрация: 13.02.2009
Сообщений: 11,216
02.07.2011, 08:31 4
lolos,
Как же без кода я мог выполнить задание?
Конечно написал!.
А вот ты даже вопрос не задал. В чём проблема?
Тупо выложил задание - решайте и учитись за меня!
Начинай что-то делать. Возникнут вопросы - обращайся с конкретными. Поможем

Добавлено через 13 минут
Изменяю своим правилам:
Visual Basic
1
2
3
4
5
Private Sub Комманда1_Click()
Randomize
s = InputBox("", "Введите два целых числа через запятую", Int(10 * Rnd - 5) & "," & Int(10 * Rnd - 5))
MsgBox IIf(Split(s, ",")(0) < 0 And Split(s, ",")(1) < 0, Split(s, ",")(0) ^ 2 & "," & Split(s, ",")(1) ^ 2, Split(s, ",")(0) * 2 & "," & Split(s, ",")(1) * 2), 64, s
End Sub
2
0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 7
24.10.2013, 21:47 5
Alex77755, а на Паскале есть такая же задачка? Прошу помощи.
0
24.10.2013, 21:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2013, 21:47
Помогаю со студенческими работами здесь

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

Если X, Y, Z упорядочены по возрастанию, то удвоить каждое из них, иначе заменить числа их модулями
Если X, Y, Z упорядочены по возрастанию, то удвоить каждое из них, иначе заменить числа их...

Если X, Y, Z упорядочены по возрастанию, то удвоить каждое из них, иначе заменить числа их модулями
X, Y, Z упорядочены по возрастанию, то удвоить каждое из них, иначе заменить числа их модулями

Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен
Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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