Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
pein2699
0 / 0 / 0
Регистрация: 04.10.2016
Сообщений: 13
1

Поменять знак чисел на противоположный, если они имеют разный знак; иначе замененить их нулями

25.10.2016, 22:36. Просмотров 1307. Ответов 3
Метки нет (Все метки)

даны два числа a и b. Разработать и описать алгоритм, в результате которого числа меняют свой знак на противоположный, если они имеют разный знак и будут заменены на нули, если это не так.
1.a=-3; b=3.5
2.a=5.8; b=2.7
3.a=-8; b=-3.5
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2016, 22:36
Ответы с готовыми решениями:

Алгоритм: Поменять у чисел знак на противоположный, если они имеют разный знак, иначе заменить на нули
Даны два числа a и b . Разработать и описать алгоритм, в результате которого числа меняют свой знак...

Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму
Даны числа X и Y отличные от нуля. Найти произведение этих чисел,если они имеют одинаковый...

Даны действительные числа x, y. Если они имеют разный знак, вывести их на экран
Даны действительные числа x, y. Если они имеют разный знак, вывести их на экран. В противном...

Создать массив С. Если соответствующие элементы а и b имеют одинаковый знак то присвоить 1, иначе - 0
Даны 2 двумерных массива а и b одинакового размера (любой). Создать массив с, если соответствующие...


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

Или воспользуйтесь поиском по форуму:
3
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28000 / 15728 / 967
Регистрация: 15.09.2009
Сообщений: 67,817
Записей в блоге: 78
25.10.2016, 22:37 2
так программу или алгоритм?
0
pein2699
0 / 0 / 0
Регистрация: 04.10.2016
Сообщений: 13
25.10.2016, 22:49  [ТС] 3
программу
0
JuriiMW
3342 / 1601 / 1869
Регистрация: 10.12.2014
Сообщений: 6,269
26.10.2016, 05:38 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
begin
  var a := ReadLnReal('a =');
  var b := ReadLnReal('b =');
  if a * b > 0 then begin a *= -1; b *= -1; end
  else (a, b) := (0, 0);
  WriteLnFormat('a = {0}, b = {1}', a, b);
end.
1
26.10.2016, 05:38
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.