EM VISUALG linguagem PORTUGOL.

[leonardoredaelli 1]

EM VISUALG linguagem PORTUGOL.

1)Faça um algoritmo que copie o conteúdo de um vetor em um segundo vetor

2)Faça um algoritmo que some o conteúdo de dois vetores e armazene resultado em um terceiro vetor

3)Faça um algoritmo que faça a união de dois vetores de mesmo tamanho e mesmo tipo em um terceiro vetor com dobro do tamanho

4)Leia 3 notas e os nomes de 4 alunos. Escreva no final o nome e a média de cada aluno Se a média for maior ou igual a 6 escreva “ Aluno Aprovado”,caso a média for menor que 6, escreva ”Aluno Reprovado”.

5)Escreva um algoritmo que leia dois vetores A e B de tamanho 10 e gere um vetor C e D que contenha: a) Vetor C _ a soma entre A e B; b) Vetor D _ a diferença entre A e B;

6)Escreva um algoritmo que leia um vetor A de tamanho 10 e gere um vetor B e C que contenha: a) Vetor B – recebe todos os pares ; b) Vetor C – recebe todos os impares; c) Imprimir os 3 vetores

[Sergio Cavalcante 6]

algoritmo "Ajuda ques 1"

// Função :

// Autor : Sergio cavalcante

// Data : 30/07/2014

// Seção de Declarações

var

v1:vetor[1..1]de caracter

v2:vetor[1..1]de caracter

inicio

Escreva("Informe um nome: ")

leia(v1[1])

v2[1] <-v1[1]

Escreva("O nome que esta no segundo vetor é: " ,v2[1])

algoritmo "Ajuda ques 2"

// Função :

// Autor : Sergio cavalcante

// Data : 30/07/2014

// Seção de Declarações

var

v1:vetor[1..1]de inteiro

v2:vetor[1..1]de inteiro

v3:vetor[1..1]de inteiro

inicio

Escreva("Informe um valor para o 1 vetor: ")

leia(v1[1])

Escreva("Informe um valor para o 2 vetor: ")

leia(v2[1])

v3[1] <- v2[1]+ v1[1]

Escreva("A soma do 1º vetor + 2º vetor e : ",v3[1])

[leonardoredaelli 1]

consegue solucionar a questão 6?

[William Bruno 1501]

Oi @leonardoredaelli, não adianta postar diversas vezes seguidas ou abrir vários tópicos para a mesma dúvida.

 

Apenas aguarde que alguém te responda. No caso, o intuito do fórum é ajudar, e não que façam o seu dever de casa.

Nesse meio tempo, tente ajudar alguém tb. É assim que o fórum funciona.

[Sergio Cavalcante 6]

não posso responder tudo ...te mostrei como se faz algumas ,coloque o que você já fez que te ajudaremos

[leonardoredaelli 1]

var

vet1 : vetor [1..5] de inteiro

vet2 : vetor [1..5] de inteiro

vet3 : vetor [1..10] de inteiro

i : inteiro

inicio

escreval("Entrada de dados dos vetores")

para i de 1 ate 5 faca

escreva("Digite o ",i,"º valor do vetor vet1: ")

leia(vet1)

escreva("Digite o ",i,"º valor do vetor vet2: ")

leia(vet2)

vet3<-vet1

vet3[i+5]<-vet2

fimpara

para i de 1 ate 10 faca

escreval("a união dos vetores eh",vet3)

 

fimpara

fimalgoritmo

 

var

n1: vetor [1..4] de real

n2: vetor [1..4] de real

n3: vetor [1..4] de real

nome:vetor [1..4] de caracter

media:vetor [1..4] de real

i : inteiro

inicio

para i de 1 ate 4 faca

escreva(" digite nome:")

leia(nome)

escreva("digite a 1º nota:")

leia (n1)

escreva("digite a 2º nota:")

leia (n2)

escreva("digite a 3º nota:")

leia (n3)

media<-(n1+n2+n3/3)

fimpara

para i de 1 ate 4 faca

se media >= 6 entao

