�� 5 ��

�� Pascal ABC.net

��
��
��

��

�� .1
5 ��

�� . 2

5 ��

�� . 3

5 ��

�� . 4

15 ��

�� . 5

10 ��

�� . 6

15 ��

�� . 7

35 ��

�� . 8

15 ��

�� . 9

20 ��

�� . 10

10 ��

�� . 11

10 ��

�� . 12

10 ��

�� . 13

15 ��

�� . 14

15 ��

�� . 15

50 ��

�� . 16

70 ��

�� . 17

50 ��

�� . 18

170 ��

�� . 19

120 ��

�� . 20

�� . 21

�� . 22

�� . 23

�� . 24

�� . 25

��

uses GraphABC;
var x,y, i,z,cl, offset : integer;
begin
for i:=1 to 10 do //�� 10 �� .
begin
offset := 40; //�� . �� 40px.
x := offset*i; // �� X.
SetPenColor(clred); // �� ,��.
SetFontSize(50); //�� .
TextOut(10,10,'��'); //�� .
Line(x+10,100,x+10,320); { �� x ��
�� .}
// x+10,100 �� .
// x+10,320 �� .
end;
end.

��

��

�� .1
0 ��

�� . 2

30 ��

�� . 3

30 ��

�� . 4

30 ��

�� . 5

30 ��

�� . 6

40 ��

�� . 7

40 ��

�� . 8

40 ��

�� . 9

40 ��

�� . 10

80 ��

�� . 11

50 ��

�� . 12

50 ��

�� . 13

50 ��

�� . 14

50 ��

�� . 15

50 ��

�� . 16

60 ��

�� . 17

60 ��

�� . 18

60 ��

�� . 19

60 ��

�� . 20

60 ��

�� . 21

70 ��

�� . 22

70 ��

�� . 23

200 ��

�� . 24

200 ��

�� . 25

250 ��

�� 1.

uses graphabc;
var x,y,offset:integer;
begin
for x:=1 to 400 do
begin
circle (x+30,20,10);
Sleep(10);
end;
end.

�� 2.

uses graphabc;
var x,y,offset:integer;
begin
for y:=1 to 400 do
begin
circle (30,y+20,10);
Sleep(10);
end;
end.

��

�� 1 100 ��	�� 2 100 ��	�� 3 100 ��	�� 4 100 ��
�� 5 100 ��	�� 6 130 ��	�� 7 150 ��	�� 8 170 ��
�� 9 100 ��	�� 10 170 ��	�� 11 100 ��	�� 12 100 ��

������ ������� ���������

������ ������� ���������

������ ������� ���������

������

������ ������� ���������

������

��

��

��

��

��

��