[lmikle]

Сообщение от artem8021

а если с помощью лейблов и кнопок и всякий другой фигни

Ну, в принципе, все тоже самое, только заместо Write надо выводить в Label, а заместо read - читать из Edit'ов. а запускать весь расчет по клику на кнопке. Желательно так же сделать проверку входных значений.
Типа такого:

Код:

procedure TForm1.Button1Click(Sender);
var
  a, b, c, d, s, s1, s2, s3 : Double;
begin
  a := strToFload(Edit1.Text);
  b := strToFload(Edit1.Text);
  c := strToFload(Edit1.Text);
  d := strToFload(Edit1.Text);
  if (a <= 1) or (a >=3) then raise Exception.Create('a not in 1..3');
  if (b <= .5) or (b >=4.5) then raise Exception.Create('b not in .5..4.5');
  if (c+d < 2.5) then raise Exception.Create('c+d < 2.5');
  Plosh(1,a,2,s1);
  Plosh(2,b,2.5,s2);
  Plosh(2.5,c,d,s3);
  s:=s1+s2+s3;  
  Label1.Caption := FloatTostr(s);
end;