0 / 0 / 1
Регистрация: 24.03.2016
Сообщений: 15

Динамические переменные

23.11.2016, 13:44. Показов 1039. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В дереве поиска определить количество узлов имеющих заданный уровень M.Помогите пожалуйста!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.11.2016, 13:44
Ответы с готовыми решениями:

Динамические переменные
Дано три точки. Найти площадь и периметр получившегося треугольника. var ax,ay,bx,by,cx,cy,a,b,c,p,s:^real; begin repeat ...

Найти функцию ln(2-3x) через динамические переменные
как бы вы написали. С помощью указателей? через процедуру new(?)?

Составить программу вычисления значения функции y=f(x) при данных значениях x, используя только динамические переменные
Прикрепляю в архиве теорию по которой объясняется как делать. Динамические переменные немного абстрактны для понимания, как написать...

1
0 / 0 / 1
Регистрация: 24.03.2016
Сообщений: 15
24.12.2016, 20:48  [ТС]
Лучший ответ Сообщение было отмечено Wendiya как решение

Решение

сама уже сделала ,кому надо ловиите решение
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program tree;
 
type
  Pnode = ^TNode;
  TNode = record
    Info: real;
    left, right: PNode;
  end;
 
var
  f: text;
  b: real;
  root: PNode;
  d,Nom: integer;
 
function CountNthLevel(k, level : Integer; root : ^TNode) : Integer;
begin
  if root <> nil then
  begin
     if k = level then result := 1
     else if k > level then result := CountNthLevel(k, level + 1, root^.left) + CountNthLevel(k, level + 1, root^.right)
     else result := 0;
  end
  else result := 0;
end;
 
procedure Insert(x: real; var a: PNode);
begin
  if a = nil then
  begin
    New(a);
    with a^ do
    begin
      Info := x;Left := nil;right := nil;
    end;
  end
    else
  if x < a^.Info then
    Insert(x, a^.left)
  else Insert(x, a^.right);
end;
 
 
procedure Obhod(a: PNode);
var i:integer;
begin
  d += 1;
  if (a^.right <> nil) then
    Obhod(a^.right);
  for  i := 1 to d - 1 do
    write(f, '      ');
  writeln(f, a^.Info);
  if (a^.left <> nil) then
    Obhod(a^.left);
  d -= 1;
end;
 
begin
  assign(f, 'digits.txt');
  reset(f);
  root:=nil;
  while not eof(f) do
  begin
    read(f, b);
    Insert(b, root);
  end;
  close(f);
  assign(f, 'final.txt');
  rewrite(f);
  d := 0;
  Obhod(root);
  close(f);
 writeln(CountNthLevel(6, 0, root)); // для 5-го уровня
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.12.2016, 20:48
Помогаю со студенческими работами здесь

динамические переменные...
Разработать программу перемножения двух матриц A и B размерности n*m. Обе матрицы размещаются в оперативной памяти динамически, а значения...

динамические переменные
1. Составить программу, которая вставляет в непустой список L, элементы которого упорядочены по не спадению, новый элемент Е так, чтобы...

динамические переменные
1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g наименьшое из значений компонент с непарными номерами...

Динамические (или не динамические.) переменные!
УважаемыЕ! Есть вопрос. Вот код программы (ТЗ метод северо-западного угла) - под спойлером. А вот ее маленький кусок,задача которого в том,...

Динамические переменные
Доброго времени суток! Условие задачи-&quot;Используя представление последовательности чисел в виде линейного списка , напишите программу ,...


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

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

Новые блоги и статьи
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
API на базе FastAPI с Python за пару минут
AI_Generated 07.07.2025
FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO
8Observer8 05.07.2025
На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes
Mr. Docker 04.07.2025
Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры
GameUnited 03.07.2025
В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
Создаем микросервисы с Go и Kubernetes
golander 02.07.2025
Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .
C++23, квантовые вычисления и взаимодействие с Q#
bytestream 02.07.2025
Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .
Вот в чем сила LM.
Hrethgir 02.07.2025
как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * **Service** — самый распространённый. . .
Использование Keycloak со Spring Boot и интеграция Identity Provider
Javaican 01.07.2025
Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru