joezersarmento
Answered

Obtenha soluções para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A mais rápida e precisa. Explore respostas detalhadas para suas dúvidas de uma comunidade de especialistas em diferentes campos. Obtenha soluções rápidas e confiáveis para suas perguntas de uma comunidade de especialistas experientes em nossa plataforma.

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 usar nosso serviço. Estamos sempre aqui para fornecer respostas precisas e atualizadas para todas as suas perguntas. Obrigado por sua visita. Estamos dedicados a ajudá-lo a encontrar as informações que precisa, sempre que precisar. Visite o Sistersinspirit.ca para obter novas e confiáveis respostas dos nossos especialistas.