1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Procedure Graphic(F:Fun; XBeg,XEnd:Real); Var Max, Min, {Экстремальные точки функции в пределах диапазона} I, {Переменная цикла} Step, {Расчитываемый шаг} GradX, {Приращение функции на один шаг по X} GradY: Real; {Приращение функции на один шаг по Y} GraphicX, {Координата по X} GraphicY: Integer; {Координата по Y} Flag: Boolean; {Флаг - перемещена первая точка}
Procedure Coord (CoordYBeg, CoordYEnd, CoordHMin, CoordHMax: Real); Var GradX, GradYX: Real; X, Y: Integer; Color: Word; Begin Color:=GetColor; SetColor (7); GradX :=GetMaxX/(CoordYEnd-CoordYBeg); GradYX:=GetMaxY/(CoordHMax-CoordHMin); If (CoordYEnd>0) And (CoordYBeg<0) Then Y:=Round(GradX*(0-CoordYBeg)); If CoordYEnd<0 Then Y:=GetMaxY; If CoordYBeg>0 Then Y:=1; If (CoordHMin<0) And (CoordHMax>0) Then X:=Round(GradYX*(CoordHMax)); If CoordHMin>0 Then X:=GetMaxY; If CoordHMax<0 Then X:=1 ; Line (1,X,GetMaxX,X); {Горизонтальная линия} Line (GetMaxX-4,X+5,GetMaxX,X); {Стрелочка} Line (GetMaxX-4,X-5,GetMaxX,X); {Стрелочка} Line (Y,1,Y,GetMaxY); {Вертикальная линия } Line (Y-5,5,Y,1); {Стрелочка} Line (Y+5,5,Y,1); {Стрелочка} SetColor (Color); End;
Begin Step:=(XEnd-XBeg)/(GetMaxY-40); I:=XBeg; Max:=F(XBeg); Min:=F(XBeg); While I<=(XEnd+Step) Do Begin If Max<F(I) Then Max:=F(I); If Min>F(I) Then Min:=F(I); I:=I+Step; End; GradX:=GetMaxX/(XEnd-XBeg); GradY:=GetMaxY/(Max-Min); Coord (XBeg, XEnd, Min, Max);
Flag:=True; I:=XBeg; While I<=(XEnd+Step) Do Begin GraphicX:=Round(GradX*(I-XBeg)); GraphicY:=Round(GradY*(Max-F(I))); If Flag Then MoveTo (GraphicX,GraphicY); { PutPixel(GraphicX,GraphicY,15);} LineTo(GraphicX,GraphicY); I:=I+Step; Flag:=False; End;
End;
{$F+} {Ключи ассемблирования}
Function F1(X:Real):Real; Begin F1:=Sin(x)+COS(x/2); End;
Procedure GraphicIni; Var Mode, DriverDet: Integer; Begin Mode:=0; DriverDet:=Detect; InitGraph(Mode,DriverDet,'c:\BP\BGI'); SetColor(15); End;
{$F-} {Ключи ассемблирования}
Begin GraphicIni; Graphic(F1,-10,10); ReadLn; CloseGraph; End.
Добавлено через 3 мин. Это не так, я уже поняла, но больше я не понимаю как и что делать, хоть ты меня по лбу бей, а это нужно к 6 июню сделать или мне капец... ( Парни объясните нормально как делать?
Добавлено через 4 мин.
Цитата(Neuropunka @ 3.06.2011 15:25)
Program UniversalGraph; Uses Graph;
Type Fun = Function(X:Real):Real;
Procedure Graphic(F:Fun; XBeg,XEnd:Real); Var Max, Min, {Экстремальные точки функции в пределах диапазона} I, {Переменная цикла} Step, {Расчитываемый шаг} GradX, {Приращение функции на один шаг по X} GradY: Real; {Приращение функции на один шаг по Y} GraphicX, {Координата по X} GraphicY: Integer; {Координата по Y} Flag: Boolean; {Флаг - перемещена первая точка}
Procedure Coord (CoordYBeg, CoordYEnd, CoordHMin, CoordHMax: Real); Var GradX, GradYX: Real; X, Y: Integer; Color: Word; Begin Color:=GetColor; SetColor (7); GradX :=GetMaxX/(CoordYEnd-CoordYBeg); GradYX:=GetMaxY/(CoordHMax-CoordHMin); If (CoordYEnd>0) And (CoordYBeg<0) Then Y:=Round(GradX*(0-CoordYBeg)); If CoordYEnd<0 Then Y:=GetMaxY; If CoordYBeg>0 Then Y:=1; If (CoordHMin<0) And (CoordHMax>0) Then X:=Round(GradYX*(CoordHMax)); If CoordHMin>0 Then X:=GetMaxY; If CoordHMax<0 Then X:=1 ; Line (1,X,GetMaxX,X); {Горизонтальная линия} Line (GetMaxX-4,X+5,GetMaxX,X); {Стрелочка} Line (GetMaxX-4,X-5,GetMaxX,X); {Стрелочка} Line (Y,1,Y,GetMaxY); {Вертикальная линия } Line (Y-5,5,Y,1); {Стрелочка} Line (Y+5,5,Y,1); {Стрелочка} SetColor (Color); End;
Begin Step:=(XEnd-XBeg)/(GetMaxY-40); I:=XBeg; Max:=F(XBeg); Min:=F(XBeg); While I<=(XEnd+Step) Do Begin If Max<F(I) Then Max:=F(I); If Min>F(I) Then Min:=F(I); I:=I+Step; End; GradX:=GetMaxX/(XEnd-XBeg); GradY:=GetMaxY/(Max-Min); Coord (XBeg, XEnd, Min, Max);
Flag:=True; I:=XBeg; While I<=(XEnd+Step) Do Begin GraphicX:=Round(GradX*(I-XBeg)); GraphicY:=Round(GradY*(Max-F(I))); If Flag Then MoveTo (GraphicX,GraphicY); { PutPixel(GraphicX,GraphicY,15);} LineTo(GraphicX,GraphicY); I:=I+Step; Flag:=False; End;
End;
{$F+} {Ключи ассемблирования}
Function F1(X:Real):Real; Begin F1:=Sin(x)+COS(x/2); End;
Procedure GraphicIni; Var Mode, DriverDet: Integer; Begin Mode:=0; DriverDet:=Detect; InitGraph(Mode,DriverDet,'c:\BP\BGI'); SetColor(15); End;
{$F-} {Ключи ассемблирования}
Begin GraphicIni; Graphic(F1,-10,10); ReadLn; CloseGraph; End.
Добавлено через 3 мин. Это не так, я уже поняла, но больше я не понимаю как и что делать, хоть ты меня по лбу бей, а это нужно к 6 июню сделать или мне капец... ( Парни объясните нормально как делать?
Добавлено через 1 мин.
Program UniversalGraph; Uses Graph;
Type Fun = Function(X:Real):Real;
Procedure Graphic(F:Fun; XBeg,XEnd:Real); Var Max, Min, {Экстремальные точки функции в пределах диапазона} I, {Переменная цикла} Step, {Расчитываемый шаг} GradX, {Приращение функции на один шаг по X} GradY: Real; {Приращение функции на один шаг по Y} GraphicX, {Координата по X} GraphicY: Integer; {Координата по Y} Flag: Boolean; {Флаг - перемещена первая точка}
Procedure Coord (CoordYBeg, CoordYEnd, CoordHMin, CoordHMax: Real); Var GradX, GradYX: Real; X, Y: Integer; Color: Word; Begin Color:=GetColor; SetColor (7); GradX :=GetMaxX/(CoordYEnd-CoordYBeg); GradYX:=GetMaxY/(CoordHMax-CoordHMin); If (CoordYEnd>0) And (CoordYBeg<0) Then Y:=Round(GradX*(0-CoordYBeg)); If CoordYEnd<0 Then Y:=GetMaxY; If CoordYBeg>0 Then Y:=1; If (CoordHMin<0) And (CoordHMax>0) Then X:=Round(GradYX*(CoordHMax)); If CoordHMin>0 Then X:=GetMaxY; If CoordHMax<0 Then X:=1 ; Line (1,X,GetMaxX,X); {Горизонтальная линия} Line (GetMaxX-4,X+5,GetMaxX,X); {Стрелочка} Line (GetMaxX-4,X-5,GetMaxX,X); {Стрелочка} Line (Y,1,Y,GetMaxY); {Вертикальная линия } Line (Y-5,5,Y,1); {Стрелочка} Line (Y+5,5,Y,1); {Стрелочка} SetColor (Color); End;
Begin Step:=(XEnd-XBeg)/(GetMaxY-40); I:=XBeg; Max:=F(XBeg); Min:=F(XBeg); While I<=(XEnd+Step) Do Begin If Max<F(I) Then Max:=F(I); If Min>F(I) Then Min:=F(I); I:=I+Step; End; GradX:=GetMaxX/(XEnd-XBeg); GradY:=GetMaxY/(Max-Min); Coord (XBeg, XEnd, Min, Max);
Flag:=True; I:=XBeg; While I<=(XEnd+Step) Do Begin GraphicX:=Round(GradX*(I-XBeg)); GraphicY:=Round(GradY*(Max-F(I))); If Flag Then MoveTo (GraphicX,GraphicY); { PutPixel(GraphicX,GraphicY,15);} LineTo(GraphicX,GraphicY); I:=I+Step; Flag:=False; End;
End;
{$F+} {Ключи ассемблирования}
Function F1(X:Real):Real; Begin F1:=Sin(x)+COS(x/2); End;
Procedure GraphicIni; Var Mode, DriverDet: Integer; Begin Mode:=0; DriverDet:=Detect; InitGraph(Mode,DriverDet,'c:\BP\BGI'); SetColor(15); End;
{$F-} {Ключи ассемблирования}
Begin GraphicIni; Graphic(F1,-10,10); ReadLn; CloseGraph; End.
Добавлено через 3 мин. Это не так, я уже поняла, но больше я не понимаю как и что делать, хоть ты меня по лбу бей, а это нужно к 6 июню сделать или мне капец... ( Парни объясните нормально как делать?