Помогите составить программу в Паскале

[denisova]

Помогите составить программу в Паскале

1) найти обобщенную формулу (или формулы) вычисления;
2) разработать алгоритм вычисления значения переменной S (см. задания) и построить на
экране таблицу ее значений в виде:
s - все промежуточные значения полученные в процессе вычислений.



S = 3 + 4*(1/(2*3*4) – 1/(4*5*6) + 1/(6*7*8) – 1/(8*9*10) +
+ 1/(10*11*12))

 

[denisova]

Обработать приведенную последовательность.
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найдите
наименьшее из всех положительных чисел последовательности.

 

[Vladimir_S]

И Вам здравствовать.
Разрешите приступить? Разрешаете? Благодарю - Вы чрезвычайно любезны!

1) найти обобщенную формулу (или формулы) вычисления;

Боже, как пышно! Нашел:

2) разработать алгоритм вычисления значения переменной S (см. задания) и построить на экране таблицу ее значений в виде: s - все промежуточные значения полученные в процессе вычислений.

Разработал. Построил. Вот:

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.

А что касается второй задачи, то, несмотря на очаровательно-изысканную форму выражения просьбы, вынужден данную просьбу отклонить, ибо решением программистских задач для второгодников младшей группы яслей для умственно-отсталых, увы, не занимаюсь.