Заданы числа a и b. Определить, эти числа одного или разных знаков
а язык программирования какой?
вот что там написано: Общее задание.1. Разработать (написать) алгоритм решение задачи на псевдокоде.2. Построить блок-схему алгоритма решения задачи.3. Создать процедуру на языке VBA, по разработанному алгоритму решения задачи.4. Проверить работу программы тестами, указав в отчете входные и выходные данные для каждого теста.
Именно так определяют знак произведения при аппаратной реализации умножения.
хех, действительно =/
Самый просто алгоритм - перемножить числа. Если знак результата положительный, знаки одинаковы, если отрицательный - то разные.
Пуск ввод a,b; Если (a>0 и b>0) или (a<0 и b<0), <strong>то Вывод: Одинаковые, иначе Вывод: Разные; Останов.
я незнаю
а можно по подробнее?
это будет первый пункт) псевдокод
uses crt; var a,b:real; begin clrscr; Writeln('Введите 2 числа a,b не равных нулю:');read(a,b); if a*b>0 then writeln('чила одного знака') else writeln('чила разных знаков'); readkey; end.
вот что я нашла в интернете а что в скобках писать лябые цифры или прям это же предложение???
это Паскаль, вам же VBA нужен?
смотрите 3й пункт) "процедуру на языке VBA"
а эту задачу поможите?Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены
Sub Задача() Dim a, b As Integer a = InputBox("Введите а!") b = InputBox("Введите b!") If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then MsgBox ("Знаки одинаковые") Else MsgBox ("Знаки разные") End If End Sub вот процедура на VBA (на нем записываются макросы в Microsoft Office) и как-то так блок-схема рисуется :D
а поконкретнее можно? просто там полно скобок
а эту блок схему где рисовать?
кстати, если оба числа будут нулями - появится сообщение, что они с разными знаками
а может и со вторым заданием поможете?
все все получилось спасибо.
а то что написано в скобках там что любые числа ставить?
по идее, у Вас отчет должен быть с результатами работы программы и схемой... так в 4м пункте указано)