«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

”пражнение 3

—оздайте приложение, которое по щелчку мышью на кнопке выполн€ет рисование пером графика функции у = Sin(x)*Cos(x/6) на интервале Xmin = 0, ’мах = 4. «адайте толщину пера 2 пиксела, цвет линии clBlue (синий).

 
—оздайте форму и задайте дл€ ее свойства Caption значение Ђ–исование графика функции перомї. ѕоместите в верхнюю часть формы компонент Image1 из палитры Additiona1. Ќиже Image1 на форме разместите компонент Button1 из палитры Standard и задайте дл€ его свойства Caption значение Ђѕостроить графикї.

–исование графика функции пером опишите в процедуре обработчика щелчка мышью на кнопке Button1. ƒл€ этого, выбрав в окне »нспектора объектов Buttonl, на странице Events произведите двойной щелчок на пустом поле списка в событии OnClick.

“ак как в процедуре обработчика событи€ необходимо обрабатывать свойства Pen, Font, а также использовать методы LineTo, MoveTo, TextOut, вам следует изучить соответствующие разделы справочной системы Delphi.

ѕосле этого в окне –едактора кода отредактируйте текст процедуры обработчика событи€ TForml.ButtonlClick следующим образом:

procedure TForml.ButtonlCIickCSender: TObject);
var
X,Y : real; {значени€ аргумента и функции}
PX,PY : longint; {координаты пикселов, соответствующих X,Y}
begin
with Image1.Canvas do
begin
Pen.Width:=1; {задать толщину пера дл€ рисовани€ осей координат}
Pen.Col or:=clBlack; {задать черный цвет линии}
{начертить оси координат: начало координат в точке 5,Imagel.Height div 2}
MoveTo(0,Imagel.Height div 2);
LineTo(Imagel.Width,Imagel.Height div 2); {ось х}
MoveTo(5,0);
LineTo(5,Imagel.Height); {ось у}
{рисовать график от начала координат на всю ширину Imagel}
Pen.Width:=2; {задать толщину пера дл€ рисовани€ графика}
Pen.Color:=clBlue; {задать синий цвет линии}
MoveTo(5,Imagel.Height div 2); {установить перо в начало координат}
for PX:=5 to Imagel.Width do begin
X:=PX*4*Pi/Imagel.Width; {вычисление значени€ аргумента X дл€ масштабировани€ графика в соответствии с шириной Imagel}
Y:=Sin(x)*Cos(x/6); {вычисление значени€ функции}
PY:=Trunc(Imagel.Height-(Y+l)*Imagel.Height/2);
{вычисление координаты пиксела, соответствующей значению функции Y}
LineTo(PX.,Y): {рисование линии}
end;
Font.Size:=18; {задать размер шрифта в пунктах}
TextOut(180,20,'y=Sin(x)*Cos(x/6)'); {подписать график}
end;
end;

»зучите текст процедуры и комментарии. —охраните текст приложени€, откомпилируйте его и проверьте его работу. ўелкнув мышью на кнопке ѕостроить график, убедитесь, что в окне приложени€ выполн€етс€ рисование графика заданной функции, причем цвет пикселов Ц синий, а толщина линии составл€ет 2 пиксела.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение є2 дл€ работы с запис€ми ”пражнение є2 дл€ обработки строк √рафика в Delphi ”пражнение 1 ”пражнение 2 ”пражнение 4 ”пражнение 5 ѕрограммы на Pascal «адачи на тему "ѕроизвод€щие функции и р€ды" ”пражнение 1 (ѕроизвод€щие функции и р€ды) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом