Algoritmos Resolvidos VisualG e dicas de programação: outubro 2016

sábado, 29 de outubro de 2016

1ª LISTA 05 - EXERCÍCIOS DE VETORES.. Fonte: Ascêncio, Fundamentos da programação 3ed

LISTA 05 - EXERCÍCIOS DE VETORES.. Fonte: Ascêncio, Fundamentos da programação 3ed

5.1 – Faça um programa que preencha um vetor com seis elementos numéricos inteiros. Calcule e mostre:

a) todos os números pares;

b) a quantidade de números pares;

c) todos os números impares;

d) a quantidade de números ímpares

5.2 – Faça um programa que preencha um vetor com sete números inteiros, calcule e mostre:

a) os múltiplos de 2;

b)os múltiplos de 3

c)os múltiplos de 2 e 3

5.3- Faça um programa para controlar o estoque de mercadorias de uma empresa.Inicialmente, o programa deverá preencher dois vetores com dez posições cada,onde o primeiro corresponde ao código do produto eo segundo, ao total desseproduto em estoque. Logo após, o programa deverá ler um conjunto indeterminadode dados contendo o código de um cliente e o código do produto que ele desejacomprar, juntamente com a quantidade. Código do cliente igual a zero indica fimdo programa. O programa deverá verificar:

· Se o código do produto solicitado existe. Se existir, tentar atender o pedido; caso contrario, exibir mensagem Código inexistente;

· Cada pedido feito por um cliente só poderá ser atendido integralmente. Caso isso não seja possível, escrever a mensagem--- Não temos estoque suficiente dessa mercadoria. Se puder atendê-lo, escrever a mensagem Pedido atendido. Obrigado e volte sempre;

· Efetuar a atualização do estoque somente se o pedido for atendido integralmente;

· No final do programa, escrever os códigos dos produtos com seus respectivos estoques já atualizados.

5.4 – Faça um programa que preencha umvetor com quinze elementos inteiros e verifique a existência de elementosiguais a 30, mostrando as posições em que apareceram.

5.5 – Uma escola deseja saber se existemalunos cursando, simultaneamente, as disciplinas Lógica e Linguagem eProgramação. Coloque os números das matriculas dos alunos que cursam Lógica emum vetor, quinze alunos. Coloque os números das matriculas dos alunos quecursam Linguagem e Programação em outro vetor, dez alunos. Mostre o numero dasmatriculas que aparecem nos dois vetores.

5.6– Faça um programa que receba o total das vendas de cada vendedor de uma loja earmazene-as em um vetor. Receba também o percentual de comissão a que cadavendedor tem direito e armazene-os em um outro vetor. Receba os nomes dessesvendedores e armazene-os em um terceiro vetor. Existem apenas dez vendedores naloja. Calcule e mostre:

a) um relatório com os nomes dos vendedores e os valores a receber referentes à comissão;

b) o total das vendas de todos os vendedores;

c) o maior valor a receber e o nome de que o receberá;

d) o menor valor a receber e o nome de quem o receberá

5.7 – Faça um programa que preencha umvetor com dez números reais, calcule e mostre a quantidade de números negativose a soma dos números positivos desse vetor

5.8 – Faça um programa que preencha um vetor com os nomes de sete alunos e carregue outro vetor com a média final destes alunos. Calcule e mostre:

· O nome do aluno com maior média (desconsiderar empates)

· Para cada aluno não aprovado, isto é, com médiamenor que 7, mostrar quanto esse aluno precisa tirar na prova de exame finalpara ser aprovado.considerar que a média para aprovação no exame é 5.

5.9 – Faça um programa que preencha três vetores com dez posições cada um: o primeiro vetor, com os nomes de dez produtos; o segundo vetor, com os códigos dos dez produtos; e o terceiro vetor, com os preços dos produtos. Mostre um relatório apenas com o nome, o código, o preço e o novo preço dos produtos que sofrerão aumento.

Sabe-se que os produtos que sofrerãoaumento são aqueles que possuem código par ou preço superior a R$1.000,00.Sabe-se ainda que, para os produtos que satisfazem as duas condiçõesanteriores, código e preço, o aumento será de 20%; para aqueles que satisfazemapenas a condição de código, o aumento será de 15%; e para aqueles quesatisfazem apenas a condição de preço, o aumento será de 10%.

5.10 – Faça um programa que preencha umvetor com dez números inteiros e um segundo vetor com cinco números inteiros,calcule e mostre dois vetores resultantes. O primeiro vetor resultante serácomposto pela soma de cada par do primeiro vetor somado a todos os números dosegundo vetor. O segundo vetor resultante será composto pela quantidade dedivisores que cada numero impar do primeiro vetor tem no segundo vetor.

