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

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

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

 
 Ответить  Открыть новую тему 
> Как построить график функции Y=f(x), построить график функции y=f(x)
Needle
сообщение 23.11.2006 22:58
Сообщение #1


Гость






построить график функции y=f(x) на паскале
 К началу страницы 
+ Ответить 
volvo
сообщение 23.11.2006 23:28
Сообщение #2


Гость






Построение любого графика

(подставь свою функцию)
 К началу страницы 
+ Ответить 
Гость
сообщение 23.11.2006 23:39
Сообщение #3


Гость






Спасиб
 К началу страницы 
+ Ответить 
needle
сообщение 26.11.2006 0:40
Сообщение #4


Гость






В чём ошибка ? mega_chok.gif
{$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<>1 then begin y:=3/x; {***}
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.
 К началу страницы 
+ Ответить 
volvo
сообщение 26.11.2006 0:43
Сообщение #5


Гость






Цитата
В чём ошибка ?
Неужели не видно, что при X = 0 будет деление на 0?

+ пользуйся тегами...
 К началу страницы 
+ Ответить 
Гость
сообщение 26.11.2006 0:50
Сообщение #6


Гость






Сори был невнемателен dry.gif
Спасибо smile.gif
 К началу страницы 
+ Ответить 
Гость
сообщение 27.11.2006 21:10
Сообщение #7


Гость






А почему то ось ординат под 45 градусов?
 К началу страницы 
+ Ответить 

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

 



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