Вычислить произведение двух чисел без использования операции умножения - Free Pascal
Формулировка задачи:
Усердно грызу (по мере наличия свободного времени) книжку "Песни о Паскале", хочу все таки научится чему нибудь.
Вот такое задание: Пусть программа запросит два числа N и M, а затем вычислит их произведение без использования операции умножения. Подсказка: организуйте цикл суммирования N раз числа M.
Вообщем долго думал, подсмотрел.....вроде работает.....
Убейте меня, не понимаю я, причем тут 'b', откуда оно взялось? Все понятно до DO, потом не понимаю.....откуда 'b'?
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.
Решение задачи: «Вычислить произведение двух чисел без использования операции умножения»
textual
Листинг программы
............. b := 0; for a:=1 to n do b:=b+m; .............
Объяснение кода листинга программы
- Задаются начальные значения переменных
a
иb
равные 1 и 0 соответственно. - Задается условие цикла
for
, который будет выполняться от 1 доn
. - Внутри цикла значение переменной
b
увеличивается наm
. - После выполнения цикла значение переменной
b
будет содержать произведение чиселa
иm
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д