Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal)

1) Написать программу (обычную)

2) Написать программу с использованием процедуры

3) Написать программу с исп. функции

4) Написать программу с исп. рекурсивной процедуры

5) Написать программу с исп. рекурсивной функции

Question

Информатика

Кантидиан

24 марта, 08:53

Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal)

1) Написать программу (обычную)

2) Написать программу с использованием процедуры

3) Написать программу с исп. функции

4) Написать программу с исп. рекурсивной процедуры

5) Написать программу с исп. рекурсивной функции

+3

Ответы (1)

Знаете ответ на вопрос?

Конон · Answer 1

Function pr (a, b:integer) : integer; var tmp:integer; begin if b = 1 then pr : = a else begin tmp : = pr (a, b shr 1) ; inc (tmp, tmp) ; if b and 1 = 1 then inc (tmp, a) ; pr : = tmp; end; end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)