Технический форум - Помогите составить программу в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

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

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

Цитата:

Сообщение от denisova (Сообщение 911655)

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

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

Цитата:

Сообщение от denisova (Сообщение 911655)

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.

Вложение 137324

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