usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.720 ]
Homepage: http://www.orkut.com/Profile.aspx?uid=14191504280832964444
Este programa lê 3 numeros inteiros, e calcula a média desses.
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.
calculo da somatoria da diagonal principal
Criptografador(Conceito criptografia)Lazarus
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)









