Вычислить произведение двух чисел без использования операции умножения - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Усердно грызу (по мере наличия свободного времени) книжку "Песни о Паскале", хочу все таки научится чему нибудь. Вот такое задание: Пусть программа запросит два числа N и M, а затем вычислит их произведение без использования операции умножения. Подсказка: организуйте цикл суммирования N раз числа M. Вообщем долго думал, подсмотрел.....вроде работает.....
var
n,m,a,b:integer;
begin
writeln('Введите число 1');
readln(n);
writeln('Введите число 2');
readln(m);
for a:=1 to n do b:=b+m; 
writeln(b);
readln;
end.
Убейте меня, не понимаю я, причем тут 'b', откуда оно взялось? Все понятно до DO, потом не понимаю.....откуда 'b'?

Решение задачи: «Вычислить произведение двух чисел без использования операции умножения»

textual
Листинг программы
.............
b := 0;
for a:=1 to n do b:=b+m;
.............

Объяснение кода листинга программы

  1. Задаются начальные значения переменных a и b равные 1 и 0 соответственно.
  2. Задается условие цикла for, который будет выполняться от 1 до n.
  3. Внутри цикла значение переменной b увеличивается на m.
  4. После выполнения цикла значение переменной b будет содержать произведение чисел a и m.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы