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










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

 

”пражнение 2

»змените приложение (упражнение 1) таким образом, чтобы оно выполн€ло построение графика функции у = Sqrt(x)*Sin(x), причем цвет графика должен быть синим.

ƒл€ изменени€ выражени€ функции отредактируйте текст функции f(x).

‘ункци€ имела следующий вид:

Function f(x:real):real; {функци€, график которой надо перестроить}

begin

f:= 3*Sin(x)*Cos(x/6);

end;

ѕосле изменени€ тела функци€ будет иметь следующий вид:

Function f(x:real):real; {функци€, график которой надо построить}

begin

f:=Sqrt(x)*Sin(x);

end;

ѕреобразуем исходное тело процедуры DrawGraph:

begin {область вывода графика на форме}

1:=10; {X - координата левого верхнего угла}

b:=Forml.—1ientHeight-20; (” - координата левого верхнего угла}

h:=Forml.ClientHeight-40; // высота

w:=Forml.Width-40; // ширина

х1:=0; // нижн€€ граница диапазона аргумента

х2:=25; // верхн€€ граница диапазона аргумента

dx:=0.01; // шаг аргумента

{определение максимального и минимального значений функции на отрезке [xl,x2] дл€ масштабировани€}

yl:=f(xl); {минимальное значение функции}

y2:=f(xl); {максимальное значение функции}

x:=xl;

{вычисл€ть значени€ функции дл€ значений х<=х2 и определить максимальное и минимальное значени€ дл€ масштабировани€}

repeat y:=f(x); if y< then>

yl;=y; {если текущее значение у меньше минимального, то у1:=у}

if y>y2 then у2:=у; {если текущее значение у больше минимального, то у2:=у}

x:=x+dx; {перейти к следующему значению х}

until (x>=x2); {как только х>=х2. прекратить}

my:=h/abs(y2-yl); // масштаб по оси Y mx:=w/abs(x2-xl); // масштаб по оси X

{задать начало координат} х0:=1;

yO:=b-Abs(Round(yl*my));

with Forml.Canvas do {рисование графика}

begin

{начертить оси координат} MoveTo(I ,b);

LineTo(I,.b-h); {ось x} MoveTo(xO,yO);

LineTo(xO+w.yO); {ось у} Text0ut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));

{вывести максимальное значение}

TextOut(xO+w,yO,'x'); // подписать ось х TextOut(1+5,b,FloatToStrF(yl,ffGeneral,6,3));

{вывести минимальное значение}

Text0ut(l-7,b-h-5,'у'); // подписать ось у

{построение графика} x:=xl:

repeat {повтор€ть рисовать точки}

y:=f(x); Forml. Canvas. Pixel s[xO+Round(x*mx),yO-Round(y*rny)]:=clRed;

{clRed - красный цвет рисовани€ графика}

x:=x+dx;

until (x>=x2); {прекратить, как только х>=х2}

end;

end;

следующим образом: дл€ изменени€ цвета графика измените значение свойства Forml.Canvas.Pixels с красного (cLRed) на синий (cLBlue):

repeat {рисовать точки}

y:=f(x);

Forml.Canvas.Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clBlue; {clBlue - синий цвет}

x:=x+dx;

until (x>=x2); {прекратить, как только х>=х2}

—охраните измененное приложение, откомпилируйте его и проверьте его работу. ”бедитесь, что в окне приложени€ выполн€етс€ построение графика заданной функции, причем цвет пикселов графика Ц синий.


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

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


 
     
   
 


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

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

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

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

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


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

 


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