Рекурсивная функция

@Linch · Регистрация: 19.02.2010

Author24 — интернет-сервис помощи студентам

Программа для умножения целых чисел М на N.Умножение заменить сложением.

@eg0r · 05.03.2010, 22:44

Pascal

Program prim ;
uses crt;
var    s,n,i  :integer;
BEGIN
  clrscr;
  Write('n= '); readln(n);
Write('m= '); readln(m);
   S:=0;
   for i:=1 to n do s:=s+i*m;
 
  Writeln('s= ',s);
 
 
  readln;
END.

наверное так))))

@Puporev · 05.03.2010, 22:47

Pascal

uses crt;
function Umnz(a,b:integer):integer;
begin
if b<0 then Umnz:=-Umnz(a,-b)
else if b=0 then Umnz:=0
else Umnz:=a+Umnz(a,b-1);
end;
var a,b:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write(Umnz(a,b));
readln
end.

Добавлено через 1 минуту
eg0r, Это у Вас не рекурсия.

Добавлено через 1 минуту
Да и вообще неправильно 5*6=90. Это если еще переменную m объявить.

@Linch 1 / 1 / 1 Регистрация: 19.02.2010 Сообщений: 18
		1
	Рекурсивная функция 05.03.2010, 22:08. Показов 1153. Ответов 2 Метки нет (Все метки) Программа для умножения целых чисел М на N.Умножение заменить сложением. 0

	05.03.2010, 22:47

Рекурсивная функция

Решение