programa pra somar e tirar média

Publicado por NewLinuxer 14/12/2005

[ Hits: 8.213 ]

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

calcular o percentual de pessoas que sao maiores de idade

Conjuntos

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Calculadora utilizando until e case

Extenso em dll, com parâmetros adicionais


  

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