programa pra somar e tirar média

Publicado por NewLinuxer 14/12/2005

[ Hits: 8.075 ]

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
mdia 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

Crivo de Eratóstenes Simples em Ada 95

Tratar campos not null

usando vetor e procedimentos

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

Existência de triângulo, em Pascal


  

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