Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста,на паскале:
Организуйте движение точки через центр экрана справа налево.

Ответ оставил Гость

Вот маленькая точка летит по экрану...

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.