Олимпиадные задачи по программированию

[_-Re@l-_]

Вот сейчас понял наконец-то.
Только вот...

(т.е. не меньше половины длины максимального отрезка).

Почему половина, а не весь?

[Serge_Bliznykov]

Почему половина, а не весь?

смотрите, какие бы не были остальные жердочки, описанная окружность ВСЕГДА будет БОЛЬШЕ чем половина максимальной палочки. Возьмите окружность. положите в неё палочку. если она легла строго посередине - она (длина жерди) является диаметром окружности, то радиус окружности будет равен половине.
если же взять радиус меньше - то в него не получится засунуть даже одну эту максимальную жердочку, как её не крути.. поэтому радиус описанной окружности всегда больше половины длины....
надеюсь понятно объяснил?..

[_-Re@l-_]

Да, Serge_Bliznykov, понятно, я просто забыл что мы про радиус говорим, поэтому половина....

Ну, решил попробовать написать программку, но не получается, выползает Runtime Error.
Вот первый вариант кода:

Uses CRT;
Function ArcSin(A:Real):Real;
Begin
     ArcSin:=(180/pi)*arctan(A/sqrt(1-sqr(A)));
End;
Function ArcCos(A:Real):Real;
Begin
     ArcCos:=2*ArcSin(Sqrt((1-A)/2));
End;
Var
   F:Text;
   I,N:Integer;
   alpha:Real;
   Sq:Real;
   R:Real;
   aq:Real;
Begin
     Clrscr;
     Writeln('Enter N:');
     Readln(N);
     R:=N/2;
     alpha:=0;
     Sq:=0;
     While alpha<359 Do
     Begin
          For I:=1 To N Do
          Begin
               aq:=ArcCos(2*Sqr(R)-Sqr(I))/(2*R*R);
               Alpha:=Alpha+aq;
               Sq:=Sq+(R*R*Sin(aq*pi/180)/2);
          End;
          If Alpha<359 Then
          Begin
               R:=R+0.5;
               Continue;
          End
          Else Break;
     End;
     Writeln(Sq:0:2);
     Readln;
End.

[BotCoder]

Мой небольшой оффтопик про олимпиадные задачи по программированию:
http://programmersforum.ru/showthread.php?t=229740

Олимпиадные задачки по программированию здесь.

[BotCoder]

Вообще не могу понять почему в ВУЗ-ах до сих пор заставляют писать решения на этом угрюмом языке? Почему не скриптовые языки? Они в значительной мере лучше отображают логику написанного решения.

[_-Re@l-_]

Вообще не могу понять почему в ВУЗ-ах до сих пор заставляют писать решения на этом угрюмом языке? Почему не скриптовые языки? Они в значительной мере лучше отображают логику написанного решения.

Когда я открывал эту тему, я был ещё школьником Теперь я студент, и пишу(и раньше писал, даже будучи школьником) на С++, Java, C#, Perl, и т.д. А вообще, Pascal неплохой язык для обучения.
А лучшие ресурсы по олимпиадному программированию - Тимус, acmp, e-maxx, Codeforces, и т.д.

[kta87]

BotCoder, мне добавить нечего, ну разве что сравнение ваше php с языками ООП, и в частности Object Pascal, это глубокое упущение...
Читать, больше читать...