[lmikle]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;