Рекурсия. Найти НОД (n, m)

@Supirmin · Регистрация: 16.05.2018

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

Даны натуральные числа n, m; найти НОД (n, m). Использовать программу, включающую рекурсивную процедуру вычисления НОД, основанную на соотношении НОД, основанную на соотношении НОД (n, m)=НОД (m, r), где r - остаток от деления n на m).
Сделать через форму и подпрограмму.

@Puporev · 19.02.2019, 09:58

Delphi

function NOD(n,m:integer):integer;
begin
if n<>0 then NOD:= NOD(m mod n,n) else NOD:=m;
end;

@Supirmin · 19.02.2019, 10:12 **[ТС]**

а почему нету r?

Сообщение от Puporev

if n<>0 then NOD:= NOD(m mod n,n) else NOD:=m;

@Puporev · 19.02.2019, 10:25

Это я не посмотрел и не то написал, функцию вместо процедуры, извини.

@Matan! · 19.02.2019, 11:28

Не по теме:

Наверное, Вы это имели ввиду:

Delphi

procedure NOD(n, m: Integer);
begin
  Writeln(n, ' | ', m);
  if m <> 0 then
    NOD(m, n mod m)
  else
    m := n;
end;

@Supirmin 0 / 0 / 0 Регистрация: 16.05.2018 Сообщений: 83
		1
	Рекурсия. Найти НОД (n, m) 19.02.2019, 08:35. Показов 977. Ответов 4 Метки delphi 7 (Все метки) Даны натуральные числа n, m; найти НОД (n, m). Использовать программу, включающую рекурсивную процедуру вычисления НОД, основанную на соотношении НОД, основанную на соотношении НОД (n, m)=НОД (m, r), где r - остаток от деления n на m). Сделать через форму и подпрограмму. 0

@Supirmin 0 / 0 / 0 Регистрация: 16.05.2018 Сообщений: 83
	19.02.2019, 10:12 [ТС]	3
	а почему нету r? Сообщение от Puporev if n<>0 then NOD:= NOD(m mod n,n) else NOD:=m; 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2019, 10:25	4
	Это я не посмотрел и не то написал, функцию вместо процедуры, извини. 0

	19.02.2019, 11:28