Автор Анна Ксенофонтова задал вопрос в разделе Другие языки и технологии
Решение задач в Делфи. и получил лучший ответ
Ответ от Дмитрий Евсеев[мастер]
короче, кидаешь на форму 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 )
Этот катет нам не катит))
Юзай пифагора. По формулам и делай. Делфи сча на компе нет сделать не смогу.
Теорему синусов в школе не проходили разве?
Ну к примеру обозначим стороны A B C (C гипотенуза) , нам A известна и известен угол alpha
C := A/sin(alpha);
B := SQRT(SQR(C)-SQR(A));
Это стороны, а площадь S := A*B/2;
радиус оп-й окружности: R := C/2;
Решите на языке делфи задачу. Решите задачу по формуле Крамера