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

@Valet194 · Регистрация: 17.06.2015

Author24 — интернет-сервис помощи студентам

Помогите построить график функции x*(x-1)*(x-1)*(x-1)*(x-1). ~~Значения функции на картинке.~~
Буду очень благодарен.

Код

x         fun1
1.0      0.000
1.1      0.000
1.2      0.002
1.3      0.011
1.4      0.036
1.5      0.094
1.6      0.207
1.7      0.408
1.8      0.737
1.9      1.247
2.0      2.000
2.1      3.075
2.2      4.562
2.3      6.569
2.4      9.220
2.5     12.656
2.6     17.039
2.7     22.551
2.8     29.393
2.9     37.793
3.0     48.000
0.8      0.002
1.6      0.167
2.4      7.971
3.1     66.084

@Valet194 · 17.06.2015, 23:08 **[ТС]**

Вроде как есть решённое,но это обычный паскаль,а нужно на abc.На всякий случай кину код.

Pascal

Program Grafik;
Uses CRT, GRAPH; 
const
kat='c:\Programs\Pascal\BGI'; 
var
g                  : string;
j,yo,r,q,v,w       : integer;
Ymax,Ymin,Xmax,x,m,h : real; 
Function F(x:real):real;
Begin
F:=x*(x-1)*(x-1)*(x-1)*(x-1); 
End;
 
Begin 
Ymax:=66;
Ymin:=0;
Xmax:=PI; 
v:=VGA; 
w:=VGAHi;
Initgraph(v,w,kat); 
m:=460/(Ymax-Ymin); 
yo:=8+Round(m*Ymax); 
r:=yo-Trunc(yo/23)*23;
Line(39,yo,639,yo); Outtextxy(632,yo-3,'>'); 
Line(39,468,39,0);  Outtextxy(36,0,'^');
Line(39,468,639,468); 
for q:=0 to Trunc((468-r)/23) do 
begin
for j:=1 to 20 do Putpixel(39+30*j,r+23*q,14); 
Str((yo-r-23*q)/m:5:2,g); 
if yo=(r+23*q) then g:='    0';
Outtextxy(0,r+23*q-3,g); 
end;
Outtextxy(39,472,'0');
for q:=1 to 10 do 
begin
Str(q*Xmax/10:4:2,g);
Outtextxy(8+60*q,472,g);
Outtextxy(36+60*q,465,'+'); 
end;
 
h:=Xmax/600;
x:=0;
Setcolor(10); 
for j:=1 to 600 do 
begin
Line (j+38,yo-Round(F(x)*m),j+39,yo-Round(F(x+h)*m));
x:=x+h;
Delay(500); 
end; 
g:=Readkey;
Closegraph;
End.

@ZX Spectrum-128 · 20.06.2015, 10:33

Только графика я не увидел в исходной программе.

Pascal

Program Grafik;
Uses CRT, GRAPHABC;
const
kat='c:\Programs\Pascal\BGI';
var
g                  : string;
j,yo,r,q,v,w       : integer;
Ymax,Ymin,Xmax,x,m,h : real;
Function F(x:real):real;
Begin
F:=x*(x-1)*(x-1)*(x-1)*(x-1);
End;
 
Begin
Ymax:=66;
Ymin:=0;
Xmax:=PI;
SetWindowSize(640,480);
SetFontSize(6);
m:=460/(Ymax-Ymin);
yo:=8+Round(m*Ymax);
r:=yo-Trunc(yo/23)*23;
Line(39,yo,639,yo); textOut(632,yo-3,'>');
Line(39,468,39,0);  textOut(36,0,'^');
Line(39,468,639,468);
for q:=0 to Trunc((468-r)/23) do
begin
for j:=1 to 20 do Putpixel(39+30*j,r+23*q,14);
Str((yo-r-23*q)/m:5:2,g);
if yo=(r+23*q) then g:='    0';
TextOut(0,r+23*q-3,g);
end;
TextOut(39,472,'0');
for q:=1 to 10 do
begin
Str(q*Xmax/10:4:2,g);
TextOut(8+60*q,472,g);
TextOut(36+60*q,465,'+');
end;
 
h:=Xmax/600;
x:=0;
SetPencolor(clYellow);
for j:=1 to 600 do
begin
Line (j+38,yo-Round(F(x)*m),j+39,yo-Round(F(x+h)*m));
x:=x+h;
// Delay(500);
end;
g:=Readkey;
End.

Добавлено через 2 минуты
Delay в 48-й строке надо было убрать.

@Valet194 · 20.06.2015, 17:28 **[ТС]**

Вот,выписывает ошибку.

@Puporev · 20.06.2015, 17:34

Pascal

1 2	for j:=1 to 20 do Setpixel(39+30j,r+23q,clYellow);

@Valet194 · 20.06.2015, 17:49 **[ТС]**

Всё отлично работает,спасибо.

@Valet194 2 / 2 / 1 Регистрация: 17.06.2015 Сообщений: 45
		1
	Построение графика функции 17.06.2015, 22:43. Показов 1912. Ответов 5 Метки нет (Все метки) Помогите построить график функции x(x-1)(x-1)(x-1)(x-1). ~~Значения функции на картинке.~~ Буду очень благодарен. Код x fun1 1.0 0.000 1.1 0.000 1.2 0.002 1.3 0.011 1.4 0.036 1.5 0.094 1.6 0.207 1.7 0.408 1.8 0.737 1.9 1.247 2.0 2.000 2.1 3.075 2.2 4.562 2.3 6.569 2.4 9.220 2.5 12.656 2.6 17.039 2.7 22.551 2.8 29.393 2.9 37.793 3.0 48.000 0.8 0.002 1.6 0.167 2.4 7.971 3.1 66.084 0

@Valet194 2 / 2 / 1 Регистрация: 17.06.2015 Сообщений: 45
	20.06.2015, 17:28 [ТС]	4
	Вот,выписывает ошибку. Миниатюры 0

@Valet194 2 / 2 / 1 Регистрация: 17.06.2015 Сообщений: 45
	20.06.2015, 17:49 [ТС]	6
	Всё отлично работает,спасибо. 0

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

Решение