Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Рус777
17 / 17 / 0
Регистрация: 25.01.2009
Сообщений: 63
#1

задача на построение графика

12.03.2009, 15:53. Просмотров 1044. Ответов 3
Метки нет (Все метки)

помогите составить прогу которая будет показывать график функции
y=x*x+2; заранее спс
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2009, 15:53
Ответы с готовыми решениями:

Построение графика
Вообщем, проблемма не в самой постройке графика.. А скажем так в задании там...

Построение графика
Построить семейство кривых y = f(x) для указанных значений параметра...

Построение графика
1.Построить горизонтальную и вертикальную координатные оси. 2.Подписать...

построение графика
помогите кто может! Программа состоит из следующих шагов: 1. Инициализация...

Построение графика.
Построить график указанной функции. (x2+y2-ax)2-L2(x2+y2)=0, a>0, L>0

3
begemotikdin
16 / 16 / 6
Регистрация: 21.02.2009
Сообщений: 67
12.03.2009, 18:36 #2
Код
uses  Graph;
var
x1,x2:real;
y1,y2:real;
x:real;
y:real;
dx:real;
l,b,w,h:integer;
mx,my:real;
x0,y0:integer;
st:string;
grDriver:integer;
grMode:integer;
ErrCode:integer;

Function f(x:real):real;
 begin
  f:=x*x+2;
 end;
BEGIN
 grDriver:=VGA;
 grMode:=VGAHi;
 InitGraph(grDriver,grMode,'{здесь пишешь адрес, где нах-ся файл bgi}');
 ErrCode:=GraphResult;
 if ErrCode<> grOk then Halt(1);
 l:=300;
 b:=400;
 h:=200;
 w:=200;

 x1:=0;
 x2:=25;
 dx:=0.01;
 y1:=f(x1);
 y2:=f(x1);
 x:=x1;
  repeat
   y:=f(x);
   if y<y1 then y1:=y;
   if y>y2 then y2:=y;
   x:=x+dx;
  until x>=x2;
 my:=h/abs(y2-y1);
 mx:=w/abs(x2-x1);
 x0:=1;
 y0:=b-abs(Round(y1*my));
 Line(l,b,l,b-h);
 Line(x0,y0,x0+w,y0);
 Str(y2:5:1,st);
 OutTextXY(l+5,b-h,st);
 Str(y1:5:1,st);
 OutTextXY(l+5,b,st);

 x:=x1;
  repeat
   y:=f(x);
   PutPixel(x0+Round(x*mx),y0-Round(y*my),15);
   x:=x+dx;
  until x>=x2;
readln;
CloseGraph;
END.
1
Рус777
17 / 17 / 0
Регистрация: 25.01.2009
Сообщений: 63
12.03.2009, 19:22  [ТС] #3
begemotikdin и еще небольшая просьба....можешь расписать пошагово что мы делаем...какой оператор для чего он нужен и тд. ??????...а то я ниче не понимаю в графиках...
0
begemotikdin
16 / 16 / 6
Регистрация: 21.02.2009
Сообщений: 67
12.03.2009, 19:54 #4
щас минутку

Добавлено через 11 минут 26 секунд
Код
uses  Graph;
var
x1,x2:real;{границы измерения аргумента функции}
y1,y2:real;{значения функции}
x:real;{аргумент функции}
y:real;{знначении функции в точке x}
dx:real;{приращение аргумента}
l,b:integer;{левый нижий угол области вывода графика функции}
w,h:integer;{ширина и высота области вывода графика}
mx,my:real;{масштаб}
x0,y0:integer;{наало координат}
st:string;{изображение числа}
grDriver:integer;
grMode:integer;
ErrCode:integer;
{функция, которую надо построить}
Function f(x:real):real;
 begin
  f:=x*x+2;
 end;
BEGIN
 grDriver:=VGA;
 grMode:=VGAHi;
 InitGraph(grDriver,grMode,'{здесь пишешь адрес, где нах-ся файл bgi}');
 ErrCode:=GraphResult;
 if ErrCode<> grOk then Halt(1);
 l:=300;
 b:=400;
 h:=200;
 w:=200;

 x1:=0;
 x2:=25;
 dx:=0.01;
{найдем макси мин значения фукции}
 y1:=f(x1);
 y2:=f(x1);
 x:=x1;
  repeat
   y:=f(x);
   if y<y1 then y1:=y;
   if y>y2 then y2:=y;
   x:=x+dx;
  until x>=x2;
 my:=h/abs(y2-y1);
 mx:=w/abs(x2-x1);
 x0:=1;
 y0:=b-abs(Round(y1*my));
 Line(l,b,l,b-h);
 Line(x0,y0,x0+w,y0);
 Str(y2:5:1,st);
 OutTextXY(l+5,b-h,st);
 Str(y1:5:1,st);
 OutTextXY(l+5,b,st);
{построение графика}
 x:=x1;
  repeat
   y:=f(x);
   PutPixel(x0+Round(x*mx),y0-Round(y*my),15);
   x:=x+dx;
  until x>=x2;
readln;
CloseGraph;
END.
[/QUOTE]
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2009, 19:54

Построение графика функции
Очень нужна ваша помощь. Задание такое: построить график функции y=(2*x-7)/x с...

Построение графика функции
Нужно построить график функции, методом половинного деления, оптимум:min,...

Построение графика функции
Друзья, график этой функции tgX+sqrt(e(X)-1) доставил мне не мало проблем и я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru