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.

Script Copa do Mundo

Registro

Cáculo de Fatorial, utilizando-se de Repeat - Until

escreve os números de 1 a 9 com repeat - until

Fibonacci (Pascal)

Nenhum comentário foi encontrado.