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 строк (допустим это пути к файлам). Требуется выполнить однотипные операции с каждой из строк, например автоматически поочередно...
Динамическое создание и уничтожение TChart Delphi Доброго времени суток! Проблема с уничтожением динамически созданного chart. Имеется: var Ch: TPoint; c:TChart; ... {события для перемещения chart-а по форме} procedure...	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> Имеется Таблица...
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...
Delphi Колличество символов -, +, * https://www.cyberforum.ru/ delphi/ thread205093.html помогите с задачей, мне очень неловко но я ничего сделать не смогла. а задача такая: нужн в текстовом файле посчитать количество такик символов -, +, *и вывести их количество каждоой в эдит. Без...	Delphi методом средних прямоугольников и трапеций. Решение задачи численного интегрирования методом средних прямоугольников и трапеций. Yеобходимо проанализировать предложенные методы численного интегрирования функций одной переменной, написать... https://www.cyberforum.ru/ delphi/ thread204608.html
Использование JVCL в исходниках, вопрос к знатокам JVCL Delphi Дело такое. Система учёта использует FastReport и в диалоговых окнах создания отчёта происходит выбор даты. Стандартный компонент в FastReport для выбора даты после ввода числа не осуществляет...	Delphi PageControl: как сделать вкладки невидимыми? https://www.cyberforum.ru/ delphi/ thread204403.html добрый день, подскажите пожалуйста, как сделать невидимыми листы в pagecontrol. свойство tab.visible=false я уже устанавливала, но после запуска программы све листы все-равно видимые. спасибо.

FuKingBrain

53 / 52 / 22

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

Сообщений: 141

09.12.2010, 09:40

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

09.12.2010, 09:40. Показов 838. Ответов 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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

09.12.2010, 09:40

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

09.12.2010, 09:40

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

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

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

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

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

Наверх