Форум » Решение задач на халяву » помогите пожалуйста написать одну программу.. » Ответить

помогите пожалуйста написать одну программу..

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

Ответов - 3

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

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

studprog: [pre2] 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.[/pre2]




полная версия страницы