Предмет: Информатика, автор: Gulnara1993

Заданы числа a и b. Определить, эти числа одного или разных знаков

z31rus: а язык программирования какой?

Gulnara1993: вот что там написано: Общее задание.
1. Разработать (написать) алгоритм решение задачи на псевдокоде.
2. Построить блок-схему алгоритма решения задачи.
3. Создать процедуру на языке VBA, по разработанному алгоритму решения задачи.
4. Проверить работу программы тестами, указав в отчете входные и выходные данные для каждого теста.

Аноним: Самый просто алгоритм - перемножить числа. Если знак результата положительный, знаки одинаковы, если отрицательный - то разные.

z31rus: хех, действительно =/

Аноним: Именно так определяют знак произведения при аппаратной реализации умножения.

Ответы

Автор ответа: Merzik

Пуск
ввод a,b;
Если (a>0 и b>0) или (a<0 и b<0), то Вывод: Одинаковые, иначе Вывод: Разные;
Останов.

Gulnara1993: а можно по подробнее?

z31rus: это будет первый пункт) псевдокод

Gulnara1993: 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.

Gulnara1993: вот что я нашла в интернете а что в скобках писать лябые цифры или прям это же предложение???

z31rus: это Паскаль, вам же VBA нужен?

Gulnara1993: я незнаю

z31rus: смотрите 3й пункт) "процедуру на языке VBA"

Gulnara1993: а эту задачу поможите?Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены

Автор ответа: z31rus

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

Приложения: