programa pra somar e tirar média

Publicado por NewLinuxer 14/12/2005

[ Hits: 7.994 ]

Download exemplo18.pas




Programa que pede números inteiros ao usuário, mostrando sua soma a cada numero digitado e a média no final da execução

  



Esconder código-fonte

Program exemplo;

{Programa que pede n£meros inteiros ao usu rio,
mostrando sua soma a cada numero digitado e a
m‚dia no final da execu‡Æo}

uses crt;

Var
  soma,contador,entrada:integer;

Begin
  clrscr;
  Writeln('Informe n£meros inteiros ou <0> para sair');

  soma:=0;
  entrada:=1;
  contador:=0;

  While (entrada<>0) do
  Begin
    writeln;
    write('Digite o n£mero-------------------->');
    read(entrada);

    soma:=soma+entrada;

    if entrada<>0 then
    Begin
      contador:=contador+1;
      Writeln('A soma dos n£meros informados ‚ --->',soma);
    end;
  end;

  writeln;
  if contador <> 0 then
    writeln('A m‚dia ‚ ------------------------->',(soma/contador):3:3);

  readkey;

end.

Scripts recomendados

Sequência de Fibonacci

Jogo Sudoku em Pascal

Matrix

Contador de números (Pascal) - efeito Matrix

controle de notas de uma clase com vetor e registro


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts