Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Как построить график функции Y=f(x)

Автор: Needle 24.11.2006 2:58

построить график функции y=f(x) на паскале

Автор: volvo 24.11.2006 3:28

http://forum.pascal.net.ru/index.php?s=&showtopic=2729&view=findpost&p=23770

(подставь свою функцию)

Автор: Гость 24.11.2006 3:39

Спасиб

Автор: needle 26.11.2006 4:40

В чём ошибка ? 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 4:43

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

+ пользуйся тегами...

Автор: Гость 26.11.2006 4:50

Сори был невнемателен dry.gif
Спасибо smile.gif

Автор: Гость 28.11.2006 1:10

А почему то ось ординат под 45 градусов?