usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.311 ]
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.
Exemplo de for que mostra 6 números em ordem crescente
armazenar o nome de um aluno e suas notas
Visualizador de imagem Pascal/Lazarus
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Navegadores com linhas na tela (1)
Acesso remoto via SSH por Script numa virtualbox (2)
Comando ls não lista no diretório root[DUVIDA] (1)