Ir para conteúdo
Fórum CódigoFonte.net

shining

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. shining

    Algoritmo Pascal (corrigir)

    fala ae brother blz ! Então vamos nessa, o algoritmo não está errado só nesse ponto, mas vamos trata-lo primeiro.Para que você consiga digitar a primeira e as demais idades sem interrupções do sistematerá que usar um IF, ele será responsável por garantir que não tenha interrupções na entrada de dados só isso. Em relação ao outro erro é apenas porque ele é sobre escrito,exemplo no caso do o usuário digitar na idade um valor maior que dezessete e outro valor menor ou igual a dezessete então a soma antes que tinha um valor esse valor será sobre escrito porque a soma é igualada a zero quando a idade varia de 0 a 17 para resolver, no lugar disso 0..17:soma := 0; coloque isso 0..17:; teste antes só com a correção do IF para entender melhor e copile o código primeiro na sua cabeça assim irá melhorar a interpretação com o tempo poderá prever erros acertos etc até mais valeu. o código corrigido: program ProjComentado; {$APPTYPE CONSOLE} uses SysUtils; var cont,valor,idade: integer; soma: real; begin soma := 0; idade := 0; WriteLn('Informe a quantidade de idades: '); ReadLn(valor); for cont := 1 to valor do begin WriteLn('Informe a idade', cont); ReadLn(idade); case idade of 0..17:; else begin soma := soma + idade; end; end; if cont = valor then {Nesse IF avalio eu se o ciclo está no fim ou não ou seja se avariável cont for igual ao valor quer dizer} begin {que o ciclo está na ultima execução(o usuário já informou o necessário) e já poderá exibir a mensagem.} WriteLn('A soma das idades e ',soma:2:2); WriteLn('Pressione enter para sair'); ReadLn; //permite que pressione enter para sair. end; end; end.
×