usando vetor e procedimentos

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

[ Hits: 8.274 ]

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

calculo de porcentagem em vetores

Executar comando do DOS.

armazenar estoque em uma matriz

Calculadora básica no Lazarus

Calculadora Empresarial Lazarus


  

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