mais um modelo de programa com vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 6.604 ]
mais um dos exemplos para demonstrar o funcionamento de vetores no pascal.
Neste é Solicitado ao usuario 6 valores, os quais devem ser armazenados num único vetor, apresente o maior valor e a posição em que o mesmo foi informado
{Solicitando ao usuario 6 valores, os quais devem ser armazenados num £nico ve- tor, apresente o maior valor e a posiÆo em que o mesmo foi informado.} Program exercicio03; uses crt; Var posicao : array[1..6] of integer; numero, contador : integer; Begin clrscr; For contador := 1 To 6 do begin write('Digite o ',contador:2,'§ n£mero: '); readln (posicao[contador]); end; numero:= posicao[1]; For contador := 2 to 6 do begin if numero < posicao[contador] then numero:= posicao[contador]; end; writeln; writeln('O maior número é: ', numero); writeln; For contador := 1 to 6 do begin if numero = posicao[contador] then writeln('Na posiÆo: ',contador:2); end; Readkey; end.
encontrar o maior e o menor valor em um vetor
Visualizador de imagem Pascal/Lazarus
cadastro de multiplos clientes com registro
soma da diagonal principal de uma matriz
calculo da somatoria da diagonal principal
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Criando uma VPC na AWS via CLI
Multifuncional HP imprime mas não digitaliza
Dica básica para escrever um Artigo.
Como Exibir Imagens Aleatórias no Neofetch para Personalizar seu Terminal
Melhorando a precisão de valores flutuantes em python[RESOLV... (15)
Mint começou a apresentar varios erros (2)
Recuperar arquivos de HD em formato RAW usando Linux (1)