Question

Напишите программу которая получает два целых числа и находит их произведение не используя операцию умножения. учтите что числа могут быть отрицательными.На Turbo Pascal пожалуйста срочно!!!!!Зарвнее спасибо!

Answer 1

Вот. Умножение без помощи операции умножения. Делай лучшим) program pr; var i,a,b:integer;p:real; begin write('Первый множитель: '); readln(a); write('Второй множитель: '); readln(b); if b<0 then begin b:=-b; for i:=1 to b do begin p:=p+a; end; writeln(-p:0:2); end else begin for i:=1 to b do p:=p+a; writeln(p:0:2) end; end.

Answer 2

Конечно, вот пример программы на Turbo Pascal, которая находит произведение двух целых чисел без использования операции умножения:

program MultiplyWithoutMultiplyOperator;

var
  num1, num2, result: integer;

begin
  // Ввод двух целых чисел
  write('Введите первое число: ');
  readln(num1);
  
  write('Введите второе число: ');
  readln(num2);
  
  // Инициализация результата
  result := 0;

// Проверка знаков чисел и выполнение умножения
  while num2 <> 0 do
  begin
    // Если младший бит второго числа установлен, то добавляем num1 к результату
    if (num2 and 1) <> 0 then
      result := result + num1;

// Сдвигаем num1 влево и num2 вправо
    num1 := num1 shl 1;
    num2 := num2 shr 1;
  end;

// Вывод результата
  writeln('Произведение: ', result);

readln;
end.

Эта программа использует битовые операции для умножения двух чисел без использования операции умножения. Она поддерживает отрицательные числа, так как оператор сдвига (`shl` и `shr`) сохраняет знак числа.

Надеюсь, это поможет! Если у вас есть дополнительные вопросы, не стесняйтесь задавать.