Question

S=2n/n+1.a<=n<=100 срочно пж

Answer 1

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

Answer 2

Из вашего запроса не совсем ясно, что нужно сделать с данной формулой. Я предполагаю, что вам нужно вычислить значение выражения S для различных значений n от 2 до 100. Пожалуйста, уточните, если моя интерпретация неверна.

Если это так, то формула S=2n/(n+1) дает нам выражение, которое зависит от переменной n. Мы можем вычислить значение S для различных значений n от 2 до 100. Вот как это можно сделать:

makefileCopy code
n = 2
S = 2 * n / (n + 1) = 2 * 2 / (2 + 1) = 4 / 3 ≈ 1.3333

n = 3
S = 2 * n / (n + 1) = 2 * 3 / (3 + 1) = 6 / 4 = 1.5

n = 4
S = 2 * n / (n + 1) = 2 * 4 / (4 + 1) = 8 / 5 = 1.6

...

n = 100
S = 2 * n / (n + 1) = 2 * 100 / (100 + 1) = 200 / 101 ≈ 1.9802

Таким образом, значения S для n от 2 до 100 будут приблизительно следующими:

makefileCopy code
n=2: S ≈ 1.3333
n=3: S ≈ 1.5
n=4: S ≈ 1.6
...
n=100: S ≈ 1.9802

Пожалуйста, уточните, если я неправильно понял ваш запрос или если вам нужно что-то другое.