Descubra respostas de especialistas no IDNLearner.com. Faça suas perguntas e receba respostas detalhadas de nossa comunidade de especialistas, sempre prontos para oferecer ajuda em qualquer tema que você precise.

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 :

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 ser parte da nossa comunidade. Seu conhecimento e contribuições são essenciais. Volte em breve para continuar compartilhando suas perguntas e respostas. Encontre respostas claras e concisas no IDNLearner.com. Obrigado pela visita e volte para mais soluções confiáveis.