usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.632 ]
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.
Cáculo de Fatorial, utilizando-se de Repeat - Until
calculo de porcentagem em vetores
escreve os números de 1 a 9 com repeat - until
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (9)
Possível Migração de windows para linux ???? (pc da empresa) (0)