Primeiro vetor

4	7	5	8	2	15	9	6	10	11
1	2	3	4	5	6	7	8	9	10

Segundo vetor

3	4	5	8	2
1	2	3	4	5

Primeiro vetor resultante

8+3+4+5+8+2

...

4+3+4+5+8+2

Segundo vetor resultante

5 é divisível apenas por cinco

...

7 não possui divisores

15 é divisível por 3 e por 5

5.11 – Façaum programa que receba dez números inteiros e armazene-os em um vetor. Calculee mostre dois vetores resultantes: o primeiro com os números pares e o segundo,com os números ímpares.

5.12 – Faça um programa que receba cinco números e mostre a saída a seguir:

Os númerosdigitados foram: 5+3+2+0+2=12

5.13 – Faça um programa que receba o nome e duas notas de oito alunos e mostre o relatório a seguir.

Digite o nome do 1º aluno: Carlos

Digite a nota do Carlos: 5

Digite o nome do 2º aluno: Pedro

Digite a nota do Pedro: 5

Relatório de notas

Carlos 9.0

Pedro 5.0

Média da classe: ???

ALUNO	1ª PROVA	2ª PROVA	MÉDIA	SITUAÇÃO
Carlos	8,0	9,0	8,5	Aprovado
Pedro	4,0	5,0	4,5	Reprovado

5.14 – Faça um programa que receba o nome e duas notas de seis alunos e mostre o relatório a seguir. Relatório de notas:

Média da classe: ???

· Percentual de alunos reprovados: ?%

· Percentual de alunos de exame= ?% (Aluno em exame , média entre 5,0 e 7,0)

· Percentual de alunos aprovados

5.15– Faça um programa que receba o nome de oito clientes e armazene-os em umvetor. Em um segundo vetor, armazene a quantidade de DVDs locados em 2011 porcada um dos oito clientes. Sabe-se que, para cada dez locações, o cliente temdireito a uma locação grátis. Faça um programa que mostre o nome de todos osclientes, coma a quantidade de locações grátis a que ele tem direito.

5.16 – Faça um programa que receba o nome de cinco produtos e seus respectivos preços. Calcule e mostre:

· A quantidade de produtos com preço inferior a R$50,00;

· O nome dos produtos com preço entre R$50,00 e R$100,00;

· A média dos preços dos produtos com preçosuperior a R$100,00.

5.17 – Faça um programa que preencha dois vetores de dez posições cada, determine e mostre um terceiro contendo os elementos dos dois vetores anteriores ordenados de maneira decrescente.

5.18 – Faça um programa que preencha um vetor com quinze números, determine e mostre:

· O maior número e a posição por ele ocupada no vetor;

· O menor número e a posição por ele ocupada novetor.

5.19 – Faça um programa que preencha dois vetores de dezposições e faça a multiplicação dos elementos de mesmo índice, colocando oresultado em um terceiro vetor. Mostre o vetor resultante.

5.20 – Faça umprograma que leia um vetor de dez posições para números inteiros e mostresomente os números positivos.

5.21 – Faça um programa que leia um vetor com dez posiçõespara números inteiros. Crie um segundo vetor, substituindo os valores nulos por1. Mostre os dois vetores.

5.22 – Faça um programa que leia um vetor A de dez posições.Em seguida, compacte o vetor, retirando os valores nulos e negativos. Armazeneesse resultado no vetor B. Mostre o vetor B. (lembre-se: o vetor B pode não sercompletamente preenchido)

5.23 – Faça um programa que leia dois vetores (A e B) com cinco posições para números inteiros. O programa deve, então, subtrair o primeiro elemento de A do ultimo de B, acumulando o valor, subtrair o segundo elemento de A do penúltimo de B, acumulando o valor e assim por diante. Ao final, mostre o resultado de todas as subtrações realizadas.

5.24 – Faça um programa que leia um vetor com quinze posições para números inteiros. Crie, a seguir, um vetor resultante que contenha todos os números primos do vetor digitado. Escreva o vetor resultante.

5.25- Faça um programa que leia um vetor com quinze posiçõespara números inteiros. Depois da leitura, divida todos os seus elementos pelomaior valor do vetor. Mostre o vetor após os cálculos.

quarta-feira, 26 de outubro de 2016

4.28 Faça um programa que calcule o valor total investido por um colecionador em sua coleção de CDs e o valor médio gasto em cada um deles. O usuário deverá informar a quantidade de CDs e o valor para em cada um.

