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

• Download media.dpr
• Enviar nova versão

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.

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

Nenhum coment�rio foi encontrado.