Unsubscribe from irrelevant news
To unsubscribe from another user's news, click the settings icon in this post and select the necessary option.
Все
Guestbook
More
Антон Римский
answered the question
11 May 2017 at 15:10
otvet-reply.html
Антон Римский
понравилось
28 October 2015 at 22:33
Антон Римский
added a post
user-post.html
const a=-10; b=10; a0=1; a1=9.03; a2=3.17; a3=-74.00;
var L,M,P,Q,E,x,t,Px:real;
k:integer;
xr:real;
begin
t:=(b-a)/20;
xr:=-8;
for k:=1 to 20 do
begin
xr:=a+t*k;
write(xr:4:2,' ');
writeln(((a0*xr*xr*xr)+(a1*xr*xr)+(a2*xr)+a3):6:6);
end;
E:=-a1/(3*a0);
P:=(3*a0*E*E)+(2*a1*E)+a2;
Q:=(a0*E*E*E)+(a1*E*E)+(a2*E)+a3;
L:=sqrt(-4*P/3);
M:=-4*Q/(L*L*L);
for k:=1 to 3 do
begin
xr:=E+L*cos((1/3)*((arccos(M))+2*k*pi));
Px:=(a0*xr*xr*xr)+(a1*xr*xr)+(a2*xr)+a3;
Writeln('X=',xr);
Writeln('P(x)=',Px);
end;
end.
var L,M,P,Q,E,x,t,Px:real;
k:integer;
xr:real;
begin
t:=(b-a)/20;
xr:=-8;
for k:=1 to 20 do
begin
xr:=a+t*k;
write(xr:4:2,' ');
writeln(((a0*xr*xr*xr)+(a
end;
E:=-a1/(3*a0);
P:=(3*a0*E*E)+(2*a1*E)+a2
Q:=(a0*E*E*E)+(a1*E*E)+(a
L:=sqrt(-4*P/3);
M:=-4*Q/(L*L*L);
for k:=1 to 3 do
begin
xr:=E+L*cos((1/3)*((arcco
Px:=(a0*xr*xr*xr)+(a1*xr*
Writeln('X=',xr);
Writeln('P(x)=',Px);
end;
end.
Антон Римский
понравилось
9 July 2013 at 20:41
Антон Римский
понравилось
4 June 2013 at 15:27
3 comments
Антон Римский
понравилось
24 May 2013 at 21:24
Антон Римский
понравилось
23 May 2013 at 14:44
Алексей Гражданкин
added a video
video-add.html
2:43
40
Я офигел что мужик творит...mp4
Save to my page
Антон Римский
понравилось
22 May 2013 at 21:23
163 comments
Антон Римский
понравилось
16 May 2013 at 21:42
6 comments
Uploading
Error loading page. Retry in 15 seconds.
Error loading page. Retry in 5 seconds.
Error loading page. Retry in 5 seconds.
Георгиевская ленточка
от
Veronika
Scheller (Shakhijanova)
���������
от
™ Меломан
™
Other people named Антон Римский in My World
