Восход в Pascal

[korzunmaria]

Мы в школе сдаем работу в паскале. Я выбрала восход солнца. Я сделала на половину экрана прямоугольник, закрашенный голубым цветом(море). Дальше мне нужно чтобы из линии горизонта( по середине) двигалось солнце и вокруг него( цвет неба) медленно менялись цвета. Помогите пожалуйста! Буду очень благодарна!
P.S. Знаю, что для вас это может показаться легко, помогите, я всего лишь школьница=)

[Alex2009]

Лично я не понимаю как это реализовать без таймераЯ не встречал в паскале таймер или модуль связанный с этим.

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

P.S. Знаю, что для вас это может показаться легко, помогите, я всего лишь школьница=)

Я тоже школьник.Но пойми тут нет людей которые будут просто так писать за кого то программы или лабы.Тут тебе только подскажут как это сделать ну а дальше ты должна сама все делать,но если что то не получается ты просиш помощи у нас и мы тебе поможем

[Grag]

Delay(X); Обеспечит нужную задержку...

[sllh_111]

чтож... добрые люди есть везде!

Program Mef_4;
uses CRT, Graph;
var
x,y:real;
a,b:integer;
begin
a:=detect;
InitGraph(a,b,'C:\BP\BGI');
repeat
x:=x+0.001;
y:=cos(sqrt(x))+0.5;
SetColor(14);
Circle(round(x*100),Round(y*100),20);
SetFillStyle(1,14);
FloodFill(round(x*100),Round(y*100),14);
ClearDevice;;
until KeyPressed;
closeGraph;
end.

- движение солнца, а остальное сами.

[CyberGenus]

процедура setbkcolor(цвет) - устанавливает цвет фона.... для смены цветов фона резонно создать массив
fon:array [0..5] of string=('blue', 'green', 'red', 'lightblue', 'white'); {можно и побольше цветов}
и создать цикл для смены значения color фона...
ну, думаю, справишься))))) Удачи!