먼저 델파이가 아니라 실례하고요 두번째로는
너무 간단한 문제(?)인데 답을 몰라서 ...
문제는 너비와 높이를 알때의 사선의 각입니다.
즉 너비가 100 이고 높이가 20 일 경우 사선의 길이는
SQRT(SQR(100)+SQR(20)) = 102 라는 답이 나옵니다.
그런데 각도를 못 구하겠어요
이런 방법 저런 방법을 다 해 보았는데 안됩니다.
SIN(102/100) 하면 각도가 나올 줄 알았는데..
쩝...
두번째는
반지름이 50이고 각이 30도 일경우의 호의 길이
를 구하는 방법을 알 수 있을까요 ?
uses math; // 요기에 파이가 3.141592
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,r : extended;
begin
// 1번 문제
a := 100;
b := 20;
c := Sqrt(Sqr(a)+Sqr(b));
r := RadToDeg(ArcTan(b/a)); // 아크 탄젠트 혹은 아크 사인 후
// 라디안값을 각도로 변환합니다.
button1.Caption := format('%f',[r]);
// 2번 문제
a := 5;
r := 30 / 360;
b := 2 * 5 * pi * r ; // 원의 둘레는 2 파이 알 , 거기다 호의 비율을 곱하면...
end;