escreval("Aluno:", nome ," media:", media , " aprovado")

senao

escreval("Aluno:", nome ," media:", media , " reprovado")

fimse

fimpara

 

fimalgoritmo

 

var

Vnum : vetor [1..10] de inteiro

vet : vetor [1..10] de inteiro

i : inteiro

soma : inteiro

cont : inteiro

inicio

soma <- 0 // inicializar a soma

cont <- 0 // inicializar o cont

 

//entrada de dados no vetor

Para i de 1 ate 10 faca

 

Escreva("Digite o ",i,"º valor: ")

 

Leia (vnum)

 

soma <- soma + Vnum

cont <- cont + 1

Fimpara

 

escreval("")

 

// fecha o para

//saida de dados no vetor

 

Para i de 1 ate 10 faca

escreval(i,"º valor:",Vnum)

Fimpara

escreval("")

 

// fecha o para

//impressao da soma

 

escreval("O resultado da soma he.......: ",soma)

escreval("A qtde de elementos no vetor he: ",cont)

escreval("A qtde de elementos no vetor he: ",vet)

 

 

fimalgoritmo

 

ar

veta : vetor [1..5] de real

vetb : vetor [1..5] de real

vetc : vetor [1..5] de real

vetd : vetor [1..5] de real

i :inteiro

inicio

 

para i de 1 ate 5 faca

escreva(" digite o vetor a:")

leia(veta)

escreva("digite o vetor b:")

leia (vetb)

vetc <- veta + vetb

vetd<-veta - vetb

fimpara

 

para i de 1 ate 5 faca

escreval("Soma dos vetores: veta: ",veta," + vetb: ",vetb," eh:",vetc)

fimpara

para i de 1 ate 5 faca

escreval("Soma dos vetores: veta: ",veta," - vetb: ",vetb," eh:",vetc)

fimpara

 

fimalgoritmo

 

var

a, b: vetor[1..5] de inteiro

i:inteiro

inicio

para i de 1 ate 5 faca

leia(a)

fimpara

para i de 1 ate 5 faca

b <- a

fimpara

para i de 1 ate 5 faca

escreval(b)

fimpara

fimalgoritmo

inicio

// Seção de Comandos

fimalgoritmo

[Bruno Carazato 0]

var

vet1 : vetor [1..5] de inteiro

vet2 : vetor [1..5] de inteiro

vet3 : vetor [1..10] de inteiro

i : inteiro

inicio

escreval("Entrada de dados dos vetores")

para i de 1 ate 5 faca

escreva("Digite o ",i,"º valor do vetor vet1: ")

leia(vet1)

escreva("Digite o ",i,"º valor do vetor vet2: ")

leia(vet2)

vet3<-vet1

vet3[i+5]<-vet2

fimpara

para i de 1 ate 10 faca

escreval("a união dos vetores eh",vet3)

 

fimpara

fimalgoritmo

 

var

n1: vetor [1..4] de real

n2: vetor [1..4] de real

n3: vetor [1..4] de real

nome:vetor [1..4] de caracter

media:vetor [1..4] de real

i : inteiro

inicio

para i de 1 ate 4 faca

escreva(" digite nome:")

leia(nome)

escreva("digite a 1º nota:")

leia (n1)

escreva("digite a 2º nota:")

leia (n2)

escreva("digite a 3º nota:")

leia (n3)

media<-(n1+n2+n3/3)

fimpara

para i de 1 ate 4 faca

se media >= 6 entao

escreval("Aluno:", nome ," media:", media , " aprovado")

senao

escreval("Aluno:", nome ," media:", media , " reprovado")

fimse

fimpara

 

fimalgoritmo

 

var

Vnum : vetor [1..10] de inteiro

vet : vetor [1..10] de inteiro

i : inteiro

soma : inteiro

cont : inteiro

inicio

soma <- 0 // inicializar a soma

cont <- 0 // inicializar o cont

 

//entrada de dados no vetor

Para i de 1 ate 10 faca

 

Escreva("Digite o ",i,"º valor: ")

 

Leia (vnum)

 

soma <- soma + Vnum

cont <- cont + 1

Fimpara

 

escreval("")

 

// fecha o para

//saida de dados no vetor

 

Para i de 1 ate 10 faca

escreval(i,"º valor:",Vnum)

Fimpara

escreval("")

 

// fecha o para

//impressao da soma

 

escreval("O resultado da soma he.......: ",soma)

escreval("A qtde de elementos no vetor he: ",cont)

escreval("A qtde de elementos no vetor he: ",vet)

 

 

fimalgoritmo

 

ar

veta : vetor [1..5] de real

vetb : vetor [1..5] de real

vetc : vetor [1..5] de real

vetd : vetor [1..5] de real

i :inteiro

inicio

 

para i de 1 ate 5 faca

escreva(" digite o vetor a:")

leia(veta)

escreva("digite o vetor b:")

leia (vetb)

vetc <- veta + vetb

vetd<-veta - vetb

fimpara

 

para i de 1 ate 5 faca

escreval("Soma dos vetores: veta: ",veta," + vetb: ",vetb," eh:",vetc)

fimpara

para i de 1 ate 5 faca

escreval("Soma dos vetores: veta: ",veta," - vetb: ",vetb," eh:",vetc)

fimpara

 

fimalgoritmo

 

var

a, b: vetor[1..5] de inteiro

i:inteiro

inicio

para i de 1 ate 5 faca

leia(a)

fimpara

para i de 1 ate 5 faca

b <- a

fimpara

para i de 1 ate 5 faca

escreval(b)

fimpara

fimalgoritmo

inicio

// Seção de Comandos

fimalgoritmo

Cara você quer ajuda ou quer a resposta de teus exercicios do curso/faculdade?

Se você quiser aprender a gente pode te ajudar,

Pense nisso ou nunca será um programador de verdade.

[leonardoredaelli 1]

Então, faça assim:

algoritmo "Questão 6"
// Função : Vetores
// Autor : Leonardo Redaelli
// Data : 8/31/2014
// Seção de Declarações
var

contpar:inteiro
contimpar:inteiro
i:inteiro

inicio
// Seção de Comandos

contpar<-0
contimpar<-0
para i de 0 ate 10 faca
escreval("O total de números Vetor A:",i)
fimpara
para i de 0 ate 10 faca
Se (i mod 2) = 0 entao
escreval("vetor B é par:", i)
contpar<-contpar+1
senao
escreval("vetor C é impar:", i)
contimpar<-contimpar+1
fimse
fimpara
escreval("O total de números pares lidos foi:",contpar)
escreval("O total de números ímpares lidos foi:",contimpar)
fimalgoritmo

Ou também o método enganador:

 

algoritmo "Questão 6 enganadora"
// Função : Vetores
// Autor : Leonardo Redaelli
// Data : 8/31/2014
// Seção de Declarações
var
vet: vetor[0..10] de inteiro
vetpar: vetor[0..10] de inteiro
vetimpar: vetor[0..10] de inteiro
i,num: inteiro
cont_par:inteiro
cont_impar:inteiro
cont:inteiro
soma:inteiro

inicio
// Seção de Comandos
para i de 0 ate 10 faca
escreval("vetor A:", i)

Se i mod 2 = 0 entao
vetpar <- i
escreval("vetor B é par:", i)
senao
vetimpar <- i
escreval("vetor C é impar:", i)
fimse
fimpara
para num de 0 ate 10 faca
se num mod 2 = 0 entao
cont_par<-cont_par+1
senao
cont_impar<-cont_impar+1

fimse
fimpara
escreval("O total de números Vetor A:",num-1)
escreval("O total de números pares lidos foi:",cont_par)
escreval("O total de números ímpares lidos foi:",cont_impar)
fimalgoritmo

[KhaosDoctor 242]

Leonardo, fique atento às regras do fórum:

 

http://forum.imasters.com.br/topic/525049-antes-de-postar-nesta-area-por-favor-leia-esta-topico/