И Вам здравствовать.
Разрешите приступить? Разрешаете? Благодарю - Вы чрезвычайно любезны!
Цитата:
Сообщение от denisova
1) найти обобщенную формулу (или формулы) вычисления;
|
Боже, как пышно! Нашел:
Цитата:
Сообщение от denisova
2) разработать алгоритм вычисления значения переменной S (см. задания) и построить на экране таблицу ее значений в виде: s[i] - все промежуточные значения полученные в процессе вычислений.
|
Разработал. Построил. Вот:
Код:
Var
i:byte;
p:Integer;
S:Real;
Begin
Writeln('i S[i]');
Writeln('-----------------');
S:=0;
p:=-1;
For i:=1 to 5 do
begin
p:=-p;
S:=S+p/(2*i*(2*i+1)*(2*i+2));
writeln(i,3+4*S:16:8);
end;
Readln
End.
А что касается второй задачи, то, несмотря на очаровательно-изысканную форму выражения просьбы, вынужден данную просьбу отклонить, ибо решением программистских задач для второгодников младшей группы яслей для умственно-отсталых, увы, не занимаюсь.