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

Програма не строит график

15.12.2015, 20:00. Показов 312. Ответов 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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Program dkr;
Uses crt,graph;
 
Var i,j:integer;
xmin,xmax:real;
root:array[1..100]of real;
files:text;
 
procedure Graficccc(x_min,x_max:real);
var
mx,my,z1,i1,min,max,a,b:real;
x,i,z,j,k,GrDriver,GrMode:integer;
p:string;
function F(x:real):real;
begin
F:=x*x*sin(3*x)*sin(3*x);
end;
begin
clrscr;
write('Vvedit a=');
readln(x_min);
write('Vvedit b=');
readln(x_max);
initgraph(grdriver,grmode,'');
setcolor(white);
i1:=a;
min:=F(i1);
max:=min;
setbkcolor(black);
setcolor(white);
setlinestyle(1,1,1);
 for i:=0 to 10 do
      line((getmaxx div 10)*i,0,(getmaxx div 10)*i,getmaxy);
 for i:=0 to 10 do
      line(0,(getmaxy div 10)*i,getmaxx,(getmaxy div 10)*i);
     setcolor(white);
     setlinestyle(0,1,2);
     Line(30,0,30,getmaxy);
     line(0,0,2,15);
     line(0,(getmaxy div 10)*10,getmaxx,(getmaxy div 10)*10);
     line(getmaxx,(getmaxy div 10)*10,getmaxx-15,(getmaxy div 10)*10-2);
     line(getmaxx,(getmaxy div 10)*10,getmaxx-15,(getmaxy div 10)*10+2);
     OutTextxy(getmaxx-15,getmaxy-25,'X');
     outtextxy(15,5,'Y');
for i:=0 to 10 do
     begin
          str(a+(b-a)/10*i:2:2,p);
          outtextxy((getmaxx div 10)*i,getmaxy-10,p);
     end;
for i:=1 to 500 do
     begin
          i1:=i1+(b-a)/500;
          z1:=F(i1);
                if z1>max then max:=z1;
          if z1<min then min:=z1;
     end;
for i:=0 to 10 do
     begin
          str(min+(max-min)/10*i:5:2,p);
          outtextxy(10,getmaxy-10-(getmaxy div 10)*i-10,p);
     end;
mx:=(getmaxx-10)/(b-a);
my:=(getmaxy-10)/abs(max-min);
i1:=a;
z:=round(getmaxy-(f(i1)-min)*my);
setcolor(red);
setlinestyle(0,1,3);
moveto(0,z-10);
     for i:=1 to 500 do
     begin
          i1:=i1+(b-a)/500;
          z:=round(getmaxy-(f(i1)-min)*my);
          x:=round((b-a)/500*mx*i);
          lineto(x,z-10);
     end;
end;
 
 
 
 
Procedure Calculation(var ar:array of real);
Var x_,y_,x1,y1,E:real;
begin
Writeln('Vvedit tochnist');
readln(E);
i:=0;
x_:=(xmin+xmax)/2;
while abs(x_-x1)>=E do
begin
  y_:=x_*cos(x_)-sin(x_);
  y1:=-x_*sin(x_);
  x1:=x_;
  x_:=x_-y_/y1;
  ar[i]:=x_;
  inc(i);
writeln(i,'-iteratia:');
writeln('Function:',y_:3:4,' ','Pox:',y1:3:5,' ','de x:',x_:3:5);
delay(2000);
end;
writeln(' ');
write('Korin:x=',x_:2:8);
delay(5000);
end;
 
Begin
Clrscr;
Writeln('Vvedit interval');
Write('a = ');
Readln(xmin);
Write('b = ');
Readln(xmax);
Calculation(root);
Graficccc(xmin,xmax);
Assign(files,'D:/dkr/12.txt');
rewrite(files);
For j:=1 to i do
Writeln(files,j,'korin=',root[j]:2:8);
close(files);
 
Readln;
CloseGraph;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2015, 20:00
Ответы с готовыми решениями:

Не правильно строит график
Вопрос в следующем график строит на интервале от 0 до+Uvh , а на до от-Uvh до+Uvh! Думаю проблемы в...

Составить программу на языке Pascal, которая строит график заданной функции
Составить программу на языке Pascal, которая строит график заданной функции (в координатах (F (x),...

Не строит график
Дано такое задание построить параметрически с помощью ezplot и ezsurf заданные функции....

Не строит график
Задание построить график h(t) если t принадлежит отрезку от 0 до 0.01 ввел данные а график не...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2015, 20:00

Не строит график
не хочет строить график, подскажите пожалуйста где ошибка тема лабы: приближение...

Не строит 3D график
Может кто с таким сталкивался? Поставила Mathcad 15. Не строит графики поверхности, ну вообщем 3D...

Почему не строит график
не строит график помогите кто чем может

Mathcad не строит график
Понадобилось изучить mathcad, скачал книге &quot;Теоретическая механика на базе Mathcad&quot;, скачал...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru