Построение графика функции - Pascal ABC (14805)

Формулировка задачи:

Помогите построить график функции 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


textual

Код к задаче: «Построение графика функции - Pascal ABC (14805)»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.333 из 5

Источник