Жұмысты орындау бағдарламасы:
unit Zhuldyzdar_;
{$R *.dfm}
// жұлдыз салады
procedure TForm1.StarLine(x0,y0,r: integer);
// x0,y0 – жұлдыз центрінің координатасы
// r – жұлдыз радиусы
var
p : array[1..11] of TPoint; // сәулелер мен ойыстар //координаталарының жиымы
a: integer; // ОХ осі мен жұлдыз центрін және сәуле не ойыс //ұшын қосатын түзу арасындағы бұрыш
i: integer;
begin
a := 18; // оң жақ көлденең сәуледен бастап салу
for i:=1 to 10 do
begin
if (i mod 2 = 0) then
begin // ойыс
p[i].x := x0+Round(r/3*cos(a*2*pi/360));
p[i].y:=y0-Round(r/3*sin(a*2*pi/360));
end
else
begin // сәуле
p[i].x:=x0+Round(r*cos(a*2*pi/360));
p[i].y:=y0-Round(r*sin(a*2*pi/360));
end;
a := a+36;
end;
p[11].X := p[1].X; // жұлдыз контурын тұйықтау үшін
p[11].Y := p[1].Y;
Canvas.Polyline(p); // жұлдыз контурын сызу
end;
// тышқан батырмасын басу
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft // сол жақ батырма басылды ма?
then Canvas.Pen.Color := clBlack
else Canvas.Pen.Color := clRed;
StarLine(x, y, 30);
end;
end.
№27. Мәліметті басып шығару
Жұмыстың мақсаты – кестемен берілген мәліметтерді басып шығаратындай бағдарлама құру.
1. Жаңа жоба ашып, сол Пішінге 52-суретте көрсетілген компоненттерді орнатыңыз.
Достарыңызбен бөлісу: |
