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

График функции

11.05.2010, 21:53. Просмотров 539. Ответов 0
Метки нет (Все метки)

Надо нарисовать график функиции построив его по уравнению tgx-0.5x+1=0
Программу я нашол на форуме и попытался переделать но в итоге ничего вообще не выводит только систему координат помогите исправить ошибку заранее спасибо

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
79
80
uses crt,graph;
function F(x:real):real;
begin
F:=(sin(x)/cos(x))-(0.5*x)+1;
end;
const
x1=-5;
x2=5;
var e,x,dx,mx,my,a,y:real;
    x0,y0,grD,px,py,grM,i,k:integer;
    s,s1:string;
begin
clrscr;
writeln('Nahozdenie korney uravnenia 1-x+3ctg2x=0');
writeln('na intervale [-5;5] s tochnostjyu 0.005');
writeln;
e:=0.005;
dx:=2*e;
x:=-5;
i:=0;
while x<=5+e do
 begin
  if (abs(sin(x))>e)and(abs(sin(x+dx))>e)
  and(abs(F(x)+abs(F(x+dx)))<1)
  and(F(x)*F(x+dx)<0)
  then
   begin
    i:=i+1;
    writeln('x',i,'=',(x+dx)/2:6:3);
   end;
  x:=x+dx;
 end;
write('Press Enter...');
readln;
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;
Y0:=getmaxY div 2;
mx:=600/(x2-x1);
my:=420/24;
SetBkColor(7);
setlinestyle(0,0,1);
SetColor(1);
line(0,y0,getmaxX,y0);
line(x0,getmaxy,x0,0);
setlinestyle(1,0,0);
Setcolor(9);
for i:=1 to 12 do
   begin
    line(x0+round(i*mx),0,x0+round(i*mx),getmaxY);
    line(x0-round(i*mx),0,x0-round(i*mx),getmaxY);
    str(i,s);
    outtextXY(x0-10,y0-round(i*my),s);
    outtextXY(x0-15,y0+round(i*my),'-'+s);
    str(i,s);
    outtextXY(x0+round(i*mx),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');
dx:=0.001;
delay(10000);
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx);
     if abs(sin(x))>0.001 then
      begin
       y:=(sin(x)/cos(x))-(0.5*x)+1;
       py:=y0-round(y*my);
       putpixel(px,py,10);
      end;
     x:=x+dx;
   end;
setcolor(10);
setlinestyle(0,0,1);
outtextXY(75,30,'Grafik functii Y=tgx-0.5x+1');
readln
end.
Добавлено через 51 минуту
помоги плиз

Добавлено через 3 часа 31 минуту
вверх

Добавлено через 1 час 48 минут
хоть кто нибудь помогите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2010, 21:53
Ответы с готовыми решениями:

Построить график функции и отметить точки пересечения функции с осями координат
Построить график функции при значении коэффициентов: а = 2, b = 3. Отметить точки пересечения...

Построить график функции f (x) таким образом, чтобы были видны все корни функции
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Построить график функции f(x) таким образом, чтобы были...

Построить график функции f (x) таким образом, чтобы были видны все корни функции
1. Построить график функции f(x) таким образом, чтобы были видны все корни функции. 2. Графически...

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

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2010, 21:53

Построить график функции, на этом же графике построить графики первой и второй производных функции
построить график функции,на этом же графике построить графики первой и второй производных...

График функции
Составить программу для построения графика функции. Предусмотреть построение осей. (3х-2) - это...

График функции
Помогите сделать график y=(sin(x))^1/3 в паскале


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

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

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