[paraffin]

Помогите пожалуйста, я не понимаю что Делфи хочет от меня, пишет ошибки "[Error] Unit2.pas(60): Declaration of 'FindAcc' differs from previous declaration" и "[Error] Unit2.pas(62): Undeclared identifier: 'a'". Вроде всё правильно объявил если нет то поправьте пожалуйста.
Вторая просьба помогите создать абстрактную процедуру show у класса TGeometryFigure и создать объект класса TMyLine - линию которая должна рисоваться в паинтбоксе по процедуре show который у предка.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//создает форму
procedure TForm1.FormCreate(Sender: TObject);
begin
Width:=960;
Height:=600;

end;

end.

Код:

unit Unit2;

interface

uses
  Classes, Graphics;

type
  TZakon=class
  private
    { Private declarations }
  v:real; //скорость
  a:real; //ускорение
  s:real; //путь
  public
    { Public declarations }
  procedure FindSpeed(t:integer);
  procedure FindAcc(t:integer);
  procedure FindPut(t:integer);
end;

type
  TMyPoint=class
  private
    { Private declarations }
  px:real;
  py:real;
  cvet:TColor;
  public
    { Public declarations }
    constructor Create(Newpx:real;Newpy:real; Newcvet:TColor);
end;

type
  TGeometryFigure=class(TMyPoint)
  private
    { Private declarations }
    w:real;
    h:real;
    ang:real;
  public
    { Public declarations }
    constructor Create(Newang:real; Newpx:real; Newpy:real; Newcvet:TColor; Neww:real; Newh:real);
end;

type
  TMyLine=class(TGeometryFigure)
  private
    { Private declarations }
    ll:integer;
  public
    { Public declarations }
    constructor Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real; Newll:integer);
end;


implementation

{TZakon1}
procedure TZakon.FindAcc(t:real);
begin
a:=sin(t);
end;

procedure TZakon.FindPut(t:real);
begin
s:=t-sin(t);
end;

procedure TZakon.FindSpeed(t:real);
begin
v:=-cos(t)+1;
end;

{ TMyPoint }

constructor TMyPoint.Create(Newpx:real;Newpy:real; Newcvet:TColor);
begin
px:=Newpx;
py:=Newpy;
cvet:=Newcvet;
end;

{ TGeometryFigure }

constructor TGeometryFigure.Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real);
begin
inherited
w:=Neww;
h:=Newh;
ang:=Newang;
end;

{ TMyLine }

constructor TMyLine.Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real; Newll:integer);
begin
inherited
ll:=Newll;
end;

end.

[Страдалецъ]

Ну вы объявили в TZakon процедуры с параметром integer:

Код:

  procedure FindSpeed(t:integer);
  procedure FindAcc(t:integer);
  procedure FindPut(t:integer);

а реализуете уже с real. Вот и уведомление