Заданы числа a и b. Определить, эти числа одного или разных знаков
z31rus:
а язык программирования какой?
вот что там написано: Общее задание.
1. Разработать (написать) алгоритм решение задачи на псевдокоде.
2. Построить блок-схему алгоритма решения задачи.
3. Создать процедуру на языке VBA, по разработанному алгоритму решения задачи.
4. Проверить работу программы тестами, указав в отчете входные и выходные данные для каждого теста.
1. Разработать (написать) алгоритм решение задачи на псевдокоде.
2. Построить блок-схему алгоритма решения задачи.
3. Создать процедуру на языке VBA, по разработанному алгоритму решения задачи.
4. Проверить работу программы тестами, указав в отчете входные и выходные данные для каждого теста.
Самый просто алгоритм - перемножить числа. Если знак результата положительный, знаки одинаковы, если отрицательный - то разные.
хех, действительно =/
Именно так определяют знак произведения при аппаратной реализации умножения.
Ответы
Ответ дал:
4
Пуск
ввод a,b;
Если (a>0 и b>0) или (a<0 и b<0), то Вывод: Одинаковые, иначе Вывод: Разные;
Останов.
ввод a,b;
Если (a>0 и b>0) или (a<0 и b<0), то Вывод: Одинаковые, иначе Вывод: Разные;
Останов.
а можно по подробнее?
это будет первый пункт) псевдокод
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.
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, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены
Ответ дал:
1
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
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м пункте указано)
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад