furymaxim
1 / 1 / 0
Регистрация: 25.09.2016
Сообщений: 102
#1
Правильно сделано возведение в степень? - Pascal
11.12.2017, 17:32. Просмотров 79. Ответов 3
Метки нет (Все метки)
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
program number15;
const
x0=-2;
hx=0.5;
xn=3.5;
nn1=8;
nn2=6;
var
s1,s2,z,y,k,x,xs:real;
n:integer;
begin
x:=x0;
while x <= xn do<br> begin
s1:=0;
xs:=1;
for n:=1 to nn1 do
begin
xs:=xs*x;
s1:=s1+(xs/(2*n));
end;
y:=(x/2)*s1;
s2:=0;
xs:=1;
for n:=1 to nn2 do
begin
xs:=xs*x*x;
s2:=s2+(xs)/(4*n);
end;
k:=((x*x+1)/3)*s2;
z:=y+k;
writeln('x = ',x,' Z = ',z:2:2);
x:=x+hx;
end;
end.
xs:=1;
for n:=1 to nn1 do
begin
xs:=xs*x;
x^n
xs:=1;
for n:=1 to nn2 do
xs:=xs*x*x;
s2:=s2+(xs)/(4*n);
x^2*n