Jump to content


Photo

Não Consigo Descobrir O Problema Desse Algoritimo


  • Faça o login para participar
2 replies to this topic

#1 zeia22

zeia22

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Masculino
  • Localidade:sc

Posted 06/03/2011, 15:22

beleza galera então vamos la: vamos ver se alguem pode me explicar o que ta acontecendo porque eu não sei mas o que pode ser:

program idade_media;
var n1,n2,n3 soma: interger;
begin
writeln('digite a idade ');
readln(n1);
writeln('digite a idade ');
readln(n2);
writeln('digite a idade ');
readln(n3);
soma:=n1+n2+n3 / 3
writeln('soma e:',soma);
readln;
end.

no free pascal indica o erro no n2+ entre o n3
tenho que tirar a media das tres idade e isso eu não consgui resolver
estou estudando
só que onde eu to fazendo curso não é bem declarado dai eu tenho que me virar,e tem coisa que é bem complicado

#2 imex

imex

    Novato no fórum

  • Usuários
  • 4 posts
  • Sexo:Não informado

Posted 06/03/2011, 16:51

Vou fazer algumas observações:

1) esta faltando um ";" no final da linha

2) utilize parênteses para que as somas sejam feitas antes da divisão:

soma := (n1 + n2 + n3) / 3;

3) o resultado de uma divisão é um número ponto flutuante, portanto é preciso transformar a variável Soma em ponto flutuante (ex: single, double, ...) ou utilizar a função Round para arredondar o valor para um número inteiro:

soma := Round((n1 + n2 + n3) / 3);

Espero que ajude.

#3 zeia22

zeia22

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Masculino
  • Localidade:sc

Posted 07/03/2011, 22:26

sim me ajudou e muito valeu pela dica consegui resolver




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq