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

[resident]

О боже, да у вас тут такая комедия во всем коде.

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

  procedure TKvadrat.Get_Storona(st:integer);
begin
if (st>0)  and  (st<>0)  then  FStorona:=st
else
FStorona:=2;
FStorona:=st;
end;

Как вы своими словами опишите, что здесь происходит?

[AlphaBlend]

а ! .... до меня дошло

[resident]

Кхе, принято методы, которые устанавливают значения полей, называть Set...

[AlphaBlend]

Вот квадртатик

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

TRectangle = class
    Side:Integer;
    function Perimetr:Integer;
    function Area:Integer;
    constructor Create(ASide:Integer);overload;
  end; 

//...............


  function TRectangle.Perimetr:Integer;
  begin
     result:=Side * 4;
  end;
  function TRectangle.Area:Integer;
  begin
     result:=Side*Side;
  end;
  constructor TRectangle.Create(ASide:Integer);
  begin
     Side:=ASide;
  end;                                                 


Добавлено спустя 28 секунд:
теперь надо попробовать от него пирамидку построить

[resident]

А почему Kva и Pyr не знаю о существовании друг друга

Даже если их пригласить в передачу "Найди меня!", то они друг друга не узнают.
Родители/наследники - это только чтобы упростить написание однотипного кода. Т.е. всю пирамиду можно написать в одном классе, не наследуя от квадрата. Вы упростили, объявив её наследником. Т.е. как бы "уже написали" часть кода квадрата, т.е. мысленно в код пирамиды "скопировали" код квадрата. И на этом все.
Данных на этом этапе не существует, вы только пишите что вы будете с ними делать.

Программа отжирает часть ОЗУ под данные при создании экземпляров класса.

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

Kva:=TKvadrat.Create(k);
    Pyr:=TPyramida.Create(a);

Kva и Pyr - это всего-лишь указатели на данные экземпляра. И естественно что они указывают на разные места ОЗУ и разные данные. Сторона квадрата Kva и сторона квадрата Pyr - это совершенно разные данные совершенно разных экземпляров классов. И совершенно не важно от каких там классов они созданы и в каких родственных отношениях находятся классы.

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

а ! .... до меня дошло

Скоро и до меня дойдет

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

для override классы должны быть только виртуальными , если не ошибаюсь ?

Наверное вы правы.

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

полиморфизм

Там ваще атас!

[AlphaBlend]

За математику извините

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

TPyramid = class (TRectangle)
    Apof:Integer; 
    Surface:Integer;
    procedure SetApof(NewApof:Integer);
    function GetSurface:Real;
  end;                                         


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

function TPyramid.GetSurface:Real;
  var
    A:Real;
    p:real;
    S:Real;
  begin
       p:=(Self.Side + Self.Apof + Self.Apof) / 2;           { полупериметр }
       S:=SQRT(p * ( p - Apof) * (p - Apof) * (p - Side)); { Площадь одного треугольника  }
       S:=(S * 4) + Self.Area;                                      { вся поверхность пирамиды }
       result:=S;
  end;

procedure TForm1.Button1Click(Sender: TObject);
  begin
     Pyramid:=TPyramid.Create(2);
     Pyramid.SetApof(4);
     showmessage(FloatToStr(Pyramid.GetSurface));
  end;                                 
                                                       


[resident]

За математику извините

Он передаст преподавателю ваши извинения

[AlphaBlend]

resident последнее время больше чем до 10 считать не умею

[resident]

AlphaBlend
А зачем вы ставите "Self."? Это же вроде и подразумевается по-умолчанию.

[AlphaBlend]

resident я когда долго думаю забываю имена методов и полей , которые создаю , а если написать Self и нажать точечку - выпадет меню со свойствами класса

[resident]

последнее время больше чем до 10 считать не умею

А как же сдачу в магазине? Всё на веру?

[AlphaBlend]

resident об этом лучше не думать

Добавлено спустя 6 минут 2 секунды:
в магазин идешь сейчас и думаешь не о том , как с дачу посчитать , а как еще в долгах не остаться

Добавлено спустя 7 минут 55 секунд:
видимо , кто-то наспех соображает решения для зачетов , курсовых и т.д.

[resident]

я когда долго думаю забываю имена методов и полей , которые создаю , а если написать Self и нажать точечку - выпадет меню со свойствами класса

Тоже не помню, но так я никогда не делаю.
В основном Ctrl + Shift + Стрелка вниз / вверх. Прыгаю туда и обратно.
Хотя по хорошему нужно ставить закладки, но что-то я к ним никак себя не приучу.

[AlphaBlend]

resident когда код работает и отлажен , можно просто удалить Self и все и красивости всякие сделать табуляцией

[resident]

огда код работает и отлажен , можно просто удалить Self и все

А по-моему тогда его лучше не трогать. Я даже галочку "только чтение" для файлов ставлю, чтоб случайно не изменить