usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.532 ]
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.
Calculadora Empresarial Lazarus
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Nenhum comentário foi encontrado.
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
instalar o Linux em computadores Acer novos (1)
Youtube e networkmeneger para de funcionar [RESOLVIDO] (8)
Problemas com SQL em objeto TLabel ... (2)
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)