Графика в паскале

[Aman]

Помогите пожалуйста составить задачу.Заранее спасибо.
Нужно создать программу "Восход солнца"

[Grag]

Чем помочь? Конкретно, плиз!
Обратиться к японцам, чтоб выкатили солнце???
Твой личный код в студию для разбора ошибок...

[Stilet]

Aman

Это значит что желтый круг должен прокатится по дуге?

[Tronix]

Сообщение от Stilet

Это значит что желтый круг должен прокатится по дуге?

Смотря откуда смотреть Если солнце прямо восходит на нас а мы смотрим на него, то будет горизонт, и круг, плывущий вверх и постепенно уменьшающийся в размерах. (см схему)

[Aman]

Анимацию "Восход солнца"

[Stilet]

Смотря откуда смотреть

Не надо смотреть на него - глазки заболят

Aman

Ты настойчив, но это тебе не поможет.
Вот каркас программы

var ang:double;x,y,r:integer;
begin
   MoveTo(0,Width);
   r:=50;    ang:=0;
   x:=0;y:=Height div 2;
   while ang<pi/2 do begin
     x:=x+round(r*cos(ang));
     y:=y-round(r*sin(ang));
     ang:=ang-pi/100;
     circle(x,y,r);
     delay(100);
     ClearDevice
   end;
 end;

Писал с потолка