PaskalABC

Заставка

Безкінечне коло

uses ABCObjects,GraphABC;

label q;

var c:integer;

n:Color;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=1;

q:

c := c + 1;

new CircleABC(600,360,c,n);

goto q;

end.

Безкінечне коло з кольором

uses ABCObjects,GraphABC;

label q;

var c:integer;

n:Color;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=1;

n:=clRandom;

q:

c := c + 1;

new CircleABC(600,360,c,n);

goto q;

end.

Безкінечне коло з змінним кольором

uses ABCObjects,GraphABC;

label q;

var c:integer;

n:Color;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=1;

q:

c := c + 1;

new CircleABC(600,360,c,n);

n:=clRandom;

goto q;

end.

Безкінечне коло з змінним кольором і фіксованим радіусом

uses ABCObjects,GraphABC;

var c,dr:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

q:

c := c + dr;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(600,360,c,n);

n:=clRandom;

goto q;

end.

Безкінечне коло з змінним кольором і фіксованим радіусом (Білий колір позаді)

uses ABCObjects,GraphABC;

var c,dr:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

q:

c := c + dr;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(600,360,c,n);

new CircleABC(600,360,c,clWhite);

n:=clRandom;

goto q;

end.

Безкінечне коло з змінним кольором і фіксованим радіусом (Чорний колір позаді)

uses ABCObjects,GraphABC;

var c,dr:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

q:

c := c + dr;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(600,360,c,n);

new CircleABC(600,360,c,clBlack);

n:=clRandom;

goto q;

end.

Робота з координатами

uses ABCObjects,GraphABC;

var c,dr,x,y:integer;

n:Color;

label q;

begin

SetWindowSize(1200,740);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

q:

c := c + dr;

x := x + 1;

y := y + 1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

n:=clRandom;

goto q;

end.

Робота з координатами (Білий колір позаді)

uses ABCObjects,GraphABC;

var c,dr,x,y:integer;

n:Color;

label q;

begin

SetWindowSize(1200,740);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

q:

c := c + dr;

x := x + 1;

y := y + 1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

new CircleABC(x,y,c,clWhite);

n:=clRandom;

goto q;

end.

Робота з координатами (Чорний колір позаді)

uses ABCObjects,GraphABC;

var c,dr,x,y:integer;

n:Color;

label q;

begin

SetWindowSize(1200,740);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

q:

c := c + dr;

x := x + 1;

y := y + 1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

new CircleABC(x,y,c,clBlack);

n:=clRandom;

goto q;

end.

Коло з малим радіусом

uses ABCObjects,GraphABC;

var c,dr,x,y,xd,yd:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

xd:= 10;

yd:= 10;

q:

c := c + dr;

x := x + xd;

y := y + yd;

IF x > 1200 THEN xd:= xd * -1;

IF x < 2 THEN xd:= xd * -1;

IF y > 720 THEN yd:= yd * -1;

IF y < 2 THEN yd:= yd * -1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

n:=clRandom;

goto q;

end.

Коло з великим радіусом

uses ABCObjects,GraphABC;

var c,dr,x,y,xd,yd:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

xd:= 50;

yd:= 50;

q:

c := c + dr;

x := x + xd;

y := y + yd;

IF x > 1200 THEN xd:= xd * -1;

IF x < 2 THEN xd:= xd * -1;

IF y > 720 THEN yd:= yd * -1;

IF y < 2 THEN yd:= yd * -1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

n:=clRandom;

goto q;

end.

Фінал

uses ABCObjects,GraphABC;

var c,dr,x,y,xd,yd:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

xd:= 25;

yd:= 25;

q:

c := c + dr;

x := x + xd;

y := y + yd;

IF x > 1200 THEN xd:= xd * -1;

IF x < 2 THEN xd:= xd * -1;

IF y > 720 THEN yd:= yd * -1;

IF y < 2 THEN yd:= yd * -1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

SetPenWidth(200);

Line (600, 400,x,y,n);

n:=clRandom;

goto q;

end.

Фінал (Звук)

uses ABCObjects,GraphABC;

var c,dr,x,y,xd,yd:integer;

n:Color;

label q;

begin

SetWindowSize(1200,720);

Window.Title := 'Заставка';

Window.IsFixedSize := True;

c:=3;

dr:=1;

x:= 3;

y:= 3;

xd:= 50;

yd:= 50;

q:

c := c + dr;

x := x + xd;

y := y + yd;

IF x > 1200 THEN xd:= xd * -1;

IF x < 2 THEN xd:= xd * -1;

IF y > 720 THEN yd:= yd * -1;

IF y < 2 THEN yd:= yd * -1;

IF c > 300 THEN dr:= dr * -1;

IF c < 2 THEN dr:= dr * -1;

new CircleABC(x,y,c,n);

SetPenWidth(5);

Line (600, 400,x,y,n);

n:=clRandom;

system.Console.Beep(863,190);

goto q;

end.