Помощь - Поиск - Пользователи - Календарь
Полная версия: Иследовать область оперделение и построить график функций.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Credo
Иследовать область определение и построить график функций 1/x^2-3x+1. Как подогнать под осей x и y. Дело в том что график функций впустую чертица на черном фоне. мне нужно как вот в таком
Изображение
uses graph;
var gd,gm:integer;
x0,y0:integer;
x,y,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then
begin
putpixel(x0+round(x*20) , y0-round(y*20) , 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
begin
y:=x/(x*x-3*x+1);
putpixel(x0+round(x*20),round(y0-round(y*20)),12);
x:=x+dx;
end;
readln;
closegraph;
end.


Client
ну а как разбить отрезок на равные части знаешь?
так и тут, через нужное расстояние (в пикселях) выводишь полоску и число
и поищи по форуму, не один раз делалось
-TarasBer-
Название темы лол
Credo
Спасибо, написал если кому надо будет
uses graph;
var gd,gm:integer;
x0,y0:integer;
x,y,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
putpixel(x0,y0,8);
line(x0,y0-300,x0,y0+300);
line(x0-300,y0,x0+300,y0);
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then
begin
putpixel(x0+round(x*20) , y0-round(y*20) , 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
begin
y:=x/(x*x-3*x+1);
putpixel(x0+round(x*20),round(y0-round(y*20)),12);
x:=x+dx;
end;
readln;
closegraph;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.