Fiz o algoritmo em pascal.(Delphi console)[tex] \pi [/tex]
Como perde a formatação colando aqui coloquei em anexo o arquivo edentado.
Espero ter ajudado...
O resultado de "A" é 4080.7509
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var _valorMultiplicacao1, _valorMultiplicacao2, _valorDivisao1 : Integer;
_ValorResultado : Currency;
begin _valorMultiplicacao1 := 37; _valorMultiplicacao2 := 38; _valorDivisao1 := 1; _ValorResultado := 0; while (_valorDivisao1 <= 37) do begin
Writeln(CurrToStr(_ValorResultado) + ' + ((' +inttostr(_valorMultiplicacao1)+'*'+inttostr(_valorMultiplicacao2)+') /'+inttostr(_valorDivisao1)+')'); _ValorResultado := _ValorResultado + ( (_valorMultiplicacao1*_valorMultiplicacao2) / _valorDivisao1 ) ;
dec(_valorMultiplicacao1); dec(_valorMultiplicacao2); inc(_valorDivisao1) end; writeln('O valor de A é ' + CurrToStr(_ValorResultado)); Readln;end.
