usando vetor e procedimentos
Publicado por Thaís de Azevedo Pacienza 13/11/2005
[ Hits: 8.553 ]
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.
intercalar dois arrays (vetores)
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
cadastro de um cliente com registro
Nenhum comentário foi encontrado.
Descritores de Arquivos e Swappiness
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Graduação e certificação Eng. de redes e Eng. Linux[DUVIDA] (0)
Controle do PS5 no Linux Mint funciona? (3)
Autenticação necessária. um aplicativo quer acesso ao chaveiro "c... (1)