Delphi визуалды программалау ортасы

Жұмысты орындау бағдарламасы

жүктеу 1,5 Mb.

бет	90/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 86 87 88 89 90 91 92 93 94

Delphi визуалды программалау жүйесі

27. Мәліметті басып шығару

Жұмысты орындау бағдарламасы:

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-суретте көрсетілген компоненттерді орнатыңыз.

жүктеу 1,5 Mb.

Достарыңызбен бөлісу:

1 ... 86 87 88 89 90 91 92 93 94