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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