Помогите написать програму

[AyzekUorren]

Задача 2
Вычислить сумму ряда с помощью вложенных циклов.
Создать две различные программы с использованием различных типов циклов: первая типа FOR, другая типа WHILE-DO или REPEAT-UNTIL.
X=1.2


Ряды мы еще не изучали, но задание нам уже задали, вот и проблема, помогите кому не сложно.

[min@y™]

Ряды мы еще не изучали

В каком классе учишься? Путаешь понятие ряда с суммой. Ряд - это сумма (произведение) с бесконечным количеством членов.

[type_Oleg]

Да нет, почему бесконечный. Ряды не обязательно бесконечные.
Тут проще всего конечно - двойной FOR .
То, что ряды не изучали - это фигня. Суммы же изучали.. Если нет , то что же вообще изучали?

[AyzekUorren]

Сообщение от type_Oleg

Да нет, почему бесконечный. Ряды не обязательно бесконечные.
Тут проще всего конечно - двойной FOR .
То, что ряды не изучали - это фигня. Суммы же изучали.. Если нет , то что же вообще изучали?

Не особо важно то что изучали, главное есть желание все изучить сейчас, чего не хватает.

Конкретно здесь хотелось даже не решения увидеть, а пример других задач достаточно описанных.
Оно всегда в первый раз сложно.
В школе такого не зададут , это уже университет.

[min@y™]

Я не умею учить, мне проще сделать самому за 5 минут, чем тратить сутки на вдалбливание матчасти в человека, которому это не нужно. Для меня в этом просто нет смысла. Проще написать и показать исходник. Если человеку надо, он его изучит и, возможно, чемү-то научится.

[AyzekUorren]

Сообщение от min@y™

Я не умею учить, мне проще сделать самому за 5 минут, чем тратить сутки на вдалбливание матчасти в человека, которому это не нужно. Для меня в этом просто нет смысла. Проще написать и показать исходник. Если человеку надо, он его изучит и, возможно, чемү-то научится.

Мат часть мне нужна и я ее сам учу, выше написал что просто нужен пример программы.

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

[min@y™]

куда будешь девать число 15511210043330985984000000 (знаменатель при i = 12)?

[g25092011]

Сообщение от AyzekUorren

Задача 2
Вычислить сумму ряда с помощью вложенных циклов.
Создать две различные программы с использованием различных типов циклов: первая типа FOR, другая типа WHILE-DO или REPEAT-UNTIL.
X=1.2


Ряды мы еще не изучали, но задание нам уже задали, вот и проблема, помогите кому не сложно.

program fft;
const 
c=-1;
var
i,j:integer;
x,s:real;
function fss (a: integer):integer;
  begin
      if a=0 then fss:=1
      else fss:=a*fss(a-1)
  end;
begin
x:=1.2;
{ Первый с FOR }
for j:=5 to 15 do
  begin
    for i:=1 to 12 do
      s:=c*((sqr(ln(x+j)))/(fss(2*i+1)))
  end;
  writeln('Через FOR=',s);
{ Второй с WHILE }
j:=5;i:=1;
while j>15 do
  begin
  while i>12 do
   s:=c*((sqr(ln(x+j)))/(fss(2*i+1)))
  end;
  writeln('Через WHILE=',s);
 { Третий с repeat } 
 j:=5;i:=1;
 repeat
    begin
      repeat
        begin
        s:=c*((sqr(ln(x+j)))/(fss(2*i+1)));
        i:=i+1
        end;
      until i<=12;
      j:=j+1;
    end;
 until j<=15;
  writeln('Через repeat=',s);
end.