skinner007

Проблемка такого плана, есть программа вот она
uses graph;
function F1(x:real):real;
begin
F1:=exp(x+1);
end;
function F2(x:real):real;
begin
F2:=exp(1-x);
end;
function F3(x:real):real;
begin
F3:=(sqr(x)/2)+6;
end;
var xn,xk,max,min,x,y,m,dx,h:real;
x0,y0,i,px,py,n:integer;
s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
xn:=-1.3;xk:=1.3;
m:=(y0-450)/F2(1);
setbkcolor(15);
setcolor(8);
line(0,y0,getmaxX,y0);
line(x0,0,X0,getmaxY);
for i:=1 to 4 do
begin
line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
line(x0+round(i*m),y0-3,x0+round(i*m),Y0+3);
line(x0-round(i*m),y0-3,x0-round(i*m),Y0+3);
str(i,s);

outtextXY(x0-35,y0+round(i*m),'-'+s);
outtextXY(x0-35,y0-round(i*m),s);

outtextXY(x0+round(i*m),y0+10,s);
outtextXY(x0-round(i*m),y0+10,'-'+s);
end;

outtextXY(x0,y0,'0');

outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);

x:=xn;
dx:=0.001;
while x<=xk do
begin
x:=x+dx;
px:=x0+round(x*m);
y:=F1(x);
py:=y0-round(y*m);
putpixel(px,py,12);
if (x>-0.7)and(x<1) then
begin
y:=F2(x);
py:=y0-round(y*m);
putpixel(px,py,9);
end;
if x<-0.3 then
begin
y:=F3(x);
py:=y0-round(y*m);
putpixel(px,py,2);
end;
end;

h:=45/sin(pi/4)/m;
n:=round((xk-xn)/h);
for i:=n+1 downto -1 do
begin
x:=xn;
while x<=xk do
begin
x:=x+dx;
px:=x0+round(x*m);
y:=x+h*(n-i+1);
py:=y0-round(y*m);
if(y>F3(x))and(y>F2(x))and(y<F1(x))
then putpixel(px,py,13);
end;
end;
setcolor(12);
outtextXY(30,20,'Y1=exp(x+1)');
setcolor(9);
outtextXY(30,40,'Y2=exp(1-x)');
setcolor(2);
outtextXY(30,60,'Y3=(sqr(x)/2)+6');
readln
end.
она должна нарисовать 3 графика функции и заштриховать пространство между этими графиками, но графики получаются слишком короткими и не создают внутреннего пространства, я запускал эту программу при помощи free pascal помогите разобраться в чем проблема в программе или в самом паскале?

Vladimir_S

Ни в том, ни в другом. В Вас. Потому что Вы взялись строить график, не проанализировав предварительно ход функций, пределы изменений аргумента, соответственно рациональное расположение осей и т.п. На самом деле это выглядит так:

Так что выводы делайте сами.

skinner007

И как мне добиться такого результата?

Vladimir_S

Если в общем, то:
1. Правильно провести оси, в частности, ось Х вблизи низа экрана, оставив лишь отступ в 10-20 пикселов для надписей. Ось Y - по горизонтальному центру, причем чтобы возрастание значений функций шло снизу вверх, а не сверху вниз, как у Вас. Не забываем, что "0" оси Y соответствует верхнему краю экрана.
2. Сделать разметку осей в пределах и с шагом, определяемым по приведенному рисунку.
3. Изобразить сами функции в указанных пределах.
Самое главное во всём этом - правильно задать функции масштабирования, т.е. переход от естественных единиц к экранным пикселам.

А вот если Вы хотите получить работающую программу, то - помогу, но не сразу. Возможно, не раньше выходных. Всё-таки возни очень много с этой графикой.

skinner007

Был бы вам очень благодарен за работающую программу!!!

Vladimir_S

Ладно, попробую.

skinner007

Мне уже помогли вот рабочая программа
uses graph;
function F1(x:real):real;
begin
F1:=exp(x+1);
end;
function F2(x:real):real;
begin
F2:=exp(1-x);
end;
function F3(x:real):real;
begin
F3:=(sqr(x)/2)+6;
end;
var xn,xk,max,min,x,y,m,dx,h:real;
x0,y0,i,px,py,n:integer;
s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY-50;
xn:=-2.4;xk:=1.2;
m:=(y0-80)/F3(xk);
setbkcolor(15);
setcolor(8);
line(0,y0,getmaxX,y0);
line(x0,0,X0,getmaxY);
for i:=1 to round(F3(xk))+1 do
begin
line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
line(x0+round(i*m),y0-3,x0+round(i*m),Y0+3);
line(x0-round(i*m),y0-3,x0-round(i*m),Y0+3);
str(i,s);

outtextXY(x0-35,y0+round(i*m),'-'+s);
outtextXY(x0-35,y0-round(i*m),s);

outtextXY(x0+round(i*m),y0+10,s);
outtextXY(x0-round(i*m),y0+10,'-'+s);
end;

outtextXY(x0,y0,'0');

outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);

x:=xn;
dx:=0.001;
while x<=xk do
begin
x:=x+dx;
px:=x0+round(x*m);
if(x>-1) then
begin
y:=F1(x);
py:=y0-round(y*m);
putpixel(px,py,12);
end;
y:=F2(x);
py:=y0-round(y*m);
putpixel(px,py,9);
if x>-1.8 then
begin
y:=F3(x);
py:=y0-round(y*m);
putpixel(px,py,2);
end;
end;

h:=20/sin(pi/4)/m;
n:=round((xk-xn)/h);
for i:=n+1 downto -5 do
begin
x:=xn;
while x<=xk do
begin
x:=x+dx;
px:=x0+round(x*m);
y:=x+h*(n-i+1);
py:=y0-round(y*m);
if(y<F3(x))and(y>F2(x))and(y>F1(x))
then putpixel(px,py,13);
end;
end;
setcolor(12);
outtextXY(30,20,'Y1=exp(x+1)');
setcolor(9);
outtextXY(30,40,'Y2=exp(1-x)');
setcolor(2);
outtextXY(30,60,'Y3=(sqr(x)/2)+6');
readln
end.
Может кому то пригодится)))))

Vladimir_S

Так, ну вот некий вариант.
Пояснения:
1. Параметры InitGraph формируйте самостоятельно - не проверял (у меня для запуска графики есть свой модуль).
2. Программа рассчитана на графический VGA экран 640Х480, и все масштабы сделаны исходя из этих значений.
3. Преобразования реальных чисел x и y=f(x) в графические координаты экрана X и Y заданы так:
X=320+80*x
Y=450-40*y
4. Поскольку в задании требуют штриховку с шагом 45, а у меня идёт шаг 8, я думаю, что следовало бы изменить масштабы осей так, чтобы заштрихованный "треугольник" занял почти весь экран. Если это необходимо, попробуйте самостоятельно поиграть с параметрами, не получится - обращайтесь.

Миниатюры