usando vetor e procedimentos

Publicado por Thaís de Azevedo Pacienza 13/11/2005

[ Hits: 8.631 ]

Homepage: http://www.orkut.com/Profile.aspx?uid=14191504280832964444

Download media.dpr




Este programa lê 3 numeros inteiros, e calcula a média desses.

  



Esconder código-fonte

program media;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vetor=array[1..3] of integer;
var v:vetor;
m:real;
procedure levetor(var v1:vetor);
var i:integer;
begin
  for i:=1 to 3 do begin
  write('digite',i,' ->');
  readln(v1[i]);
  end;
end;
  procedure calcmedia(v1:vetor; var media:real);
  var i:integer;
  begin
    media:=0;
    for i:=1 to 3 do
    media:=media+v1[i];
    media:=media/3;
    end;
   procedure mostramedia(media:real);
   begin
     writeln(media:2:2);
     end;
     begin//programa principal
     levetor(v);
     calcmedia(v,m);
     mostramedia(m);
     readln;
end.

Scripts recomendados

Conjuntos

cadastro de multiplos clientes com registro

Função Fatorial Recursiva em Ada 95

Crivo de Eratóstenes Simples em Ada 95

média dos numeros informados em posiçoes pares em um vetor


  

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