Помогите пожалуйста,на паскале: Организуйте движение точки через центр экрана справа налево.
Помогите пожалуйста,на паскале:
Организуйте движение точки через центр экрана справа налево.
Гость
Ответ(ы) на вопрос:
ГостьВот маленькая точка летит по экрану...
uses Crt, Graph;
var gd, gm, i: integer;
begin
ClrScr;
InitGraph(gd, gm, ' ');
{
В апострофах расписать путь к драйверу экрана egavga.bgi
}
SetBkColor(1);
for i:=640 downto 0 do
begin
SetColor(2);
circle(i,240, 1);
Delay (10);
SetColor(1);
Circle(i,240,1);
end;
ReadLn;
end.
Не нашли ответ?
Похожие вопросы