Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22

Возвращаемое значение функции

09.09.2017, 10:46. Показов 1080. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно сделать так, чтобы функция вернула True, если число N есть в дереве поиска:
Pascal
1
2
3
4
5
6
7
8
9
10
11
    class function Seach(tree: SeachingTree; v: integer): boolean;
    begin
      Result := false;
      if tree <> nil then
      begin
        if tree.Value = v then
          Result := true
        else
        if v < tree.Value then Seach(tree.Left, v) else Seach(tree.Right, v)
      end;
    end;
Но всегда возвращает False.

Добавлено через 2 минуты
Остальная часть кода в смежной теме: Бинарное дерево поиска.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.09.2017, 10:46
Ответы с готовыми решениями:

Возвращаемое значение функции 'diagonal' не определено
Здравствуйте. Возвращаемое значение функции 'diagonal' не определено - Что это значит? program lr5; type CMatr = array ...

Составьте программу, которая: запрашивает значение переменной x и шага n; выводит значение функции
У ми жуткая программа по информе: 5 занятий по паскалю и контрольная. А мы ЭТОГО даже на алгебре ещё не проходили:'( Суть задачи: ...

Найти наименьшее значение функции y= sin(x) / (1+x) и значение аргумента, при котором оно получено
1. Найти наименьшее значение функции y= sin(x) / (1+x) и значение аргумента, при котором оно получено, если x изменяется от 0 до 10 с шагом...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33376 / 21500 / 8236
Регистрация: 22.10.2011
Сообщений: 36,896
Записей в блоге: 11
09.09.2017, 11:00
Pascal
1
2
3
4
5
6
7
8
9
10
11
    class function Seach(tree: SeachingTree; v: integer): boolean;
    begin
      Result := false;
      if tree <> nil then
      begin
        if tree.Value = v then
          Result := true
        else
        if v < tree.Value then result := Seach(tree.Left, v) else result := Seach(tree.Right, v) // Внимательнее с возвращением результата
      end;
    end;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.09.2017, 11:00
Помогаю со студенческими работами здесь

Найти и вывести все значения аргумента x, при которых значение функции y принимает чётное значение
Дана функция y=f(x,a). Найти и вывести все значения аргумента x, при которых значение функции y принимает чётное значение. x - через цикл...

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

Hайти первое отрицательное значение функции (с использованием функции и процедуры)
Hайти первое отрицательное значение функции c=sin(2v). V принадлежит интервалу (a;b) и изменятся с шагом h. подскажите как решить в...

Для функции F(x) написать подпрограммы-функции, вычисляющие значение 1-ой и 2-ой производных в заданной точке x
Для функции F(x) написать подпрограммы-функции, вычисляющие значение 1-ой и 2-ой производных в заданной точке x. Подготовить данные...

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно
Значение аргумента выбрать самостоятельно.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm)
8Observer8 30.01.2026
Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru