usando vetor e procedimentos

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

[ Hits: 8.424 ]

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

Calculadora básica no Lazarus

Maior e menor

encontrar o menor valor em um vetor

Cronômetro Lazarus/Pascal

Jogo Sudoku 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