Использование рекурсии

@marcus:D · Регистрация: 13.10.2009

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

Нужно найти частное и остаток от деления одного числа на другое. Числа вводятся пользователем с клавиатуры.

@Puporev · 14.10.2009, 08:51

Pascal

uses crt;
function MyDiv(a,b:integer):integer;
begin
if b=a then MyDiv:=1
else if b>a then MyDiv:=0
else MyDiv:=MyDiv(a-b,b)+MyDiv(a,a);
end;
function MyMod(a,b:integer):integer;
begin
if b=a then MyMod:=0
else if b>a then MyMod:=a
else MyMod:=Mymod(a-b,b);
end;
var m,n:integer;
    c,o:integer;
begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
writeln('Частное=',Mydiv(m,n));
write('Oстаток=',MyMod(m,n));
readln
end.

@marcus:D 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 11
		1
	Использование рекурсии 13.10.2009, 23:47. Показов 1241. Ответов 1 Метки нет (Все метки) Нужно найти частное и остаток от деления одного числа на другое. Числа вводятся пользователем с клавиатуры. 0

	14.10.2009, 08:51

Использование рекурсии

Решение