Проект в Delphi7

[pavel08]

domovou, Вот, спасибо огромное))))))))))))))))))))))) это мое спасение)))

[pavel08]

domovou, Вот, спасибо огромное))))))))))))))))))))))) это мое спасение)))

[domovou]

pavel08, пожалуйста

это ко второй задаче, только конус не ресует

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label4: TLabel;
    Panel1: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label7: TLabel;
    MainMenu1: TMainMenu;
    Vixod1: TMenuItem;
    Spravka1: TMenuItem;
    Oprogramme1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Vixod1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s,v,r,h,l:real;
x,y,down,yi,xi:integer;
begin
r:=StrToFloat(Edit1.Text);
h:=StrToFloat(Edit2.Text);
V:=1/3*pi*sqr(r)*h;
Label7.Caption:='v= '+FloatToStr(V)+ ' cm.kyb.';
l:=sqrt(sqr(h)+sqr(r));
S:=2*pi*r*(r+l);
Label7.Caption:=Label7.Caption+#13+'S= '+ FloatToStr(S)+' cm.kv';
Canvas.MoveTo(336,350);
Canvas.LineTo(418,228);
Canvas.LineTo(500,350);
Canvas.Arc(500,350,400,228,0,0,0,0);

end;

procedure TForm1.Vixod1Click(Sender: TObject);
begin
close;
end;

end.

[Sibedir]

Если нужно нарисовать конус: