Algoritmos no Visualg Vetores

[ionedorap 0]

ALGUÉM DISPOSTO(A) A DAR UMA FORÇA ?????

 

O ALGORITMO :

 

Elaborar um algoritmo que lê um conjunto de 30 valores e os coloca em 2 vetores conforme os valores forem pares ou ímpares.

O tamanho de cada vetor deverá ser de 5 posições.

Se algum vetor estiver cheio, escrevê-lo. Terminada a leitura escrever o conteúdo nal dos dois vetores.

Cada vetor pode ser preenchido tantas vezes quantas for necessário.

 

 

ONDE TRAVEI :

 

 

var
vet : vetor[1..10] de  inteiro
vetpar : vetor[1..5] de inteiro
vetimpar : vetor[1..5] de inteiro
L ,J ,i , contpar , contimpar :inteiro

inicio
para i de 1 ate 30 faca
 escreval("digite um numero ")
   leia (vet[i])
    fimpara     
contpar  <- 1
contimpar <- 1
     se ((vet[i] mod 2 ) = 0) entao
       vetpar[contpar] <- vet[i]
        contpar <- contpar + 1
         se (contpar = 5 ) entao
          para J de 1 ate 5 faca
           escreval (vetpar[J])
            fimpara
             contpar <- 1
             fimse
          senao
           vetimpar[contimpar] <- vet[i]
            contimpar <- contimpar + 1
             se (contimpar = 5 ) entao
              para L de 1 ate 5 faca
               escreval (vetimpar[L])
                fimpara
                 contimpar <- 1
                   fimse
                    fimse
            fimalgoritmo

 

 

 

 

O OUTRO :

 

Faça um algoritmo que leia um vetor de 20 posições de números inteiros e multiplique todos os

seus elementos pelo maior valor deste vetor.

Mostre o vetor após os cálculos.

 

 

ONDE TRAVEI :

 

var
vet : vetor [1..10] de inteiro
multi,maiorvet ,i:inteiro

inicio
maiorvet <-0
para i de 1 ate 20 faca
  escreval ("digite um numero (vetor) : ")
   leia (vet[i])
      se (vet[i] > maiorvet)entao
        maiorvet <- vet[i]
multi<- maiorvet * i
         fimse
         fimpara  
                escreval("o maior vetor digitado foi ", maiorvet)
                 escreval ("e a multiplicação de todos vetores por ele foi " , multi)
fimalgoritmo

 

 

 

QUALQUER IDEIA SERÁ BEM VINDA !!

 

DESDE JÁ AGRADEÇO

[ionedorap 0]

o 1º ficou assim pra no caso de alguém visualizar ....

 

 

algoritmo "semnome"

// Função :lê 30 valores de um vetor e separa em grupos de par e impar de 5 em cinco

// Autor :ionedorap

// Data : 21/8/2012

// Seção de Declarações

var

vetp:vetor[1..5] de inteiro

veti:vetor[1..5] de inteiro

i,num,contp,conti: inteiro

inicio

// Seção de Comandos

contp <- 0

conti <- 0

para i de 1 ate 30 faca

escreva("Digite o ",i,"º numero :")

leia (num)

se ((num mod 2)=0)entao

contp <- contp+ 1

vetp[contp] <- num

se (contp = 5) entao

escreval("Vetor de Numeros Pares")

para i de 1 ate 5 faca

escreval (vetp)

fimpara

escreval("vetor cheio")

contp <- 0

fimse

senao

conti <- conti + 1

veti[conti] <- num

se (conti = 5) entao

escreval("Vetor de Numeros Impares")

para i de 1 ate 5 faca

escreval(veti)

fimpara

conti <- 0

escreval("vetor cheio")

fimse

fimse

fimpara

escreval("Vetor Par")

para i de 1 ate contp faca

escreval(vetp)

fimpara

escreval("Vetor Impar")

para i de 1 ate conti faca

escreval(veti)

fimpara

 

fimalgoritmo

 

 

 

 

ja o 2º ficou assim :

 

 

algoritmo "semnome"

// Função :acha o meior valor do vetor e multiplica cada valor digitado por ele

// Autor : ionedorap

// Data : 15/8/2012

 

var

vet : vetor [1..10] de inteiro

maiorpos,j,maiorvet,i:inteiro

inicio

 

maiorvet <-0

para i de 1 ate 10 faca

escreval ("digite um numero (vetor) : ")

leia (vet)

se (vet > maiorvet)entao

maiorvet <- vet

maiorpos <- i

fimse

fimpara

 

escreval("o maior numero do vetor ", maiorpos ," e sua posição é" ,maiorvet)

escreval ("e a multiplicação de todos vetores por ele foi :")

para i de 1 ate 10 faca

vet <- maiorvet * vet

escreval(vet)

fimpara

fimalgoritmo

 

 

e tirei 10 kkkkkk