Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program nlo;
uses Crt, Graph;
var
     x, y, i, dx, dy, gd, gm: integer;
     Tarelka: array [1..600] of byte;
begin
     x:=320;
     y:=240;
     gd:=0;
     initgraph (gd, gm, ‘ ‘);
     randomize;
{Построение летающей тарелки}
     setfillstyle (SolidFill, 4);
     fillellipse (100, 50, 20, 8);
     ellipse (100, 46, 190, 357, 20, 6);
     line (107, 44, 110, 38);
     circle (110, 38, 2);
line (93,44, 90, 38);
circle (90, 38, 2);
{Запомнили изображение тарелки и стерли его}
     getimage (79, 36, 121, 59, Tarelka);
     putimage (79, 36, Tarelka, XORput);
{Построение звездного неба}
     for i:=0 to 1000 do
          putpixel (random(639), random(479), random(15)+1);
     repeat               {Бесконечный цикл до нажатия клавиши}
          putimage (x, y, Tarelka, XORput); {Вывод тарелки}
          delay (6000);                         {Задержка}
          putimage (x, y, Tarelka, XORput);     {стирание тарелки}
{Перемещение тарелки}
     dx:=random (60);
     if odd (dx) then dx:=-dx;
     x:=x+dx;
     if x>590 then x:=590;
     if x<0 then x:=0;
     dy:=random (40);
     if odd (dy) then dy:=-dy;
     y:=y+dy;
     if y>450 then y:=450;
     if y<0 then y:=0;
     until KeyPressed;
     closegraph;
end.
          
          
Comments: