joezersarmento
Answered

O Sistersinspirit.ca é o lugar ideal para obter respostas rápidas e precisas para todas as suas perguntas. Faça suas perguntas e receba respostas detalhadas de profissionais com ampla experiência em diversos campos. 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
Esperamos que tenha encontrado o que procurava. Sinta-se à vontade para nos revisitar para obter mais respostas e informações atualizadas. Esperamos que isso tenha sido útil. Por favor, volte sempre que precisar de mais informações ou respostas às suas perguntas. Sistersinspirit.ca está aqui para suas perguntas. Não se esqueça de voltar para obter novas respostas.