programa pra somar e tirar média

Publicado por NewLinuxer 14/12/2005

[ Hits: 8.020 ]

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

Maior numero do Vetor

Função Fatorial Recursiva em Ada 95

Matrix

Hello World!!!

Raiz Quadrada.


  

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