Информатика. Часть 2. Мойзес О.Е - 149 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

149
{Зарисовка рамки}
SetColor(White);
SetLineStyle(SolidLn,0,NormWidth);
rectangle(Nx1,Ny1,Nx2,Ny2);
{Простановка нумерации по оси ОХ}
SetTextJustify(CenterText,TopText);
x:=x1;
repeat
str(x:3:1,S);
OutTextXY(kx(x),Ny2+5,S);
x:=x+dX
until x>Xmax;
{Простановка нумерации по оси ОY}
SetTextJustify(RightText,CenterText);
y:=y1;
repeat
str(y:3:1,S);
OutTextXY(Nx1-3,ky(y),S);
y:=y+dY
until y>Ymax;
{Решение дифференциального уравнения с одновременным построением
графика}
SetColor(LightRed);
SetFillStyle(SolidFill,LightRed);
x:=x0; y:=y0;
PieSlice(kx(x),ky(y),0,360,2);
repeat
xs:=x; ys:=y;
y:=y+F(x,y)*H;
x:=x+H;
line(kx(xs),ky
(ys),kx(x),ky(y));
PieSlice(kx(x),ky(y),0,360,2);
until x>=xk;
readln;
CloseGraph;
END.

Страницы