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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

147
SetFillStyle(SolidFill,Yellow);
x:=a; h:=(b-a)/n;
for i:=1 to N do
begin
xc:=x+h/2;
yc:=f(xc);
PieSlice(kx(xc),ky(yc),0,360,3);
x:=x+h
end;
{Зарисовка рамки}
SetColor(White);
SetLineStyle(SolidLn,0,NormWidth);
rectangle(Nx1,Ny1,Nx2,Ny2);
{Простановка нумерации по оси ОХ}
SetTextJustify(CenterText,TopText);
x:=x1;
repeat
str(x:3:1,S);
OutText
XY(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;
{Ответ}
SetTextJustify(CenterText,TopText);
str(Int:8:5,S);
S:='Интеграл = '+S;
OutTextXY(Xcr,Ny
2+20,S);
readln;
CloseGraph;
END.
6. Демонстрационная программа по теме «Дифференциальные
уравнения»
program Eiler;
(*
Демонстрационная программа по теме
"Интегрирование дифференциальных уравнений. Метод Эйлера".
*)
uses Graph;
const

Страницы