4.28 Faça um programa que calcule o valor total investido por um colecionador em sua coleção de CDs e o valor médio gasto em cada um deles. O usuário deverá informar a quantidade de CDs e o valor para em cada um.

Algoritmo "lista de repetição 4.28"
Var
CD,N,preco,media,soma : real
Inicio
Escreval ("Informe a quantidade de CDs")
Leia (CD)
N := 1
limpatela
enquanto N <= CD faca
escreval("----------------------------")
Escreval ("Informe o preço do CD",N)
leia (Preco)
N := N + 1
soma := soma + preco
fimenquanto
media := soma / cd
escreval
escreval("-------Média de gasto-------------")
escreval("A quantidade de CD´S é: ",cd)
escreval
escreval ("A média de gasto foi de R$ ",media:2:2)
Fimalgoritmo

terça-feira, 25 de outubro de 2016

5.25 - Faça um programa que leia um vetor com quinze posições para números inteiros. Depois da leitura, divida todos os seus elementos pelo maior valor do vetor. Mostre o vetor após os cálculos.

5.25 - Faça um programa que leia um vetor com quinze posições para números inteiros. Depois da leitura, divida todos os seus elementos pelo maior valor do vetor.
Mostre o vetor após os cálculos.

Algoritmo "Questão 5.25"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 25/10/2016
Var
// Seção de Declarações das variáveis
vet1:vetor[1..15] de inteiro
vet2:vetor[1..15] de real
i,maior:inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i:=1 ate 15 faca
escreval("Digite o ",i,"º valor")
leia(vet1[i])
fimpara
maior:=vet1[1]
para i:=1 ate 15 faca
se vet1[i] > maior entao
maior:= vet1[i]
fimse
fimpara
para i:=1 ate 15 faca
vet2[i]:=vet1[i]/maior
fimpara
escreval("----------------------------")
escreval("O maior valor encontrado foi: ",maior)
escreval("------------------------------")
escreval("Lista do novo vetor")
escreval
para i:=1 ate 15 faca
escreva(vet2[i]:5:2)
fimpara

Fimalgoritmo

5.18 - faca um program que preencha um vetor com quinze números, determine e mostre: a) o maior número e a posição por ele ocupada no vetor; //b) o menor número e a posição por ele ocupada no vetor

//5.18 - faca um program que preencha um vetor com quinze números, determine e mostre:

//a) o maior número e a posição por ele ocupada no vetor;

//b) o menor número e a posição por ele ocupada no vetor

Algoritmo "questão 5.18"

// Disciplina : ALGORITMOS

// Professor : ANGELO DA CUNHA SÁ

// Descrição : Aqui você descreve o que o programa faz! (função)

// Autor(a) : Nome do(a) aluno(a)

// Data atual : 25/10/2016

Var

// Seção de Declarações das variáveis

vet:vetor[1..15] de inteiro

i:inteiro

maior,menor,posmaior,posmenor:inteiro

Inicio

// Seção de Comandos, procedimento, funções, operadores, etc...

para i:=1 ate 15 faca

escreva("Digite o ",i," número..")

leia(vet[i])

fimpara

maior:=vet[1]

menor:=vet[1]

//verifica o maior elemento e sua posição no vetor

para i:=1 ate 15 faca

se vet[i] > maior entao

maior:=vet[i]

posmaior:=i

fimse

fimpara

//verifica o menor elemento e sua posição no vetor

para i:=1 ate 15 faca

se vet[i] < menor entao

menor:=vet[i]

posmenor:=i

fimse

fimpara

escreval("----------------------------------")

escreval("O maior número no vetor é: ", maior)

escreval("Sua posição no vetor é: ",posmaior)

escreval

escreval("--------------------------------")

escreval("O menor número no vetor é: ", menor)

escreval("Sua posição no vetor é: ",posmenor)

Fimalgoritmo

domingo, 23 de outubro de 2016

5.5 - Uma escola deseja saber se existem alunos cursando, simultaneamente, as disciplinas Lógica e Linguagem e Programação. Coloque os números das matriculas dos alunos que cursam Lógica em um vetor, quinze alunos. Coloque os números das matriculas dos alunos que cursam Linguagem e Programação em outro vetor, dez alunos. Mostre o numero das matriculas que aparecem nos dois vetores.

