формула паскаль

[юля]

1/a+2/(a+(a+1))+3/(a+(a+1)+(a+2))+...+n/(a+(a+1)+(a+2)+...+(a+n)),преобразуйте её в паскалевкий вид,пожалуйста)):*

[Brainenjii]

Код: Выделить всё

Program Formula_Pascal;
Const
  Part0 = '+';
  Part1 = '/a';
  Part2 = '/(a';
  Part3 = 'a+';
  Part4 = '(a+1)';
  Part5 = '(a+2)';
  Part6 = '(a+n)';
  Part7 = ')';
  Part8 = '+...+';
  Part9 = 'n';
Var
  aIndex: Integer;
  aResult: String;
Begin
  aResult := '';
  For aIndex := 1 To 3 Do
    Begin
      aResult := aResult + Chr(aIndex + 48);
      If aIndex = 3 Then
        aResult := aResult + Part2 + Part0 + Part4 + Part0 +
          Part5 + Part7 + Part8
      Else
        Begin
          If aIndex = 1 Then
            aResult := aResult + Part1 + Part0
          Else
            aResult := aResult + Part2 + Part0 + Part4 + Part7 + Part0;
        End;
    End;
  aResult := aResult + Part9 + Part2 + Part0 + Part4 + Part0 + Part5 +
    Part8 + Part6 + Part7;
  WriteLn(aResult);
  ReadLn;
End.


Всё для Вас, юная леди

[informat]

1/a+2/(a+(a+1))+3/(a+(a+1)+(a+2))+...+n/(a+(a+1)+(a+2)+...+(a+n)),преобразуйте её в паскалевкий вид,пожалуйста)):*

Наверное задача звучала так:
Написать программу вычисляющую эту формулу на языке паскаль для заданных a и n.
Наверное n - натуральное, а a - действительное.
Нужно ли при вычислении защитить от деления на 0?

[vada]

n/(a+(a+1)+(a+2)+...+(a+n))

Видимо имелось в виду

n/(a+(a+1)+(a+2)+...+(a+n-1))

[NTFS]

Brainenjii Во-первых, вместо юной леди там может быть бородатый обалдуй-студент, а во-вторых, я бы сначала озвучил цену вопроса, а потом уже выкладывал готовое решение. Так правильней, ИМХО.

[Vadim]

Юный бородатый леди...

[vada]

Бородатый не стриженный сорокалетний сисадмин с пивным брюшком

[юля]

это вы всё про меня что ли??я бородатый и нестриженный?

[vada]

Ага

[NTFS]

Я написал: "может быть". Это большая разница. Но-вообще, вопрос в топике явно из разряда: "Я не хочу думать, сделайте за меня".

[юля]

вы что с ума сошли??я вообще-то милая девушка,модель...а не бородатый и пузатый(((

[kipar]

(с учетом поправки vada)

Код: Выделить всё

program Project2;

function Formula(a: Integer; N: integer): Real;
var
  I, Sum: Integer;
begin
  Result := 0;
  Sum := 0;
  for I := 1 to N do
  begin
    Inc(Sum, A + I - 1);
    Result := Result + I/Sum;
  end;
end;

var
  A, N: Integer;
begin
  write('A=');readln(A);
  write('N=');readln(N);
  writeln('Result = ',Formula(A, N));
  readln;
end.


[юля]

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

[VirtUX]

если бы у меня получилось сделать

не получившийся пример мона увидеть?

я вообще-то милая девушка,модель

а я голубоглазый блондин на коне Это что-то меняет?

[юля]

большое спасибо всем за помощь....пока