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

[pupsik]

Лекс Айрин можно. А нужно? Ведь вопрошающий сдается. И если он "перепрыгнет" препода - огромный минус. Так что код должен делать то что надо, при этом должен быть корявым и с погрехами...
Плюс он должен пояснить написанное. А вот это куда сложнее.
п.с.
Мой код - не повод просто копи/пасте и сдал. Он - рабочий пример (шаблон). Поэтому я попросил:

Выложите архивом ваше творение (только без бинарника), а не кусками.

. Я бы и не лез в данную тему. Просто видно что человек старается (пытается).

а не использовать внешние функции.

а зачем тогда наследовать? Или я не верно понял? По идее, на данном этапе, не важны нюансы. Вопрошающему надо утвердить свои знания. В общем итоге получить зачет за наследование на каком то примере.

Плюс, не надо будет использовать вещественные переменные.

т.е.... Вы считаете применение real - перебор?
Кстати: а как вы бы написали?

[AlphaBlend]

Бедный парень уже не рад наверно , что помощи попросил

Добавлено спустя 38 секунд:
хотя сам виноват - на лекциях надо не спать , а слушать ну или хотя бы их своевременно посещать

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

это расчет анафемы.
Как я понимаю: вы пытаетесь воспроизвести. Есть один нюанс: вы могли что то упустить (если воспользовались моим кодом).
И э..э при чем обновление лейбла???
Выложите архивом ваше творение (только без бинарника), а не кусками.

Уже Апофему предали Анафеме Завтра поиграем в холокост с аксиомами

[Bombucho]

хотя сам виноват - на лекциях надо не спать , а слушать ну или хотя бы их своевременно посещать

Увы, но посещение 100%-е, да и в тетради все написано, а вот самого понимания предмета нет, иногда даже задумываюсь, а может это не мое...

[AlphaBlend]

а вот самого понимания предмета нет

Простите , а зачем тогда тратить время ? Может ,Вы нашли бы себя в искусстве, медицине, торговле. А тут корпите над враждебными алгоритмами

Добавлено спустя 2 минуты 12 секунд:
быть может , в это время в Вас погибает второй Бах....

Добавлено спустя 33 секунды:
.... и где-то за дождем играет клавесин....

[Bombucho]

Выложите архивом ваше творение (только без бинарника), а не кусками.

Все почти тоже самое что и у вас, но корректно выводит только инофо о квадрате, а с пирамидой траблы...(думал что проблема в присваиваем значении Label`у , но перепробовав все понял, что не в этом)

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


uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin,Unit2,Unit3;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  With Tsquare.Create do
  begin
    Side := SpinEdit1.Value;
    Label1.Caption := intTostr(get_perimeter);
    label1.Update;
    Label2.Caption := intTostr(get_area);
    label2.Update;
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With Tpyramid.Create do
  begin
    Side := SpinEdit1.Value;
    Height := SpinEdit2.Value;
    Label3.Caption := floatTostr(Apothem);
    label3.Update;
    Label4.Caption := floatTostr(Area);
    label4.Update;
    Free;
  end;
end;

procedure TForm1.Label3Click(Sender: TObject);
begin

end;

procedure TForm1.Label4Click(Sender: TObject);
begin

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
end;
end.                             


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

{ Tsquare }

  Tsquare = class(TObject)
    fside : integer;
    function get_perimeter : integer;
    function get_area : integer;
  public
    constructor Create;
    destructor Destroy; override;
    property Side            : integer read fside write fside;
    property on_get_perimetr : integer read get_perimeter;
    property on_get_area     : integer read get_area;
  end;

implementation
     function Tsquare.get_perimeter: integer;
begin
  result := 4 * fside;
end;

function Tsquare.get_area: integer;
begin
  result := sqr(fside);
end;

constructor Tsquare.Create;
begin
  fside := 1;
  inherited Create;
end;

destructor Tsquare.Destroy;
begin
  inherited Destroy;
end;

{ Tpyramid }

   Tpyramid = class(Tsquare)
    fheight : integer;
    fapothem : real;
    function get_area : real;
  public
    constructor Create;
    destructor Destroy; override;
    property Height  : integer read fheight write fheight;
    property Apothem : real read fapothem write fapothem;
    property Area    : real read get_area;
  end;

implementation
constructor Tpyramid.Create;
begin
  inherited Create;
end;

function Tpyramid.get_area: real;
var
  s : real;
begin
  s := 1/2 * fapothem * side;
  result := 4 * s + on_get_area;
end;

destructor Tpyramid.Destroy;
begin
  inherited Destroy;
end;                     


[AlphaBlend]

вам уже столько вариантов решения написали не счесть просто

Добавлено спустя 3 минуты 37 секунд:
какой вариант будете преподавателю показывать ?

[Bombucho]

вам уже столько вариантов решения написали не счесть просто

Добавлено спустя 3 минуты 37 секунд:
какой вариант будете преподавателю показывать ?

Я всем очень благодарен за такое внимание, я сам себя неловко чувствую, когда сбрасывают так много вариантов решения задачи, а понять все равно не в состоянии...
Скорее всего последний, который опубликовал, почти целиком и полностью написанный pupsik

[AlphaBlend]

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

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

я сам себя неловко чувствую, когда сбрасывают так много вариантов решения задачи

среди нас есть и те , кто не имеет образования программиста . На голом энтузиазме люди не только паскаль , но и ассемблер выучить умудряются

[Bombucho]

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

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

[pupsik]

label1.Update;
Label2.Caption := intTostr(get_area);
label2.Update;

зачем Update?

т.е.
Label2.Caption := intTostr(get_area); - просто отображаем в лейбл св-во...

ух ты:

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

destructor Tsquare.Destroy;
begin
  inherited Destroy;
end;

{ Tpyramid }

   Tpyramid = class(Tsquare)
    fheight : integer;

разве так можно? Сперва типы, константы ..., а потом что они делают. У вас же пирамида - что то не понятное. Вроде есть, а вроде нет.
Т.е. должно быть нечто такого:

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

{ Tsquare }
type
  Tsquare = class(TObject)
.....
end;
Tpyramid = class(Tsquare)
.....
end;

implementation
...... Описание того что ваши классы будут делать

 

п.с.

Уже Апофему предали Анафеме

и..и?

[AlphaBlend]

п.с.
Уже Апофему предали Анафеме
и..и?

Ну как-то нехорошо с апофемой поступили Обидно ей будет

[Bombucho]

pupsik

площадь квадрата присваивается площади пирамиды

111-min.png

[pupsik]

AlphaBlend и?
уж прежде чем сетовать на орф. ошибку дайте свой полный листинг...
Bombucho запакуйте ваше деяние и выложите.... проект, архивом . Посмотрю. Не то что вы как код вылаживаете. А именно проект.

[AlphaBlend]

а если нет разницы , какой язык использовать - может парню проще будет написать то же самое на PHP ?....
p.s. извините , ступила

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

уж прежде чем сетовать на орф. ошибку дайте свой полный листинг...

я не думала , что это орф.ошибка )))
мой листинг квадратика на странице 5 этого поста

Добавлено спустя 1 минуту 7 секунд:
viewtopic.php?f=5&t=11178&start=60#p98714

[pupsik]

квадратика

я не думала , что это орф.ошибка )))

в этом то и прелесть...

Добавлено спустя 2 минуты 11 секунд:
Кстати: а что было до 5-й страницы?