5.5 - Uma escola deseja saber se existem alunos cursando, simultaneamente, as disciplinas Lógica e Linguagem e Programação. Coloque os números das matriculas dos alunos que cursam Lógica em um vetor, quinze alunos. Coloque os números das matriculas dos alunos que cursam Linguagem e Programação em outro vetor, dez alunos. Mostre o numero das matriculas que aparecem nos dois vetores.
Algoritmo "QUESTÃO 5.5"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vetlogica:vetor[1..15]de inteiro
vetprog:vetor[1..10] de inteiro
vetresultante:vetor[1..10]de inteiro
i,j,z:inteiro
EXISTE:LOGICO
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
ESCREVAL("-----ALUNOS DE LÓGICA---")
PARA I:=1 ATE 15 FACA
ESCREVAL("DIGITE A MATRICULA DO ",I,"º ALUNO DE LÓGICA")
LEIA(VETLOGICA[I])
FIMPARA
ESCREVAL
ESCREVAL("------------------------------------------")
ESCREVAL("-----ALUNOS DE LINGUAGEM E PROGRAMAÇÃO---")
PARA J:=1 ATE 10 FACA
ESCREVAL("DIGITE A MATRICULA DO ",J,"º ALUNO DE LINGUAGEM E PROGRAMAÇÃO")
LEIA(VETPROG[J])
FIMPARA
PARA J:=1 ATE 10 FACA
PARA I:=1 ATE 15 FACA
SE (VETLOGICA[I]=VETPROG[J]) ENTAO
VETRESULTANTE[J]:=VETLOGICA[I]
EXISTE:=VERDADEIRO
FIMSE
FIMPARA
FIMPARA
ESCREVAL
ESCREVAL("----------------------------------------")
ESCREVAL("MATRÍCULA DOS ALUNOS QUE CURSAM AS DUAS DISCIPLINAS")
ESCREVAL("-----------------------------------------")
SE EXISTE ENTAO
PARA I:=1 ATE 10 FACA
SE (VETRESULTANTE[I]<>0) ENTAO
ESCREVA(VETRESULTANTE[I]:5)
FIMSE
FIMPARA
SENAO
ESCREVAL("NÃO EXISTEM ALUNOS CURSANDO AS DUAS DISCIPLINAS AO MESMO TEMPO..")
FIMSE

Fimalgoritmo

sábado, 22 de outubro de 2016

5.4 - Faça um programa que preencha um vetor com quinze elementos inteiros e verifique a existência de elementos iguais a 30, mostrando as posições em que apareceram.

//5.4 - Faça um programa que preencha um vetor com quinze elementos inteiros e verifique a existência de elementos iguais a 30, mostrando as posições em que apareceram.
Algoritmo "questão 5.4"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vet:vetor[1..15]de inteiro
i,CONT:inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
CONT:=0
PARA I:=1 ATE 15 FACA
ESCREVAL("DIGITE O ",I,"º NÚMERO..")
LEIA(VET[I])
FIMPARA
ESCREVAL("------------------------------------")
PARA I:=1 ATE 15 FACA
SE VET[I]=30 ENTAO
ESCREVAL("NA POSIÇÃO ",I," EXISTE O NÚMERO 30")
CONT:=1
FIMSE
FIMPARA
SE CONT=0 ENTAO
ESCREVAL("O NÚMERO 30 NÃO EXISTE NO VETOR..")
FIMSE

Fimalgoritmo

5.2 - Faça um programa que preencha um vetor com sete números inteiros, calcule e mostre: //a) os múltiplos de 2; //b)os múltiplos de 3 //c)os múltiplos de 2 e 3

5.2 - Faça um programa que preencha um vetor com sete números inteiros, calcule e mostre:
//a) os múltiplos de 2;
//b)os múltiplos de 3
//c)os múltiplos de 2 e 3

