Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
kraaasoootka
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 67
1

графика..

06.02.2012, 13:56. Просмотров 366. Ответов 5
Метки нет (Все метки)

помогите пожалуйста сделать график функций y=cos(x/x^2) c интервалом [-5,0.2,5] в паскале..
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 13:56
Ответы с готовыми решениями:

Графика: построить 2 графика в одной координатной плоскости
Нужно построить 2 графика в одной координатной плоскости, но для начала нужно...

Написать программу построения графика функции.(Графика)
Написать программу построения графика функции y= x2 +2x-cos x на отрезке ....

Паскаль графика (построения графика функции)
как поставить х и у буквами в графике и пронумеровать ось рисками от 1......

Графика.Цена деления графика.
Нужно доделать сие творение!Не хватает цены деления хотя бы 3 засечки по иксу в...

графика
помогите,пожалуйста, написать задачу:нарисовать человека и подписать его части...

5
Puporev
Модератор
55461 / 42569 / 29421
Регистрация: 18.05.2008
Сообщений: 100,712
06.02.2012, 14:07 2
Цитата Сообщение от kraaasoootka Посмотреть сообщение
y=cos(x/x^2)
А все так в формуле? Вроде как это тоже самое что и y=cos(1/x)
0
kraaasoootka
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 67
06.02.2012, 14:21  [ТС] 3
Puporev, да, должно быть х/х в кв.(х^2)..
0
Puporev
Модератор
55461 / 42569 / 29421
Регистрация: 18.05.2008
Сообщений: 100,712
06.02.2012, 14:33 4
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses graph;
function F(x:real):real;
begin
F:=cos(x/(x*x));
end;
var xn,xk,x,y,mx,dx:real;
    x0,y0,my,i,px,py:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
xn:=-5;xk:=2.5;{интервал по Х}
x0:=round(getmaxX*(-xn)/(xk-xn));{центр экрана}
y0:=getmaxY div 2;
mx:=(getmaxX-60)/(xk-xn);{масштаб по Х}
my:=y0-40;{по У}
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
line(x0-3,y0+my,x0+3,y0+my);
outtextXY(x0-15,y0+my+10,'-1');
line(x0-3,y0-my,x0+3,y0-my);
outtextXY(x0-15,y0-my-10,'1');
for i:=1 to round(-xn)+1 do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
    str(i,s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx)+10,y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
setcolor(8);
{левая ветка}
x:=xn;
dx:=0.001;
moveto(x0+round(x*mx),y0-round(F(x)*my));
while x<-0.01 do
 begin
  x:=x+dx; {наращиваем х}
  lineto(x0+round(x*mx),y0-round(F(x)*my));
 end;
{правая ветка}
x:=xk;
dx:=0.001;
moveto(x0+round(x*mx),y0-round(F(x)*my));
while x>0.01 do
 begin
  x:=x-dx; {наращиваем х}
  lineto(x0+round(x*mx),y0-round(F(x)*my));
 end;
outtextXY(50,y0+100,'Grafik funktii Y=cos(x/x^2)');
readln
end.
1
kraaasoootka
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 67
06.02.2012, 14:57  [ТС] 5
Puporev, а как не через function?
1
Puporev
Модератор
55461 / 42569 / 29421
Регистрация: 18.05.2008
Сообщений: 100,712
06.02.2012, 15:14 6
У бери функцию и везде где есть в программе F(x) пиши это выражение, если тебе не лень.
0
06.02.2012, 15:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 15:14

Графика
Подскажите, пожалуйста, добрые люди, по какой формуле можно любой графический...

графика
1)Нарисовать прямоугольную рамку вдоль экрана( поля рисунка), используя...

Графика
Кривые дракона могут быть построены с помощью следующего рекуррентного метода....


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

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

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