[71Кристиночка]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Const g=9.8;
var k,m,h,s:real;
begin
Try
m:=StrToFloat(Edit1.Text)/1000;
h:=StrToFloat(Edit2.Text);
s:=StrToFloat(Edit3.Text)/100;
except
MessageDlg('Неверные данные', mtError, [mbOK],0);
Exit
end;
k:=m*((g*h/s)+g)/s;
Label4.Caption:=FloatToStrf(k,ffFixed,10,4);
end;

и ещё одна

Код:

procedure TForm1.Button2Click(Sender: TObject);
procedure telo(i:integer);
BEGIN
 WITH Image1.Canvas DO
  BEGIN
     Pen.Width:=3;
   Pen.Color:=clBlack;
Ellipse(Image1.Width DIV 2,i,Image1.Width DIV 2 + 15,i-15);
  end;
  end;
  const g=9.8;
  var h,s,i,q,w:integer;
begin
Try
h:=StrToint(Edit2.Text)*50;
s:=round(StrToint(Edit3.Text)/2);
except
MessageDlg('Неверные данные', mtError, [mbOK],0);
Exit
end;
Form1.DoubleBuffered:=TRUE;
 Button2.Visible:=False;
 WITH Image1.Canvas DO
  BEGIN
 Brush.Color:=clWhite;
FillRect(Image1.ClientRect);
end;
q:=Round(sqrt(2)*s/Sqrt(g*h))*70;
for i:=image1.Height downto (Image1.Height-s) do
begin
 telo(i);
Application.ProcessMessages;
sleep(q);
end;
w:=Round(sqrt(2*g*h)/g)*5;
with Image1.Canvas do
  begin
    Pen.Mode:=pmNOTXOR;
for i:=(Image1.Height-s) downto (image1.Height-h)do
begin
If Br then Abort;
telo(i);
Application.ProcessMessages;
    Sleep(w);
telo(i);
end;
end;
telo(i);
button2.Enabled:=true;
end;

Админ: Учимся ПРАВИЛЬНО пользоваться тегами!

помогите ребят