3 / 3 / 0
Регистрация: 13.04.2013
Сообщений: 20
1

Процедура Curve() для построения графика

11.05.2013, 00:22. Показов 2873. Ответов 5
Метки нет (Все метки)

Кто-нибудь использовал ее для построения графиков? Если не жалко, скиньте пример использования.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2013, 00:22
Ответы с готовыми решениями:

Программа для построения графика
Составить программу для построения графика функции в заданном интервале и с заданным шагом....

Функция для построения графика
сама функция:

Написать программу для построения графика функции
Написать программу для построения графика функции. y=sqrt(2x+6)

Составить программу для построения графика функции
Помогите плиз написать программу: Составить программу для построения графика функции y=1/cos(x) на...

5
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2013, 09:22 2
В Паскале АВС нет такой процедуры и вообще первый раз слышу, возможно это пользовательская процедура и написана кум-то для своей программы.
0
3 / 3 / 0
Регистрация: 13.04.2013
Сообщений: 20
11.05.2013, 10:01  [ТС] 3
В справке к Pascal ABC есть эта процедура
Pascal
1
procedure Curve(points: array of Point);
Рисует кривую по точкам, координаты которых заданы в массиве points
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2013, 12:31 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В Паскаль АВС.net есть, а в просто АВС нет...

Добавлено через 51 минуту
Вот пример графика y=sinx
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses graphABC;
var t:array of Point;
    x,y,mx,my:real;
    n,xc,yc,i:integer;
    s:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
mx:=(xc-30)/(2*pi);
my:=yc-20;
x:=-2*pi;
n:=0;
while x<=2*pi do
 begin
  y:=sin(x);
  n:=n+1;
  setlength(t,n);
  t[n-1].x:=xc+round(x*mx);
  t[n-1].y:=yc-round(y*my);
  x:=x+pi/4
 end;
line(0,yc,2*xc,yc); 
for i:=1 to 7 do
 begin
  str(i,s);
  line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
  line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
  textout(xc+round(i*mx),yc+15,s);
  textout(xc-round(i*mx),yc+15,'-'+s);
 end; 
line(xc,0,xc,2*yc);
for i:=1 to 10 do
 begin
  str(i/10:0:1,s);
  line(xc-3,yc-round(i*my/10),xc+3,yc-round(i*my/10));
  line(xc-3,yc+round(i*my/10),xc+3,yc+round(i*my/10));
  textout(xc-20,yc-round(i*my/10),s);
  textout(xc-25,yc+round(i*my/10),'-'+s);
 end; 
curve(t)
end.
0
3 / 3 / 0
Регистрация: 13.04.2013
Сообщений: 20
11.05.2013, 18:29  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
mx:=(xc-30)/(2*pi);
my:=yc-20;
Подскажите, как выбрать эти параметры (масштаб), если график arctg(x)+b и их 2 в одном окне
Миниатюры
Процедура Curve() для построения графика  
0
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.05.2013, 19:01 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Один нормальный график рисуют так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses graphABC;
var t:array of Point;
    x,y,mx,my:real;
    n,xc,yc,i:integer;
    s:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
mx:=(xc-30)/10;
my:=yc/(pi);
x:=-10;
n:=0;
while x<=10 do
 begin
  y:=arctan(x);
  n:=n+1;
  setlength(t,n);
  t[n-1].x:=xc+round(x*mx);
  t[n-1].y:=yc-round(y*my);
  x:=x+1
 end;
line(0,yc,2*xc,yc); 
for i:=1 to 10 do
 begin
  str(i,s);
  line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
  line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
  textout(xc+round(i*mx),yc+15,s);
  textout(xc-round(i*mx),yc+15,'-'+s);
 end; 
line(xc,0,xc,2*yc);
setpencolor(clRed);
line(0,yc-round(pi/2*my),2*xc,yc-round(pi/2*my));
line(0,yc+round(pi/2*my),2*xc,yc+round(pi/2*my));
textout(xc-30,yc-round(pi/2*my)-20,'pi/2');
textout(xc-35,yc+round(pi/2*my)+10,'-pi/2');
setpencolor(clBlue);
curve(t)
end.
А 2 обычных в принципе несложно, но проблема с +b, на сколько вверх и вниз...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2013, 19:01

В текстовый файл вывести данные для построения графика y(x).
function F(x:real):real; begin F:=sin(x)/(1+x); end; var xn,xk,x,dx,y,ymn,xmn,z,t:real; ...

Написать программу для построения графика функции sinx=x^2
В PascalABC.Совершенно не знаю как программы для графиков писать.

Разработать программу для построения графика функции, заданной параметрическим уравнением
Пожалуйста помогите с заданием, будьте добры, заранее благодарен искренне... Разработать программу...

Разработать программу для построения графика функции, заданной параметрическим уравнением
Простите я тупой, некудышный, студент который не может сделать задачу. Надеюсь на ваш ответ...


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

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

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