С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Александримя
2 / 2 / 2
Регистрация: 18.11.2012
Сообщений: 152
1

Построить графики функций и найти точки их пересечения

12.03.2013, 21:42. Просмотров 1089. Ответов 1
Метки нет (Все метки)

построить графики функций и найти точки их пересечения y=1-x, y=2x|x-1|.

вот эта программа вроде подходит,нужно лишь поменять функцию,мне помог Puporev
Построить графики функций и найти их пересечения
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2013, 21:42
Ответы с готовыми решениями:

Построить графики функций и найти точки их пересечения
1.построить графики функций и найти точки их пересечения y=sqrt(2x-7), y=x-8

Построить графики функций и найти точки их пересечения
требуется построить графики функций и найти точки их пересечения y=2+x,...

Построить графики функций и найти точки их пересечения y=e^x, y=4x+1
Построить графики функций и найти точки их пересечения y=e^x, y=4x+1

Построить графики функций и найти точки их пересечения
1. Построить графики функций и найти точки их пересечения : a) y=x^4, b)...

Построить графики функций и найти их пересечения
построить графики функций и найти их пересечения y=sin2x, y=0,5-cos2x

1
Puporev
Модератор
55499 / 42591 / 29438
Регистрация: 18.05.2008
Сообщений: 100,748
13.03.2013, 09:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses graphABC;
function F1(x:real):real;
begin
F1:=1-x;
end;
function F2(x:real):real;
begin
F2:=2*x*abs(x-1);
end;
var xn,xk,x,max,min,mx,my,dx,x1:real;
    x0,y0,n,i:integer;
    s,s1:string;
begin
xn:=-1;//интервал по Х
xk:=2;
x0:=round(windowwidth*(-xn)/(xk-xn));{начало координат}
y0:=windowheight div 2;
max:=F1(xn); //найдем макс и мин для графика
min:=max;
x:=xn;
while x<=xk do
 begin
  if F1(x)>max then max:=F1(x);
  if F2(x)>max then max:=F2(x);
  if F1(x)<min then min:=F1(x);
  if F2(x)<min then min:=F2(x);
  x:=x+0.01;
 end;
mx:=(x0-10)/-xn;{масштаб по Х}
if max>abs(min)then my:=(y0-40)/max
else my:=(y0-30)/abs(min);{масштаб по У}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,x0,windowheight);
if xk>max then n:=round(xk) //макс.кол. засечек в 1 сторону
else n:=round(max);
if round(abs(min))>n then n:=round(abs(min));
for i:=1 to 2*n do{создаем оси координат}
  begin
    line(x0+round(i*mx/2),y0-3,x0+round(i*mx/2),y0+3); {засечки на оси Х}
    line(x0-round(i*mx/2),y0-3,x0-round(i*mx/2),y0+3);
    line(x0-3,y0+round(i*my/2),x0+3,y0+round(i*my/2)); //засечки на оси Y
    line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2));
    str(i/2:0:1,s);
    {подпись оси Х}
    textout(x0+round(i*mx/2)-15,y0+10,s);
    textout(x0-round(i*mx/2),y0+10,'-'+s);
    {подпись оси Y}
    textout(x0-25,y0+round(i*my/2),s);
    textout(x0-20,y0-round(i*my/2),'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-15,'X');
textout(x0+5,10, 'Y');
{графики}
textout(x0+100,y0+80,'Точки пересечения');
x:=xn;
dx:=0.001;
n:=0;
while x<=xk do
 begin
  setpixel(x0+round(x*mx),y0-round(F1(x)*my),clBlue);
  setpixel(x0+round(x*mx),y0-round(F2(x)*my),clRed);
  if abs(F1(x)-F2(x))<dx/10 then //точки пересечения
   begin
    x1:=x;
    n:=n+1;
    setbrushcolor(clGreen);
    circle(x0+round(x1*mx),y0-round(F1(x1)*my),3);
    str(n,s);
    str(x1:0:2,s1);
    setbrushstyle(bsClear);
    textout(x0+100,y0+80+n*20,'Точка '+s+' x= '+s1)
   end;
  x:=x+dx; {наращиваем х}
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2013, 09:41

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

Построить графики функций
Прошу,срочно помогите на паскале абс y=|x| y=x^2+2x+1 y=sinx * cosx...

Построить графики функций
Необходимо построить графики функций.В паскале ABC. Помогите пожалуйста!...


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

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

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