Algoritmo "questão 5.2"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vet:vetor[1..7]de inteiro
i:inteiro
QTDMULT2,QTDMULT3,QTDMULT32:LOGICO

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
PARA I:=1 ATE 7 FACA
ESCREVAL("DIGITE O ",I,"º NUMERO")
LEIA(VET[I])
FIMPARA
ESCREVAL("----------------------------")
ESCREVAL("NUMEROS MULTIPLOS DE 2")
PARA I:=1 ATE 7 FACA
SE VET[I]>=2 ENTAO
SE VET[I] MOD 2 =0 ENTAO
QTDMULT2:=VERDADEIRO
SE QTDMULT2 ENTAO
ESCREVA(VET[I]:3)
FIMSE
FIMSE
FIMSE
FIMPARA
SE QTDMULT2=FALSO ENTAO
ESCREVAL("NÃO EXISTEM MÚLTIPLOS DE 2")
FIMSE
ESCREVAL
ESCREVAL("----------------------------")
ESCREVAL("NUMEROS MULTIPLOS DE 3")
PARA I:=1 ATE 7 FACA
SE VET[I]>=3 ENTAO
SE VET[I] MOD 3 =0 ENTAO
QTDMULT3:=VERDADEIRO
SE QTDMULT3 ENTAO
ESCREVA(VET[I]:3)
FIMSE
FIMSE
FIMSE
FIMPARA
SE QTDMULT3=FALSO ENTAO
ESCREVAL("NÃO EXISTEM MÚLTIPLOS DE 3")
FIMSE
ESCREVAL
ESCREVAL("----------------------------")
ESCREVAL("NUMEROS MULTIPLOS DE 2 E 3")
PARA I:=1 ATE 7 FACA
SE VET[I]>=2 ENTAO
SE ((VET[I] MOD 2 =0) E (VET[I] MOD 3 =0)) ENTAO
QTDMULT32:=VERDADEIRO
SE QTDMULT32 ENTAO
ESCREVA(VET[I]:3)
FIMSE
FIMSE
FIMSE
FIMPARA
SE QTDMULT32=FALSO ENTAO
ESCREVAL("NÃO EXISTEM NÚMEROS MÚLTIPLOS DE 2 E 3")
FIMSE
Fimalgoritmo

//5.1 - Faça um programa que preencha um vetor com seis //elementos numéricos inteiros. Calcule e mostre: //a) todos os números pares; //b) a quantidade de números pares; //c) todos os números impares; //d) a quantidade de números impares

//5.1 - Faça um programa que preencha um vetor com seis
//elementos numéricos inteiros. Calcule e mostre:
//a) todos os números pares;
//b) a quantidade de números pares;
//c) todos os números impares;
//d) a quantidade de números impares

Algoritmo "questão 5.1semnome"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vet:vetor[1..6] de inteiro
i,qtdpar,qtdimpar:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
PARA I:=1 ATE 6 FACA
ESCREVAL("DIGITE O ",I,"º NÚMERO..")
LEIA(VET[I])
FIMPARA
ESCREVAL
ESCREVAL("-----------------------------------")
ESCREVAL("NUMEROS PARES--")
PARA I:=1 ATE 6 FACA
SE (VET[I] MOD 2 = 0) ENTAO
QTDPAR:=QTDPAR+1
ESCREVA(VET[I]:4)
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE NÚMEROS PARES É: ",QTDPAR)
ESCREVAL
ESCREVAL("-----------------------------------")
ESCREVAL("NUMEROS IMPARES--")
PARA I:=1 ATE 6 FACA
SE (VET[I] MOD 2 <> 0) ENTAO
QTDIMPAR:=QTDIMPAR+1
ESCREVA(VET[I]:4)
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE NÚMEROS IMPARES É: ",QTDIMPAR)

Fimalgoritmo

5.14 Faça um programa que receba o nome e duas notas de seis alunos e mostre o relatório a seguir. Relatório de notas

5.14 Faça um programa que receba o nome e duas notas de seis alunos e mostre o relatório a seguir. Relatório de notas

//ALUNO-- |1ªPROVA -|-2ªPROVA-|-MÉDIA-|-SITUAÇÃO
//CARLOS | 8,0 | 9,0 | 8,5 | APROVADO
//PEDRO | 4,0 | 5,0 | 4,5 | REPROVADO

//(Aluno em exame , média entre 5,0 e 7,0)

// Média da classe: ???
// Percentual de alunos reprovados: ?%
// Percentual de alunos de exame= ?%
// Percentual de alunos aprovados= ?%

