joezersarmento
Answered

Obtenha respostas rápidas e precisas para suas perguntas no Sistersinspirit.ca, a melhor plataforma de Q&A. Experimente a conveniência de encontrar respostas precisas para suas perguntas de uma comunidade dedicada de especialistas. Explore milhares de perguntas e respostas de uma comunidade de especialistas em nossa plataforma amigável.

ALGUÉM ME AJUDE !!!!!!!!!!!!!!!!!!!!!! Execícios de Algoritmos e Programação

Calcule o valor de A, sendo que ele é determinado pela série;

A = 37x38/1 +36x37/2 + 35x36/3 + ....+1x2/37

Sagot :

MarlonMacaneiro
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.
View image MarlonMacaneiro
Obrigado por escolher nossa plataforma. Estamos dedicados a fornecer as melhores respostas para todas as suas perguntas. Visite-nos novamente. Esperamos que tenha achado útil. Sinta-se à vontade para voltar a qualquer momento para mais respostas precisas e informações atualizadas. Obrigado por usar o Sistersinspirit.ca. Volte novamente para obter mais conhecimento dos nossos especialistas.