delphi задачи и решения

Ответ от Дмитрий Евсеев[мастер]
короче, кидаешь на форму Edit1(для ввода длины катета) и edit2(для ввода угла)
Button1 для подсчета, Lebel 1,2,3 для вывода результатов

обработка команды нажатия Button1
procedure ...
begin
if StrToFloat(Edit1.text)>0 then a:=StrToFloat(Edit1.text)
else exit;
if (StrToFloat(Edit2.text)>0) and (StrToFloat(Edit2.text)<90) then U:=StrToFloat(Edit2.text)
c:=a*sinU; /гипотенуза
R = a/(2*sin(U)); радиус
S:=Пи*sqr(R);
Label1.text:='гипотенуза равна '+FloatToStr(c);
Label2.text:='радиус круга равен '+FloatToStr(R);
Label3.text:=' площадь круга равна '+FloatToStr(S);
end;

P.S. не забудь описать переменные глобально (все типа real )