Algoritmo "lista vetores questão 14"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 22/10/2016
Var
// Seção de Declarações das variáveis
NOMEVET,SITUACAOVET:VETOR[1..6] DE CARACTER
NOTA1VET,NOTA2VET,MEDIAVET:VETOR[1..6]DE REAL
I,CONTAPROVA,CONTREPROVA,CONTEXAME:INTEIRO
SOMAMEDIACLASSE,MEDIACLASSE,PERCAPROVADOS,PERCREPROVADOS,PERCEXAME:REAL
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
PARA I:=1 ATE 6 FACA
ESCREVAL("DIGITE O NOME DO ",I,"º ALUNO")
LEIA(NOMEVET[I])
ESCREVAL("DIGITE A NOTA DA 1ª PROVA DO ALUNO")
LEIA(NOTA1VET[I])
ESCREVAL("DIGITE A NOTA DA 2ª PROVA DO ALUNO")
LEIA(NOTA2VET[I])
MEDIAVET[I]:=(NOTA1VET[I]+NOTA2VET[I])/2
SE MEDIAVET[I]>=7 ENTAO
SITUACAOVET[I]:="APROVADO"
CONTAPROVA:=CONTAPROVA+1
SENAO
SE ((MEDIAVET[I]>5) E (MEDIAVET[I]<7)) ENTAO
SITUACAOVET[I]:="EXAME"
CONTEXAME:=CONTEXAME+1
SENAO
SITUACAOVET[I]:="REPROVADO"
CONTREPROVA:=CONTREPROVA+1
FIMSE
FIMSE
SOMAMEDIACLASSE:=SOMAMEDIACLASSE+MEDIAVET[I]
FIMPARA
MEDIACLASSE:= SOMAMEDIACLASSE/6
PERCAPROVADOS:=CONTAPROVA/6*100
PERCREPROVADOS:=CONTREPROVA/6*100
PERCEXAME:=CONTEXAME/6*100
LIMPATELA
ESCREVAL("------------------------------------------------------------")
ESCREVAL("| NOME | 1ª VALOR | 2ªVALOR | MÉDIA | SITUACAO |")
ESCREVAL("____________________________________________________________")
PARA I:=1 ATE 6 FACA
ESCREVAL("|",NOMEVET[I]:10," | ",NOTA1VET[I]:6:2," | ",NOTA2VET[I]:6:2," | ",MEDIAVET[I]:6:2," | ",SITUACAOVET[I]:9," |")
FIMPARA
ESCREVAL
ESCREVAL
ESCREVAL("A MÉDIA DA CLASSE É: ",MEDIACLASSE:3:2,"%")
ESCREVAL("O PERCENTUAL DE ALUNOS APROVADOS É: ",PERCAPROVADOS:3:2,"%")
ESCREVAL("O PERCENTUAL DE ALUNOS REPROVADOS É: ",PERCREPROVADOS:3:2,"%")
ESCREVAL("O PERCENTUAL DE ALUNOS EM EXAME É: ",PERCEXAME:3:2,"%")

Fimalgoritmo

Programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições

//5.3 - Faça um programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições cada, onde o primeiro
//corresponde ao código do produto eo segundo, ao total desse produto em estoque. Logo após, o programa deverá ler um conjunto indeterminado de dados contendo o código
//de um cliente e o código do produto que ele deseja comprar, juntamente com a quantidade. Código do cliente igual a zero indica fim do programa. O programa deverá verificar:
//a) Se o código do produto solicitado existe. Se existir, tentar atender o pedido; caso contrario, exibir mensagem Código inexistente;
//" Cada pedido feito por um cliente só poderá ser atendido integralmente. Caso isso não seja possível,
//escrever a mensagem--- Não temos estoque suficiente dessa mercadoria. Se puder atendê-lo, escrever a mensagem Pedido atendido. Obrigado e volte sempre;
//b) Efetuar a atualização do estoque somente se o pedido for atendido integralmente;
//c) No final do programa, escrever os códigos dos produtos com seus respectivos estoques já atualizados.

Algoritmo "lista de vetores ex 5.3 "
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 22/10/2016
Var
// Seção de Declarações das variáveis
vet_cod_prod,vet_qtd_prod:vetor [1..10] de inteiro
i,j,cod_cli,cod_prod,qtd:inteiro
produt:logico

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i:=1 ate 10 faca
escreval("••••••••••••••••••••••••••••••••••••")
escreva("Digite o código do ",i,"º produto: ")
leia(vet_cod_prod[i])
escreva("Digite a quantidade do ",i,"º produto: ")
leia(vet_qtd_prod[i])
fimpara
escreval("******************************************")
escreval("Digite o código do cliente")
leia(cod_cli)
repita
escreval("Qual o código do produto desejado.?.")
leia(cod_prod)
para i:=1 ate 10 faca
se (vet_cod_prod[i] = cod_prod) entao
produt<-verdadeiro
j:=i
fimse
fimpara
se produt=verdadeiro entao
escreval("Qual a quantidade desejada?")
leia(qtd)
se qtd<=vet_qtd_prod[j] entao
vet_qtd_prod[j]:=vet_qtd_prod[j]-qtd
escreval("Produto atendido. Volte sempre! ")
senao
escreval("Infelizmente não podemos atender seu pedido")
escreval("Não temos estoque suficiente desta mercadoria..")
fimse
senao
escreval("-----CÓDIGO INEXISTENTE-----")
fimse
escreval("****************************************")
escreval("Para sair digite o código ZERO - 0 ")
escreval("Digite o código do cliente")
leia(cod_cli)
ate cod_cli=0
escreval("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")
escreval("O estoque atualizado é:..")
para i:=1 ate 10 faca
escreval("--------------------------------------------------------")
escreval("O codigo do produto é:", vet_cod_prod[i])
escreval("A quantidade no estoque arualizada é: ",vet_qtd_prod[i])
fimpara
Fimalgoritmo

