Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Составить программу получения из фамилии (имени или отчества) любых трёх слов Составить программу получения из фамилии (имени или отчества) любых трёх слов. Воспользоваться операцией "сцепления" и функцией копирования. https://www.cyberforum.ru/ pascalabc/ thread703870.html Pascal ABC Составить программу, которая выделяет отдельные слова и числа из введенной пользователем строки
Составить программу, которая выделяет отдельные слова и числа из введенной пользователем строки. Словом считается последовательность букв, разделяемых одним или несколькими пробелами или знаками препинания. Числом считается последовательность цифр, разделяемых одним или несколькими пробелами, которая может включать точку в качестве разделителя целой и дробной части и знак минус, стоящий в начале....
Pascal ABC Найти два одинаковых элемента в матрице https://www.cyberforum.ru/ pascalabc/ thread703769.html
Задали матрицы Z, V, G размерности (3х4). Составить схему алгоритма и программу, в которой с помощью функции придать значение True, если в матрице есть два одинаковых элемента. Ввода данных и вывода результатов выполнить в основной программе. uses crt; const n=3;m=4; type tarray=array of integer; var j,i:integer; a,z,v,g:tarray; f,r,y:text; function isequal(a:tarray):boolean; var...
Pascal ABC Необходимо вывести Гистограмму по их среднему баллу с подписями. Доброго времени суток! Помогите пожалуйста с задачкой: В файле есть список студентов (Фамилия Имя) и оценки, сдававших экзамены по Информатике, Физике, Химии, Биологии. Необходимо вывести Гистограмму по их среднему баллу с подписями. Помогите! Спасибо!!! https://www.cyberforum.ru/ pascalabc/ thread703766.html
Составить матрицу и посчитать скалярное произведение Pascal ABC
Напишите пожалуйста программу **:-*:-* {b}_{k}=\prod_{j=1}^{n}{a}_{kj}-min({a}_{kj}); k=\bar{1,n}; j=\bar{1,n};
Pascal ABC Программирование матричных операций https://www.cyberforum.ru/ pascalabc/ thread703749.html
1)aji=(2ij+4i)/i! 2)Xi=скалярное произведение второй строки на i-тый столбец 3)Элементы главной диагонали по убыванию 4)y=\sqrt{X1...Xn}Program matrica; Const N=4; Var M:Array of real; i,j,k,f:integer; t,y,p:Real;
Pascal ABC Преобразовать массив https://www.cyberforum.ru/ pascalabc/ thread703745.html
Собственно хотелось бы не само решение, а так чтобы разобраться(довольно слабо понимаю что и как нужно делать и в какой последовательности) Задача. Составьте программу, которая формирует массив из 10 случайных чисел в диапазоне от -10 до 10: а) четные числа делит на 2, а к нечетным - прибавляет 4 б) отрицательные элементы возводит в куб, а из положительных извлекает корень в) числа,...
Составить блок схему к готовому коду Pascal ABC
uses crt; const nmax=20; var a: array of integer; n,i,j,min,min_i,min_j: integer; begin write('Введите размер матрицы n: '); readln(n); writeln('Матрица:'); for i:=1 to n do begin
Pascal ABC Составить блок схему к готовому коду Program arry; uses crt; Const n=5; Type mas = array of real; Var a,b:mas; i,j:integer; BEGIN Writeln ('Vvedite masiv chisel '); for i:=1 to n do begin Write ('a'); https://www.cyberforum.ru/ pascalabc/ thread703736.html Pascal ABC Составить блок схему к готовому коду https://www.cyberforum.ru/ pascalabc/ thread703735.html
Var xn,xk,x,dx,y,s:real; k:byte; Begin write('Введите Xn and Xk (через пробел): ');readln(xn,xk); write('Введите dx: ');readln(dx); x:=xn;s:=0;k:=0; While x<=xk do Begin y:=-exp(cos(x)-1); if y>0 then s:=s+y;
Программа вычисления произведения целых чисел из промежутка [-6;5) Pascal ABC
Написать программку. Программа вычисления произведения целых чисел из промежутка [-6;5)
Pascal ABC Выяснить, образуют ли три числа, расположенные в порядке убывания, арифметическую прогрессию Заданы три целых числа. Выяснить, образуют эти числа, расположенные в порядке убывания, арифметическую прогрессию? Если это так, то найти ее разницу и сумму 20 первых ее членов, а если нет, то наибольшее число проверить на четность и если оно четное, то наименьшее из них заменить на квадрат третьего, а если нет, то среднее по значению заменить его квадратный корень. На экран вывести... https://www.cyberforum.ru/ pascalabc/ thread703714.html
10 / 3 / 2
Регистрация: 22.11.2012
Сообщений: 12
22.11.2012, 00:58 0

Двоичное дерево.(Определить глубину) - Pascal ABC - Ответ 3735697

22.11.2012, 00:58. Показов 1286. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Dzhakomausss как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// определяет максимальную глубину дерева
function Level ( Root: PTree ): integer;
var
  l, r: integer;
begin
   if Root^.Left = nil then
      l := 0
   else
      l := Level( Root^.Left );
 
   if Root^.Right = nil then
      l := 0
   else
      l := Level( Root^.Right );
 
   Result := l;
   if result < r then 
      Result := r;
end;
 
var
  T: PTree;
 
begin
   ....
   a := Level( T^.Left );


Вернуться к обсуждению:
Двоичное дерево.(Определить глубину) Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2012, 00:58
Готовые ответы и решения:

Вывести двоичное дерево в строку
Задача. Вывести бинарное дерево в виде строки так, что если A – отец, а B, C – сыновья, то строка...

Картотека абонентов как двоичное дерево.
33. На междугородной телефонной станции картотека абонентов, содержащая сведения о телефонах и их...

Создать двоичное дерево записей. Проверить выбранное поле записей на равенство
Создать двоичное дерево записей. Проверить выбранное поле записей на равенство. Добавлено через...

Двоичное дерево. Программа
Формулу вида &lt;формула&gt;::=&lt;терминал&gt;(&lt;формула&gt;&lt;знаk&gt;&lt;формула&gt;) &lt;знак&gt;::= +|-|*|/ ...

2
22.11.2012, 00:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2012, 00:58
Помогаю со студенческими работами здесь

Двоичное дерево (теория)
Преподаватель задал вопрос: &quot;Двоичное дерево. Логическое описание.&quot;... =-O Что именно...

Построить двоичное дерево сортировки
У меня есть одно задание, но я не представляю, что от меня требуется. Подскажите, если кто знает,...

Двоичное дерево! Не могу дорешать...
Эта задача формирует двоичное дерево, выводит его на экран и находит максимальную глубину дерева....

Двоичное дерево, Поиск по дереву
Здравствуйте Форумчане, переписывал прогу раза 4 и все одна и та же ошибка помогите пожалуйста! В...

Создать двоичное дерево записей
Создать двоичное дерево записей. Проверить выбранное поле записей на равенство.

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru