Компилирует без ошибок,но...

[AlphaBlend]

А куда они движутся?

от поставщика к потребителю

[resident]

от поставщика к потребителю

Ок. Хотя ИМХО электрическая цепь не может быть наследована от пищевой цепочки.

А что является продуктом их (электронов) жизнедеятельности?

[AlphaBlend]

А что является продуктом их (электронов) жизнедеятельности?

электроны не какают

Добавлено спустя 3 минуты 39 секунд:
мне кажется , что Вы , дяденька , слишком умны чтобы принимать у меня экзамены по физике

[resident]

электроны не какают

Они срут в эфир всякими помехами. Есть даже нормы по излучению от компьютера.

мне кажется , что Вы , дяденька , слишком умны чтобы принимать

Ок. А то я бы еще спросил, что является предметом их жизнедеятельности.

Да какой экзамен. Просто интересно. Кстати на такие вопросы даже проработавшие всю жизь электрики не отвечают. Один на работе доказывал, что электроны в проводке движутся со скоростью света

[Лекс Айрин]

от поставщика к потребителю

Вообще-то, строго говоря, они движутся от поставщика к поставщику.

[pupsik]

Bombucho если еще не сдался... Упустил один момент в последнем архиве - сторону надо на 4 умножить.
Т.е. в unit3 надо:

Код: Выделить всё

procedure Tpyramid.get_area;
var
  s : real;
begin
  s := 0.5 * fapothem * int(side);
  fareap := 4 * (s + square_area);
end;

Кстати о полиморфизме.
Если функции с одинаковым названием, а результат разный тип. Это полиморфизм или нет?
Все одно трепетесь. Так хоть с пользой будет.

[Лекс Айрин]

Если функции с одинаковым названием, а результат разный тип. Это полиморфизм или нет?
Все одно трепетесь. Так хоть с пользой будет.

Если в одном объекте, то перегрузка. Если в разных, то полиморфизм.

Добавлено спустя 2 минуты 15 секунд:
Строго говоря, перегрузка не обязательно приурочена к объекту/классу. Можно, насколько мне известно, перегрузить и обычную функцию/оператор.

[pupsik]

Просто, судя по http://lazarus-ccr.sourceforge.net/fpcdoc/ref/refsu25.html, там используется virtual, override. И это является правильным.
Но..о есть простая одинаковая функция в родителе и производном. С разным типом результата. Без указания метода. Пример:
function get : string;
function get : integer;
Вроде как бы полиморфизм. Но что то не понял. Методы автоматом "привязуются", или...?

[AlphaBlend]

" все смешалось - люди , кони"... физика, математика ... Только теперь понимаю , сколько у нас Лобачевских, Ньютонов, Вудов, Тесла ... Лобачевский бы оценил выражение "квадрат - это пирамида с нулевой апофемой" . Тогда круг - это шар с нулевым объемом. Интегральная математика тихонько седеет и подстраивается под новые тождества "Евклидовой стереометрии" .

Кстати на такие вопросы даже проработавшие всю жизь электрики не отвечают.

Электрикам вовсе не обязательно знать , как на квантовом уровне работает цепь . Электрик должен знать максимум Правила Кирхгофа . Закон Ома он знать обязан , основы электромагнетизма. и то , думаю , что уравнения Максвелла ему вовсе там необязательны. а если электрику дать почитать " релятивистскую механику для чайников" - он быстрее сопьется

Один на работе доказывал, что электроны в проводке движутся со скоростью света

И Вы знаете , он был почти прав. Электроны на орбиталях проводника никто не отменял , а движутся они с околосветовой скоростью примерно [ (1/137) * с * w = v ( где w - количество протонов в ядре) ] Электрику бы премию за глубокие познания выдать , а вы над ним посмеялись . А он-то был почти прав.

[pupsik]

Кажись да: "возможность объектов с одинаковой спецификацией иметь различную реализацию". Т.е. результат может быть другим типом. И можно обойтись без методов. Или ошибаюсь?

[resident]

Если в одном объекте, то перегрузка. Если в разных, то полиморфизм.

Хоть здесь:

Код: Выделить всё

  TMyParent = class
    function One: real;
  end;

  TMyChild = class(TMyParent)
    function One: real;
    function One: string;
  end;

Хоть здесь:

Код: Выделить всё

  TMyParent = class
    function One: real;
  end;

  TMyChild = class(TMyParent)
    function One: string;
  end;

Полиморфизма нет.

Добавлено спустя 3 минуты 40 секунд:

Тогда круг - это шар с нулевым объемом.

Шар с нулевым объемом - это точка.

[AlphaBlend]

Шар с нулевым объемом - это точка

стоя апплодирую Объемы точки еще никто не пробовал измерять . Да. А если точка не шар , а , например , икосаэдр ? получается тогда ,что треугольник с нулевым объемом - это точка , а следовательно это - маленький икосаэдр ?

[resident]

а движутся они с околосветовой скоростью примерно [ (1/137)

Если вам с следующем месяце начнут выдавать одну стотридцатьседьмую часть обычной зарплаты, то вы примерно с обычной скоростью будете спешить на работу на следующий день?

[AlphaBlend]

Если вам с следующем месяце начнут выдавать одну стотридцатьседьмую часть обычной зарплаты

я не работаю . Дома сижу

[resident]

а следовательно это - маленький икосаэдр ?

И не спрашивайте, я не знаю, что такое икосаедр.

Добавлено спустя 1 минуту 56 секунд:

я не работаю . Дома сиж

Кто понял жизь, тот не работает.

Добавлено спустя 5 минут 58 секунд:

Если функции с одинаковым названием, а результат разный тип. Это полиморфизм или нет?

Вопрос не в ту степь, т.к. это применимо как к раннему так и к позднему связыванию.
1) Если параметры функции одинаковые, то это подмена метода.
2) Если параметры другие, то новая версия, читай совершенно другой метод.

Допустим подмена:

Код: Выделить всё

  TMyParent = class
    function One: real;
  end;

  TMyChild = class(TMyParent)
    function One: string; virtual;
  end;

  TMyGrandChild = class(TMyChild)
    function One: boolean; reintroduce;
  end;

  TMyGrandGrandChild = class(TMyGrandChild)
    function One: pointer;
  end;