sexta-feira, 21 de outubro de 2016

Primeiros dez primos acima de 100 - vetores

//Faca um programa que gere os dez primeiros números primos
//acima de 100 e armazeneos em um vetor. Em seguida mostre
//esse vetor.
Algoritmo "primeiros dez primos acima de 100"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 22/10/2016
Var
// Seção de Declarações das variáveis
primos:vetor[1..10] de inteiro
i,qtde,num,divi:inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
num := 101
qtde := 1
repita
divi := 0
para i := 1 ate num faca
se num MOD i = 0 entao
divi := divi + 1
fimse
fimpara
se divi = 2 entao
primos[qtde] := num
qtde := qtde + 1
fimse
num := num + 1
ate qtde = 11
limpatela
escreval("-------------------------------")
escreval("Vetor dos números primos acima de 100")
para i:=1 ate 10 faca
escreva(primos[i]:5)
fimpara
fimalgoritmo

Exercício 1 Vetores..resolvidos

Crie um algoritmo que leia um vetor de 10 números inteiros. Em seguida, calcule e escreva o somatório dos valores deste vetor.
Algoritmo "ex1 vetores"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 21/10/2016
Var
// Seção de Declarações das variáveis
v: vetor[1..10] de inteiro
i,n,soma:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i:=1 ate 10 faca
escreval("Digite o ",i," valor desejado")
leia(n)
soma<-soma+n
fimpara
escreval(" A soma dos valores é: ",soma)

Fimalgoritmo

terça-feira, 18 de outubro de 2016

Exercicio 3.39 ou 4.39.. da lista de repetição

//3.39 Faça um programa que leia dez conjuntos de dois
//valores, o primeiro representando o número do aluno
//e o segundo representando a sua altura em centímetros.
//Encontre o aluno mais alto e o mais baixo.
//Mostre o número do aluno mais alto e o número do aluno
//mais baixo, junto com suas alturas.
Algoritmo "algoritmo 3.39"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 19/10/2016
Var
// Seção de Declarações das variáveis
I:inteiro
alunos, Alunomaior,alunomenor,Maior,Menor,Altura:real

Inicio
//Le 10 alunos
ESCREVAL("DIGITE O Numero do ALUNO")
Leia(Alunos)
ESCREVAL("DIGITE A ALTURA DO ALUNO")
Leia(Altura)
Maior := altura
Menor := altura
alunomaior:=alunos
alunomenor:=alunos

para i:= 1 ate 9 faca
ESCREVAL("DIGITE O Numero do ALUNO")
Leia(Alunos)
ESCREVAL("DIGITE A ALTURA DO ALUNO")
Leia(Altura)
Se Altura > maior entao
Maior := altura
alunomaior:=alunos
fimse
se Altura < menor entao
Menor := altura
alunomenor:=alunos
FimSe
FimPara
//Mostra Maior
ESCREVA("O Maior aluno é o que tem o numero ",Alunomaior)
escreval(" sua altura é: ", maior)
//Mostra Menor
ESCREVA("O Menor aluno é o que tem o numero ",Alunomenor)
escreval(" sua altura é: ", menor)
Fimalgoritmo

sexta-feira, 14 de outubro de 2016

Exercício da sorveteria usando o enquanto

//Uma sorveteria vende 3 tipos de picolés. Sabendo-se que o picolé do tipo 1 é vendido por R$ 0,50,
// o do tipo 2 por R$ 0,60 e o do tipo 3 por R$ 0,25, faça um algoritmo que, para cada tipo de picolé,
//mostre a quantidade vendida e o total arrecadado. Faça pelo menos entre 5 e 10 vendas

Algoritmo "sorveteria.. usando enquanto"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ

Var
tipopicole,qtdtotal,qtdtipo1,qtdtipo2,qtdtipo3:inteiro
total:real

