Ir ao conteúdo

Reduzir código (PascalZim)


zinhovba

Posts recomendados

Postado

Boa noite!!

Eu estou apredendo Logica de Programação.

Ha alguma maneira de reduzir o tamanho desse código?

Program Soma_Idade_5Pessoas;
Var n1,n2,n3,n4,n5,soma:Real;
Media:Real;
Begin
Writeln('Digite o 1 numero a ser somado ');
Readln(n1);
Writeln('Digite o 2 numero a ser somado ');
Readln(n2);
Writeln('Digite o 3 numero a ser somado ');
Readln(n3);
Writeln('Digite o 4 numero a ser somado ');
Readln(n4);
Writeln('Digite o 5 numero a ser somado ');
Readln(n5);
soma:= n1 + n2 + n3 + n4 + n5;
Media:=soma/5;
Writeln('O resultado e :', Media:2:0);
Readln;
End.

  • 3 semanas depois...
Postado

Boa tarde!!

Olá Khevin, faça as correções

Isso é o que me veio na cabeça, mas não sei se está legal. :confused:

Program SomaKhevin;
Var
idade:Array[1..5] of Integer;
soma:Real;
i:Integer;
Begin
For i:= 1 To 5 Do
Begin
Writeln('Digite a idade..',i);
Readln(idade[i]);
soma:= soma + idade[i];
End;
Writeln('O resultado e: ',soma:2:0);
Readln;
End.

  • Membro VIP
Postado
Boa tarde!!

Olá Khevin, faça as correções

Isso é o que me veio na cabeça, mas não sei se está legal. :confused:

Program SomaKhevin;
Var
idade:Array[1..5] of Integer;
soma:Real;
i:Integer;
Begin
For i:= 1 To 5 Do
Begin
Writeln('Digite a idade..',i);
Readln(idade[i]);
soma:= soma + idade[i];
End;
Writeln('O resultado e: ',soma:2:0);
Readln;
End.

Quase 100%. Só faltou calcular a média... (em vez de só a soma).

Uma sugestão: não use tabulação (tab) ao identar, prefira usar espaços.

Abaixo seu código (original) com minha identação).


var
idade :array[1..5] of Integer;
soma :real;
i :integer;
BEGIN
for i:= 1 To 5 Do
begin
writeln('Digite a idade..',i);
readln(idade[i]);
soma:= soma + idade[i];
end;
writeln('O resultado e: ',soma:2:0);
readln;
END.
Program SomaKhevin;

No aguardo.

Abraços

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!