Организация циклов в программах, help... Опции

[scarab]

Прошу о помощи.Нужно срочно сдать зачет,но никак не могу решить две последние задачи.Условия приведены ниже:
1)Дана геометрическая прогрессия,в которой a=0.32; q=0.4 Какой номер имеет ее член,величина котрого равна 2.097152E-04?
2)Вычислить,если N вводится с клавиатуры:

Код

  1        1                    1  
---- + --------- +....+ ------------------
sin1   sin1+sin2        sin1+sin2+...+sinN

[volvo]

А прогрессии здесь необязательно знать... Главное - понять, как именно написать основные 2 цикла программы... Вот попробуй запустить эту программку, она делает каркас для того, что тебе надо. Останется только не просто выводить числа, а считать нужные суммы...

var n, i, j: integer;
begin
  n := 10;
  for i := 1 to n do begin
    for j := 1 to i do
      write(j:3);
    writeln;
  end;
end.

Сообщение отредактировано: volvo - 26.04.2007 17:01