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
Soluções para a tarefa
Respondido por
1
Fiz o algoritmo em pascal.(Delphi console)
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.
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.
Anexos:
Perguntas interessantes
Português,
11 meses atrás
Matemática,
1 ano atrás
Química,
1 ano atrás
Biologia,
1 ano atrás
Português,
1 ano atrás