Задача про ромб, геометрия Опции

[Начинающий ПаскальщиГ]

Это снова я )
Помогите составить программу вычисления диагоналей ромба по стороне и углу.
Буду очень рад) Вот только формулу найти не могу

[Unconnected]

Рисунок не мой, а отсюда (советую ознакомиться), у меня по рисованию всегда 4 пишем 3 в уме было )

var a,alp:byte;

begin
  writeln('Vvedite storonu i ugol');
  readln(a,alp);
  writeln('Diagonal #1 = ',2*sin(alp*0.5)*a:2:0);
  writeln('Diagonal #2 = ',2*cos(alp*0.5)*a:2:0);
  readln;
end.

Попробуй это.

Сообщение отредактировано: Unconnected - 5.06.2010 21:38

[Начинающий ПаскальщиГ]

var a,alp:byte;

begin
  writeln('Vvedite storonu i ugol');
  readln(a,alp);
  writeln('Diagonal #1 = ',2*sin(alp*0.5)*a:2:0);
  writeln('Diagonal #2 = ',2*cos(alp*0.5)*a:2:0);
  readln;
end.

Попробуй это.

сейчас попробую, секунду




Да, работает, спасибо!

З.Ы. Что такое alp?

Сообщение отредактировано: Начинающий ПаскальщиГ - 5.06.2010 21:43