Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 19.12.2013
Сообщений: 11
1

Найти сумму листьев 2-ого дерева

09.06.2014, 20:43. Показов 1692. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
function Kolvo(t:tree):integer;
var k:integer; 
begin
  if t<>nil then 
  begin
  if (t^.l=nil) and (t^.r=nil) then k:=t^.info 
  else k:=0;
  Kolvo:=k+Kolvo(t^.l) + (Kolvo(t^.r);
  end
else Kolvo:=0;
end;
Эта функция все вычислит верно?
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2014, 20:43
Ответы с готовыми решениями:

Процедура печати листьев бинарного дерева
2. Процедура печати листьев бинарного дерева

Посчитать количество листьев и неполных вершин заданного бинарного дерева
Всем привет. Нужна срочно помощь. Вот задание: 1.Посчитать количество листьев и неполных вершин...

Написать рекурсивную процедуру, которая печатает элементы из всех листьев дерева
Добрый день! Прошу помочь с написанием программы: Написать рекурсивную процедуру, которая...

Найти сумму элементов 1-ого столбца матрицы, заменить ею последнюю строку матрицы
Ввести матрицу A(N,N).Найти сумму элементов 1-ого столбца матрицы заменить ею последнюю строку...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30916 / 20229 / 7885
Регистрация: 22.10.2011
Сообщений: 35,108
Записей в блоге: 6
09.06.2014, 21:40 2
Если уберешь лишнюю скобку в 8-ой строке, чтобы функция откомпилировалась - то вычислит верно...
0
0 / 0 / 1
Регистрация: 24.04.2013
Сообщений: 11
13.06.2014, 23:17 3
Цитата Сообщение от KirilLKub Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
function Kolvo(t:tree):integer;
var k:integer; 
begin
  if t<>nil then 
  begin
  if (t^.l=nil) and (t^.r=nil) then k:=t^.info 
  else k:=0;
  Kolvo:=k+Kolvo(t^.l) + (Kolvo(t^.r);
  end
else Kolvo:=0;
end;
Эта функция все вычислит верно?
Добрый вечер (день) что означает k:=t^.info в 6 строке ?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30916 / 20229 / 7885
Регистрация: 22.10.2011
Сообщений: 35,108
Записей в блоге: 6
14.06.2014, 16:51 4
"В переменной k запомнить содержимое поля info структуры, на которую указывает t"
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2014, 16:51

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Разработать процедуру, которая добавляет после і-ого элемента копию j-ого
Создать двухсвязный список. Разработать процедуру, которая добавляет после і-ого элемента копию...

Выяснить, можно ли получить 2-ой массив из 1-ого методом удаления элементов из 1-ого массива
8. Даны два массива. В первом n чисел, во втором m чисел. Выяснить, можно ли получить 2-ой массив...

Вывести сумму значений всех листьев данного дерева
доброго всем времени суток) дали нам опять задачи и все бы хорошо,но про бинарные деревья я ничего...

Определить число листьев дерева
Дерево формировать динамически. Заполнить двоичное дерево следующим образом: если число меньше или...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.