Создание сайтов и программирование

 Отправлено: 18.10.11 19:05. Заголовок: помогите пожалуйста написать одну программу..

Программирование циклических алгоритмов

Цель работы: закрепить практические навыки работы с системой Borland Pascal, научиться использовать различные операторы циклов; научиться составлять программы решения задач с использование циклических структур.

Общие сведения

Алгоритм называется циклическим, если он содержит многократное выполнение одних и тех же операторов при различных значениях промежуточных данных. Число повторений этих операторов может быть задано в явной (цикл с известным заранее числом повторений) или неявной (цикл с неизвестным заранее числом повторений) форме.
Перед выполнением работы необходимо изучить различные организации циклов и операторы for, while, repeat.
Написать программу:
Вычислить приближенно значение бесконечной суммы: (1/1*3)+(1/2*4)+(1/3*5)+......=3/4.

P.S эти числа в виде дробей прсто записать нельзя например 1/1*3- это в числителе 1, а в знаменателе 1 умножить на 3.
Помогите пожалуйста ...оч нужно..пожалуйста..

 Отправлено: 19.10.11 06:02. Заголовок: Циклический алгоритм

 i:=1; 
 Sum:=0; 
 repeat 
   Add:=1/i/(i+2); 
   Inc(i); 
   Sum:=Sum+Add; 
 until Add=0;

 Отправлено: 19.10.11 08:18. Заголовок: ...

а можно код целиком...очень нужно..

 Отправлено: 19.10.11 14:22. Заголовок: Цикл набора суммы

 VAR 
   Sum, Add, i: real; 
 BEGIN 
  i:=1; 
  Sum:=0; 
  repeat 
    Add:=1/i/(i+2); 
    i:=i+1; 
    Sum:=Sum+Add; 
  until Add<1e-10; 
  WriteLn('Sum=',Sum); 
 END.