Inicio
tipopicole:=1
enquanto ((tipopicole>=1) e (tipopicole<=3)) faca
escreval("Escolha o tipo de picole::..1..2..ou..3")
escreval("Para sair, digite outro código..")
leia(tipopicole)
se tipopicole=1 entao
qtdtipo1:=qtdtipo1+1
fimse
se tipopicole=2 entao
qtdtipo2:=qtdtipo2+1
fimse
se tipopicole=3 entao
qtdtipo3:=qtdtipo3+1
fimse
fimenquanto
TOTAL:=QTDTIPO1*0.50+QTDTIPO2*0.60+QTDTIPO3*0.25
QTDTOTAL:=QTDTIPO1+QTDTIPO2+QTDTIPO3
ESCREVAL("A QUANTIDADE VENDIDA FOI:")
ESCREVAL("QUANTIDADE DO TIPO 1: ",QTDTIPO1)
ESCREVAL("QUANTIDADE DO TIPO 2: ",QTDTIPO2)
ESCREVAL("QUANTIDADE DO TIPO 3: ",QTDTIPO3)
ESCREVAL("A QUANTIDADE TOTAL: ",QTDTOTAL)
ESCREVAL("O VALOR TOTAL ARRECADADO FOI R$",TOTAL:4:2)

Fimalgoritmo

Exercicio Repita...até... usando também o comando escolha..caso

//Uma sorveteria vende 3 tipos de picolés. Sabendo-se que o picolé do tipo 1 é vendido por R$ 0,50,
// o do tipo 2 por R$ 0,60 e o do tipo 3 por R$ 0,25, faça um algoritmo que, para cada tipo de picolé,
//mostre a quantidade vendida e o total arrecadado. Faça pelo menos entre 5 e 10 vendas

Algoritmo "SORVETERIA"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ

Var
// Seção de Declarações das variáveis
TIPOPICOLE:INTEIRO
QTDTIPO1,QTDTIPO2,QTDTIPO3:INTEIRO
TOTAL,QTDTOTAL:REAL

Inicio
REPITA
ESCREVAL("QUAL O TIPO DE PICOLÉ VENDIDO?")
ESCREVAL("DIGITE 1 PARA TIPO 1")
ESCREVAL("DIGITE 2 PARA TIPO 2")
ESCREVAL("DIGITE 3 PARA TIPO 3")
ESCREVAL("DIGITE 0 PARA SAIR")
LEIA(TIPOPICOLE)
ESCOLHA TIPOPICOLE
CASO 1
QTDTIPO1:=QTDTIPO1+1
CASO 2
QTDTIPO2:=QTDTIPO2+1
CASO 3
QTDTIPO3:=QTDTIPO3+1
FIMESCOLHA
ATE TIPOPICOLE=0
TOTAL:=QTDTIPO1*0.50+QTDTIPO2*0.60+QTDTIPO3*0.25
QTDTOTAL:=QTDTIPO1+QTDTIPO2+QTDTIPO3
ESCREVAL("A QUANTIDADE VENDIDA FOI:")
ESCREVAL("QUANTIDADE DO TIPO 1: ",QTDTIPO1)
ESCREVAL("QUANTIDADE DO TIPO 2: ",QTDTIPO2)
ESCREVAL("QUANTIDADE DO TIPO 3: ",QTDTIPO3)
ESCREVAL("A QUANTIDADE TOTAL: ",QTDTOTAL)
ESCREVAL("O VALOR TOTAL ARRECADADO FOI R$",TOTAL:4:2)

Fimalgoritmo

domingo, 9 de outubro de 2016

Exercício 3.1

/3.1 Faça um programa que peça uma nota, entre zero e dez. Mostre uma mensagem caso o valor seja inválido e continue pedindo até que o usuário informe um valor válido.
Algoritmo "Exercício 3.1"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 09/10/2016
Var
// Seção de Declarações das variáveis

nota:real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
nota:=11
enquanto ((nota<0) ou (nota>10)) faca
Escreval("Digite um valor válido")
Escreval("POR FAVOR DIGITE UMA NOTA ENTRE 0 E 10")
leia(nota)
escreval
escreval
fimenquanto
escreval("A nota digitada foi: ",nota:4:2)

Fimalgoritmo

3.1 Faça um programa que peça uma nota, entre zero e dez. Mostre uma mensagem caso o valor seja inválido e continue pedindo até que o usuário informe um valor válido.

Algoritmo "Exercício 3.1"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 09/10/2016
Var
// Seção de Declarações das variáveis

nota:real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
repita
Escreval("Digite um valor válido")
Escreval("POR FAVOR DIGITE UMA NOTA ENTRE 0 E 10")
leia(nota)
escreval
escreval
ate ((nota>=0) e (nota<=10))
escreval("A nota digitada foi: ",nota:4:2)

Fimalgoritmo