IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите пожалуйста, График функции в Паскале
Neuropunka
сообщение 3.06.2011 2:21
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Женский

Репутация: -  0  +

построить график функции y=e^sinx при х<0 в паскале что-то у меня вообще не чего не выходит. Парни выручайте нужно очень срочно. unsure.gif unsure.gif unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
Neuropunka
сообщение 3.06.2011 14:25
Сообщение #2





Группа: Пользователи
Сообщений: 7
Пол: Женский

Репутация: -  0  + 

 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 июню сделать или мне капец... ( Парни объясните нормально как делать?

Добавлено через 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 июню сделать или мне капец... ( Парни объясните нормально как делать?

Добавлено через 4 мин.



Сообщение отредактировано: Neuropunka - 3.06.2011 14:27
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Neuropunka   Помогите пожалуйста   3.06.2011 2:21
Lapp   построить график функции y=e^sinx при х<0 в пас...   3.06.2011 4:27
Neuropunka   Program UniversalGraph; Uses Graph; Type Fun ...   3.06.2011 14:25
Lapp   несколько наворочено вышло )) когда будет свободна...   3.06.2011 23:25
Neuropunka   несколько наворочено вышло )) когда будет свободн...   4.06.2011 0:00
Lapp   Постой, а почему у тебя в функции стоит совсем не ...   4.06.2011 0:53
Neuropunka   Постой, а почему у тебя в функции стоит совсем не...   4.06.2011 1:11
Lapp   в том то и дело что я только эту знаю как делать, ...   4.06.2011 1:18
Neuropunka   Выход есть всегда )). Попробуй to pull yourself ...   4.06.2011 1:24
Lapp   Ты сейчас бьёшь по чайнику, и поверь до него очень...   4.06.2011 1:33
Neuropunka   =)) ну прости))) сяс сижу ковыряюсь((( [b]Добавле...   4.06.2011 1:45
Lapp   Почему SetColor распался на части? строка 23 И за...   4.06.2011 2:20
Neuropunka   [quote name='Lapp' date='4.06.2011 3:2...   4.06.2011 9:36
Lapp   Neuropunka, ты плохо выспалась? не с той ноги вст...   4.06.2011 10:04

« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 7.07.2025 7:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"