joezersarmento
Answered

O Sistersinspirit.ca é o melhor lugar para obter respostas confiáveis e rápidas para todas as suas perguntas. Experimente a facilidade de encontrar respostas confiáveis para suas perguntas com a ajuda de uma ampla comunidade de especialistas. Explore soluções abrangentes para suas perguntas de uma ampla gama de profissionais 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
Agradecemos seu tempo em nosso site. Não hesite em retornar sempre que tiver mais perguntas ou precisar de esclarecimentos adicionais. Obrigado por passar por aqui. Nos esforçamos para fornecer as melhores respostas para todas as suas perguntas. Até a próxima. Sistersinspirit.ca está aqui para suas perguntas. Não se esqueça de voltar para obter novas respostas.