Найти произведение чисел, не используя операцию умножения - Pascal ABC
Формулировка задачи:
напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными
Решение задачи: «Найти произведение чисел, не используя операцию умножения»
textual
Листинг программы
var a,b,p,i,z:integer; begin writeln('a'); readln(a); writeln('b'); readln(b); z:=b; if b<0 then z:=-b; for i:=1 to z do begin p:=p+a; end; if b<0 then p:=-p; writeln('p=',p); end.
Объяснение кода листинга программы
- В начале объявляются переменные a, b, p, i, z: они будут использоваться в коде.
- Затем происходит вывод строки
a
и чтение значения переменной a. Аналогично происходит чтение значения переменной b. - Переменная z инициализируется значением переменной b. Если b меньше нуля, то значение переменной z меняется на -b.
- Далее идет цикл for, который выполняется от 1 до z. Внутри цикла переменная p увеличивается на a.
- После цикла проверяется значение переменной b. Если оно меньше нуля, то значение переменной p меняется на -p.
- В конце выводится строка
p=
и значение переменной p. Таким образом, в данном коде производится нахождение произведения чисел без использования операции умножения.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д