Циклы
Задание:
S=1/2 - 2/(3+4) + 3/(4+5+6) - 4/(5+6+7+8) + ....
Нужно ввести n, сколько n будет равно столько и будет слагаемых. В знаменателе первое слагаемое всегда больше на 1 чем в числителе.
Мои наработки:
a:=0;
p:=0;
x:=0;
for i:=1 to n do
begin
for g:=1 to n do
begin
y:=g+1;
p:=p+y;
end;
a:=a+1;
s:=a/p;
End
Прошу помочь, заранее благодарен.
S=1/2 - 2/(3+4) + 3/(4+5+6) - 4/(5+6+7+8) + ....
Нужно ввести n, сколько n будет равно столько и будет слагаемых. В знаменателе первое слагаемое всегда больше на 1 чем в числителе.
Мои наработки:
a:=0;
p:=0;
x:=0;
for i:=1 to n do
begin
for g:=1 to n do
begin
y:=g+1;
p:=p+y;
end;
a:=a+1;
s:=a/p;
End
Прошу помочь, заранее благодарен.
[highlight=pascal]
var
n:integer; {Вводимое число}
S, {Искомое значение}
part:real; {Знаменатель i-го слагаемого}
i,j:integer; {Счетчики циклов}
begin
writeln('Enter N value:'); {Выводим приглашение}
readln(N); {Получаем значение N от пользователя}
S:=0; {В сумму устанавливаем изначально 0}
for i:=1 to N do {Проходим циклом по слагаемым, i - номер слагаемого}
begin
part:=0; {Инициируем знаменатель i-го слагаемого нулем}
for j:=1 to i do {Проходим циклом по знаменателю}
part:=part+(i+j); {Добавляем к знаменателю следующее слагаемое}
S:=S+i/part; {Прибавляем i-е слагаемое к общей сумме}
end;
Writeln('S= ',S:6:3); {Выводим сумму, S:6:3 означает что под S отводится 6 знакомест на экране
и оно выводится с точностью до 3х знаков после запятой}
Readln; {Ожидаем нажатия кнопки Enter - чтобы программа не закрылась}
end.
[/highlight]
Не компилил, проверяй сам. И к сведению: то что ты отписал свой код - просто замечательно. Но в дальнейшем оформляй его как код. Например для паскаля - заключай в BB-коды [ highlight=pascal]код[ /highlight] (без пробелов разумеется).
var
n:integer; {Вводимое число}
S, {Искомое значение}
part:real; {Знаменатель i-го слагаемого}
i,j:integer; {Счетчики циклов}
begin
writeln('Enter N value:'); {Выводим приглашение}
readln(N); {Получаем значение N от пользователя}
S:=0; {В сумму устанавливаем изначально 0}
for i:=1 to N do {Проходим циклом по слагаемым, i - номер слагаемого}
begin
part:=0; {Инициируем знаменатель i-го слагаемого нулем}
for j:=1 to i do {Проходим циклом по знаменателю}
part:=part+(i+j); {Добавляем к знаменателю следующее слагаемое}
S:=S+i/part; {Прибавляем i-е слагаемое к общей сумме}
end;
Writeln('S= ',S:6:3); {Выводим сумму, S:6:3 означает что под S отводится 6 знакомест на экране
и оно выводится с точностью до 3х знаков после запятой}
Readln; {Ожидаем нажатия кнопки Enter - чтобы программа не закрылась}
end.
[/highlight]
Не компилил, проверяй сам. И к сведению: то что ты отписал свой код - просто замечательно. Но в дальнейшем оформляй его как код. Например для паскаля - заключай в BB-коды [ highlight=pascal]код[ /highlight] (без пробелов разумеется).
спасибо, очень выручил