usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.666 ]
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.
Gerador de senha Pascal/Lazarus
vendas de uma empresa em matriz
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
diferença entre o maior e o menor numero
Script que verifica se um número é primo ou não
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
como colocar uma prefix no faugus laucher ou wine (9)
aonde eu encontro prefix do mu online ou mu dark epoch, wine, port-pro... (1)
aonde eu encontro prefix do mu online ou mu dark epoch, wine, port-pro... (1)
aonde eu encontro prefix do mu online ou mu dark epoch, wine, port-pro... (1)