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

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

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

 
 Ответить  Открыть новую тему 
> Граф, выполнить графику
LLIypLLIyH
сообщение 12.06.2008 21:41
Сообщение #1





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

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


Пмогите зделать графику в паскале пожалста

y=|x-30|(в кубе)+40


я не могу понять как там
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 13.06.2008 2:50
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


поищи по форуму - была программка, рисующая график любой функции


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LLIypLLIyH
сообщение 15.06.2008 12:13
Сообщение #3





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

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


Цитата(мисс_граффити @ 13.06.2008 8:50) *

поищи по форуму - была программка, рисующая график любой функции
Я нашёл уже давно, вот только как эту формулу записать в код, я делаю а она полосы рисует левые
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.06.2008 12:22
Сообщение #4


Гость






Показывай программу, которая
Цитата
полосы рисует левые
... Мне просто интересно, как этого можно добиться...
 К началу страницы 
+ Ответить 
LLIypLLIyH
сообщение 15.06.2008 12:37
Сообщение #5





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

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


Цитата(volvo @ 15.06.2008 18:22) *

Показывай программу, которая ... Мне просто интересно, как этого можно добиться...


Код
program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.00001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=40;
mtrY=40;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'E:\bp\bgi');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
if x<>0 then begin y:=abs((x-30)*(x-30)*(x-30))+40;
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.


Сообщение отредактировано: LLIypLLIyH - 15.06.2008 12:38
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.06.2008 13:00
Сообщение #6


Гость






Ну, во-первых, у тебя выше записана функция |(x - 30)3| + 40, а тебе надо |x - 30|3 + 40 (хотя в принципе одно и то же, но чего бы не написать, как следует?)

Во-вторых, что за ограничение на X = 0? Там, где ты взял эту программу это ограничение нужно, здесь - нет...

Ну, и наконец, ты смотрел, чему равен Y при X = -50? Константы поправь вот так:

{ OPTIONS }
shag=0.1;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=0.001;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

, может что-нибудь и получится...
 К началу страницы 
+ Ответить 
LLIypLLIyH
сообщение 15.06.2008 13:08
Сообщение #7





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

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


Цитата(volvo @ 15.06.2008 19:00) *

Ну, во-первых, у тебя выше записана функция |(x - 30)3| + 40, а тебе надо |x - 30|3 + 40 (хотя в принципе одно и то же, но чего бы не написать, как следует?)

Во-вторых, что за ограничение на X = 0? Там, где ты взял эту программу это ограничение нужно, здесь - нет...

Ну, и наконец, ты смотрел, чему равен Y при X = -50? Константы поправь вот так:

{ OPTIONS }
shag=0.1;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=0.001;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

, может что-нибудь и получится...


Ещё нужно на осях написать цифры
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.06.2008 13:22
Сообщение #8


Гость






Пользуйся поиском, наконец... Я лично выкладывал программу, которая пишет цифры на осях, и рисует стрелочки, так что не надо говорить, что этого нет на форуме... А в первом посте не было про цифры ничего...

Может, тебе еще понадобится, чтоб программа тебе дверь открывала, еду подогревала и тапочки приносила? ("Аппетит приходит во время еды" (С), правда? Тем более, если САМ ничего не делаешь, а только говоришь, что тебе НУЖНО... Нужно - делай.)
 К началу страницы 
+ Ответить 

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

 



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