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

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

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

> Построение любого графика, может это кому надо ...
сообщение
Сообщение #1


Ищущий истину
******

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

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


Мне нужно было иногда рисовать графики (для матана). Я довольно ленивый, а потому написал прогу для их постоения. Онадалекаот совершенства, но может кому надо...
изменяя выражение {***} и опции можно строить любые графики.
Код
{$N+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
     grMode : Integer;

   x,y:real;{extended;}
       i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
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
{ readln(x);}
{***} if x<>2 then begin y:=abs(x/(x-2))-1; {***}
{ writeln(y:1:8);}
 putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
 x:=x+shag;
end;
readkey;
closegraph;
end.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Altair   Построение любого графика   9.10.2004 0:22
Таги   Здорова...куда тут нужно свою функцию ставить скаж…   30.12.2005 0:21
GoodWind   место, куда подставляется фунция выделено так: {**…   30.12.2005 0:30
Таги   Почему када компилируешь ничего не происходит...то…   30.12.2005 0:42
GoodWind   код покажи..   30.12.2005 0:57
Таги   {$N+} {$E+} Uses Graph,crt; const { OP…   30.12.2005 1:08
volvo   Таги, у тебя при X = 0 происходит Division By Zero…   30.12.2005 1:23
Таги   ok...спасибо..работает...   30.12.2005 1:26
madpanda   Вот воспользовался этой программой для построения …   14.04.2006 5:54
klem4   Ументш диапазон например -10 ... 10   14.04.2006 10:52
Altair   На Free Pascal у меня отработало без ошибок. Толь…   14.04.2006 11:46
Гость   было бы здорово, если бы автор добавил описания к …   11.10.2006 18:14
volvo   const { OPTIONS } shag = 0.0001; { <-- …   11.10.2006 18:27
NadBlack   У меня почему то не получилось построить график за…   15.10.2006 2:02
Bokul   Странно, у меня все хорошо отрисовало в FreePascal…   15.10.2006 2:38
volvo   NadBlack, в Турбо Паскале тоже прекрасно отрисовыв…   15.10.2006 2:45
Гость   Хм,у меня возможно из-за неполной версии паскаля т…   15.10.2006 3:27
Bokul   Гость, ты что смеешься? :blink: Вот так: if tr…   15.10.2006 5:10
Reflex   как построить график функции X^X   16.10.2006 1:05
Atos   http://forum.pascal.net.ru/index.php?showt...&st=0…   16.10.2006 17:16


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

 





- Текстовая версия 24.10.2021 7:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name