Помощь - Поиск - Пользователи - Календарь
Полная версия: Алгоритм Евклида и Деревья
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
TEMA-XOMA
1)Алгоритм Евклида нахождения НОД(m,n) основан на следующих свойствах этой величины: пусть m и n - два натуральных числа и пусть m>=n. Тогда для чисел m,n и r, где r - остаток от деления m на n, выполняется равенство НОД(m,n)=НОД(n,r). Используя алгоритм Евклида, найдите наибольший общий делитель m и n.
2)Разработать программу работы с бинарным деревом. Программа должна содержать следующие процедуры, вызываемые из меню:
-Построение пустого дерева;
-Добавление нового элемента;
-Удаление указанного поддерева;
-Просмотр деревьев в следующем порядке: левая ветвь, узел, правая ветвь.

Буду очень благодарен, если вы поможете с этими двумя задачами.
volvo
А мы тебе будем очень благодарны, если ты в следующий раз воспользуешься поиском ПЕРЕД тем, как задать вопрос:
Алгоритм Евклида

FAQ: Бинарные деревья + поиск
Altair
1.
http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=51230
там есть...
вот он:
Код
a:=abs(mx[num]); b:=abs(mx[m-num+1]);
if a<b then begin
     c:=a;
     a:=b;
     b:=c;
  end;
   c:=1;
   while c<>0 do begin
      if b<>0 then c:=a mod b;
     if c=0 then    _NOD:=b;
      a:=b;
      b:=c;
   end;

только a и b сам задавай какие надо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.