program Game;
uses GraphABC, Events;

var x, y, a, k, n: integer;

procedure mDown(xm, ym, mb: integer);
begin
if (mb = 1) and (xm > x) and (xm
< x + a) and (ym > y) and (ym < y + a) then
k := k + 1; {счетчик попаданий}
end;

begin
SetWindowSize(600, 500); SetBrushColor(clGreen);
a := 40; k := 0; n := 0; x := 100 + random(200); y := 10;
repeat
ClearWindow;
n := n + 1; x := x + random(40) - 20; y := y + random(20); rectangle(x, y, x + a, y + a);
OnMouseDown := mDown; Sleep(100);
until (y > WindowHeight);
SetFontColor(clYellow); SetFontSize(50);
TextOut(180, 180, ' ' + intToStr(k) + ':' + intToStr(n) + ' ');
end.

uses ABCObjects,GraphABC;

var z: StarABC;

begin
z := new StarABC(WindowWidth div 2,WindowHeight div 2,WindowHeight div 2 - 5,WindowHeight div 4 + 16,6,RGB(255,220,0));
z.Count := z.Count + 200;

for var i:=1 to 360 do
begin
Sleep(0);
z.Angle := z.Angle + 1;
end;
end.

Pascal ABC NET

Pascal ABC NET

Pascal ABC NET

Pascal ABC NET

JAVA SCRIPTDA DASTURLAS. Diqqat dasturni ishga tushirishdan oldin qo'llanmani o'qinng va video darsni ko'ring

Java Scriptda soat ysash.

Soat dasturi bilan tanishing va yarating.

JS- kvadrat tenglama HTML da.

Java Scriptda forma yaratish va Fizika faniga bog'lash

Pascal ABC NET

(x,y) нуқта тортилса,
клавиш босилса унинг коди ёзилади , Pascal ABC NET

Pascal ABC NET