Exemplo de programação matriz visualg

2727 palavras 11 páginas
algoritmo "01"

var i: inteiro v: vetor [1..12] de inteiro inicio // Seção de Comandos para i de 1 ate 12 passo 1 faca repita escreva("Entre com o numero ", i, "da sequencia: ") leia(v[i]) ate (v[i] >= 0) fimpara escreval("Valores maiores que 121:") para i de 1 ate 12 passo 1 faca se (v[i] > 121) entao escreval(v[i]) fimse fimpara fimalgoritmo
-------------------------------------------------

algoritmo "02"

var num,n, maior, contMaior: inteiro x: vetor [1..10] de inteiro inicio n <- 1 num <-1
// Seção de Comandos enquanto (num <=10)faca escreval ("Digite a posição numero ", num) leia (n) se (n <0 )entao
…exibir mais conteúdo…

ro inicio // Seção de Comandos escreva("Digite o Numero a ser calculada a tabuada : ") leia(n) para i de 1 ate 10 passo 1 faca a[i] <- n * i escreval(n, " x ", i, " = ", a[i]) fimpara fimalgoritmo

algoritmo "07"

var nome: vetor [1..15] de caractere peso: vetor [1..15] de inteiro b: vetor [1..15] de inteiro n, i, menor, qtd, contB: inteiro inicio // Seção de Comandos contB <- 0 repita escreva("Digite o numero de pessoas: ") leia(n) ate (n > 0) e (n <= 15) escreval("----------------------") para i de 1 ate n passo 1 faca escreva("Nome [", i, "]:") leia(nome[i]) escreva("Peso [", i, "]:") leia(peso[i]) escreval("----------------------") se (peso[i] < menor) ou (i = 1) entao menor <- peso[i] fimse se (peso[i] > 55) e (peso[i] <= 80) entao contB <- contB + 1 b[contB] <- peso[i] fimse fimpara para i de 1 ate n passo 1 faca se (peso[i] > menor) entao qtd <- qtd + 1 fimse fimpara escreval("", qtd, " Pesos maiores que o menor peso:.") para i de 1 ate n passo 1 faca se (peso[i] > menor) entao escreval(nome[i]) fimse fimpara escreval("Pesos maiores que 55 quilos e menores ou iguais a 80 quilos: ") para i de 1 ate contB passo 1 faca escreval(b[i]) fimpara fimalgoritmo

-------------------------------------------------

algoritmo "08" var a: vetor [1..10] de

Relacionados

  • Algoritmos e Logica de Programacao
    13723 palavras | 55 páginas