Delphi

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Эмитатор OnMouseOver добрый день, помогите сделать эмитацию OnMouseOver и OnMouseOut в Delphi, чтобы при наведение картинка чуть увеличивалась и наоборот https://www.cyberforum.ru/ delphi/ thread206126.html	монеты Delphi Помогите решить, пожалуйста! У покупателя есть n монет достоинством H(1),..., H(n). У продавца есть m монет достоинством B(1),...,B(l). Может ли купить покупатель вещь стоимости S так, чтобы у продавца нашлась точная сдача (если она необходима).
Delphi Объединение списков Подскажите как решить,с помошью чего?)))Примерно хоть)Имеется список женихов и список невест. Каждая запись списка содержит пол, имя, возраст, рост, вес, а также требования к партнеру: наименьший и наибольший возраст, наименьший и наибольший вес, наименьший и наибольший рост. Объединить эти списки в список пар с учетом требований к партнерам без повторений женихов и невест. https://www.cyberforum.ru/ delphi/ thread205854.html	Delphi Автоматическая построчная работа с ListBox в Delphi https://www.cyberforum.ru/ delphi/ thread205819.html Имеется автоматически генерируемый ListBox1 примерно на 150 строк (допустим это пути к файлам). Требуется выполнить однотипные операции с каждой из строк, например автоматически поочередно отредактировать и добавить их в поле Memo1. В голову приходит код на подобии: procedure MemoFiles(Line: double); var L:double; begin Form1.ListBox1.ItemIndex := Line; if Form1.ListBox1.Items.Strings =...
Динамическое создание и уничтожение TChart Delphi Доброго времени суток! Проблема с уничтожением динамически созданного chart. Имеется: var Ch: TPoint; c:TChart; ... {события для перемещения chart-а по форме} procedure TForm1.ChartMMouseDown(Sender: TObject; Button: TMouseButton;	Delphi Как быть? https://www.cyberforum.ru/ delphi/ thread205579.html Ни как не могу Понять как сделать такую программу: Есть формула: \small \left<\begin{cases} & \text A+BX, X>0 \\ & \text 0, X=0 \end{cases} +H(Y+X-S)+{F}_{k-1}(Y+X-S)\right> Имеется Таблица со значениями, которые вводит пользователь: \small {T}_{k}=5,{R}_{k}=4 N=6, A=15, B=2, H=2 Есть значение K - количество сезонов И в зависимости от значения К формируется таблица из 2 строк и К...
Delphi Работа с формами https://www.cyberforum.ru/ delphi/ thread205515.html У меня есть таблица StringGrid1 на Form1. Как ее показать на Form2 со всеми ее данными???	Delphi Коментарии к тексту программы Напишите пожалуйста коментарии к программе uses ComObj; function RefToCell(ARow, ACol: Integer): string; begin Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow); end; function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
Delphi Колличество символов -, +, * https://www.cyberforum.ru/ delphi/ thread205093.html помогите с задачей, мне очень неловко но я ничего сделать не смогла. а задача такая: нужн в текстовом файле посчитать количество такик символов -, +, *и вывести их количество каждоой в эдит. Без понятия как эти символы обозначать!!!	Delphi методом средних прямоугольников и трапеций. Решение задачи численного интегрирования методом средних прямоугольников и трапеций. Yеобходимо проанализировать предложенные методы численного интегрирования функций одной переменной, написать алгоритмы и программы этих методов. С помощью этих программ решить контрольный пример. Проконтролировать погрешность, использовав правило Рунге. Если можно, вычислить точное значение интеграла. Дать... https://www.cyberforum.ru/ delphi/ thread204608.html
Использование JVCL в исходниках, вопрос к знатокам JVCL Delphi Дело такое. Система учёта использует FastReport и в диалоговых окнах создания отчёта происходит выбор даты. Стандартный компонент в FastReport для выбора даты после ввода числа не осуществляет автоматического перехода к вводу месяца, что не годится. Поскольку стандартный компонент - лишь обёртка MFC, поменять эти вещи вряд ли возможно. Компонент из JVCL может быть решением, поскольку там всё...	Delphi PageControl: как сделать вкладки невидимыми? https://www.cyberforum.ru/ delphi/ thread204403.html добрый день, подскажите пожалуйста, как сделать невидимыми листы в pagecontrol. свойство tab.visible=false я уже устанавливала, но после запуска программы све листы все-равно видимые. спасибо.

FuKingBrain

53 / 52 / 22

Регистрация: 29.11.2010

Сообщений: 143

09.12.2010, 09:40

Линейные списки (Входимость) - Delphi - Ответ 1183879

09.12.2010, 09:40. Показов 890. Ответов 1

Метки (Все метки)

Ответ

Delphi

type TList = ^Llist;
LList = record
  Value: Integer;
  Next: TList;
end;
 
var
  a, b: TList;
 
function BinA(a, b: TList): Boolean;
var
  vBoolean: Boolean;
begin
  if b = nill then
    vBoolean := True
  else if a = nill then
    vBoolean := False
  else if a.Value = b.Value then
    begin
      vBoolean := BinA(a.Next, b.Next);
    end
  else
    vBoolean := False
 
  BinA := vBoolean;
end;
 
funciton ExistBinA(a, b: TList): Boolean;
var
  vBoolean: Boolean;
begin
  if ((a = nil) and (b = nil)) then
    vBoolean := True
  else if ((a <> nil) and (b <> nil)) then
    while (a <> nil) and (not vBoolean) do
      begin
        vBoolean := BinA(a, b);
        a := a.Next;
      end
  else
    vBoolean := False;
  
  ExistBinA := vBoolean;
end;

Вернуться к обсуждению:
Линейные списки (Входимость) Delphi

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

09.12.2010, 09:40

Готовые ответы и решения:

Линейные списки
Пожалуйста помогите, не могу никак сделать. Завтра защита, просто не успеваю разобраться( ...

Нуждаюсь в написании программы. Линейные списки
Сформировать односвязный список из 7 записей, вывести список, удалить записи, удовлетворяющие...

Линейные списки
Имеется линейный список с последовательным хранением , элементами которого являются окружности....

Линейные списки
Вечер добрый! Видимо не далась мне тема про списки. Прошу помощи: Список вводится через...

	09.12.2010, 09:40

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

09.12.2010, 09:40

Помогаю со студенческими работами здесь

Линейные списки
Помогите пожалуйста!!! Дан линейный список, содержащий имена,фамилии и отчества. Отсортировать...

Однонаправленные линейные списки
Помогите с одноправленным линейным списком.Происходит ошибка на этапе выполения.

Списки. Линейные массивы
Дано линейную таблицу A, которая состоит из целых чисел. Записать алгоритм и составить программу,...

Курсач, тема: линейные списки
Текст помощи для некоторой программы организован как линейный список. Каждая компонента текста...

Новые блоги и статьи
Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .

Наверх