Algoritmo "Algoritmo 3.21"
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
//3.21 Faça um programa que peça um número inteiro e
//determine se ele é ou não um número primo.
//Um número primo é aquele que é divisível somente por ele mesmo
//e por 1.
Var
// Seção de Declarações das variáveis
i,numero,cont:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreval("Digite um numero..")
leia(numero)
para i:=1 ate numero faca
se numero mod i = 0 entao
cont:=cont+1
fimse
fimpara
se cont<=2 entao
escreval("O numero ",numero, " é primo!")
senao
escreval("O numero ",numero, " não é primo!")
fimse
Fimalgoritmo
sábado, 4 de novembro de 2017
3.23 Faça um programa que mostre todos os primos entre 1 e N sendo N um número inteiro fornecido pelo usuário. O programa deverá mostrar também o número de divisões que ele executou para encontrar os números primos. Serão avaliados o funcionamento, o estilo e o número de testes (divisões) executados.
Algoritmo "Algoritmo 3.23"
Var
// Seção de Declarações das variáveis
i,numero,cont,x:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreval("Digite um numero..")
Escreval("Para saber quais numeros são primos neste intervalo")
leia(numero)
repita
para i:=1 ate numero faca
se numero mod i = 0 entao
cont:=cont+1
x:=x+1
fimse
fimpara
se cont<=2 entao
escreval("O numero ",numero, " é primo!")
senao
escreval("O numero ",numero, " não é primo!")
fimse
numero:=numero-1
cont:=0
ate numero=0
escreval("O numero de divisões feitas foi: ",x)
Fimalgoritmo
Var
// Seção de Declarações das variáveis
i,numero,cont,x:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreval("Digite um numero..")
Escreval("Para saber quais numeros são primos neste intervalo")
leia(numero)
repita
para i:=1 ate numero faca
se numero mod i = 0 entao
cont:=cont+1
x:=x+1
fimse
fimpara
se cont<=2 entao
escreval("O numero ",numero, " é primo!")
senao
escreval("O numero ",numero, " não é primo!")
fimse
numero:=numero-1
cont:=0
ate numero=0
escreval("O numero de divisões feitas foi: ",x)
Fimalgoritmo
Estrutura de Repetição - Lista 04.
Estrutura de Repetição .
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.
3.2 Faça um programa que leia um nome de usuário e a sua senha e não aceite a senha igual ao
nome do usuário, mostrando uma mensagem de erro e voltando a pedir as informações.
3.5 Altere o programa anterior permitindo ao usuário informar as populações e as taxas de
crescimento iniciais. Valide a entrada e permita repetir a operação.
3.6 Faça um programa que imprima na tela os números de 1 a 20, um abaixo do outro. Depois
modifique o programa para que ele mostre os números um ao lado do outro.
3.7 Faça um programa que leia 5 números e informe o maior número
.
3.8 Faça um programa que leia 5 números e informe a soma e a média dos números.10
3.9 Faça um programa que imprima na tela apenas os números ímpares entre 1 e 50.
3.10 Faça um programa que receba dois números inteiros e gere os números inteiros que estão no
intervalo compreendido por eles.
3.11 Altere o programa anterior para mostrar no final a soma dos números.
3.12 Desenvolva um gerador de tabuada, capaz de gerar a tabuada de qualquer número inteiro entre
1 a 10. O usuário deve informar de qual numero ele deseja ver a tabuada. A saída deve ser conforme
o exemplo abaixo:
Tabuada de 5:
5 X 1 = 5
5 X 2 = 10
...
5 X 10 = 50
3.13 Faça um programa que peça dois números, base e expoente, calcule e mostre o primeiro
número elevado ao segundo número. Não utilize a função de potência da linguagem.
3.14 Faça um programa que peça 10 números inteiros, calcule e mostre a quantidade de números
pares e a quantidade de números impares.
3.15 A série de Fibonacci é formada pela seqüência 1,1,2,3,5,8,13,21,34,55,... Faça um programa
capaz de gerar a série até o n−ésimo termo.
3.16 A série de Fibonacci é formada pela seqüência 0,1,1,2,3,5,8,13,21,34,55,... Faça um programa
que gere a série até que o valor seja maior que 500.
3.19 Altere o programa anterior para que ele aceite apenas números entre 0 e 1000.
3.20 Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e
limitando o fatorial a números inteiros positivos e menores que 16.
3.22 Altere o programa de cálculo dos números primos, informando, caso o número não seja primo,
por quais número ele é divisível.11
3.23 Faça um programa que mostre todos os primos entre 1 e N sendo N um número inteiro
fornecido pelo usuário. O programa deverá mostrar também o número de divisões que ele executou
para encontrar os números primos. Serão avaliados o funcionamento, o estilo e o número de testes
(divisões) executados.
3.24 Faça um programa que calcule o mostre a média aritmética de N notas.
3.25 Faça um programa que peça para n pessoas a sua idade, ao final o programa devera verificar
se a média de idade da turma varia entre 0 e 25,26 e 60 e maior que 60; e então, dizer se a turma é
jovem, adulta ou idosa, conforme a média calculada.
3.26 Numa eleição existem três candidatos. Faça um programa que peça o número total de eleitores.
Peça para cada eleitor votar e ao final mostrar o número de votos de cada candidato.
3.27 Faça um programa que calcule o número médio de alunos por turma. Para isto, peça a
quantidade de turmas e a quantidade de alunos para cada turma. As turmas não podem ter mais de
40 alunos.
3.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.
3.29 O Sr. Manoel Joaquim possui uma grande loja de artigos de R$ 1,99, com cerca de 10 caixas.
Para agilizar o cálculo de quanto cada cliente deve pagar ele desenvolveu um tabela que contém o
número de itens que o cliente comprou e ao lado o valor da conta. Desta forma a atendente do caixa
precisa apenas contar quantos itens o cliente está levando e olhar na tabela de preços. Você foi
contratado para desenvolver o programa que monta esta tabela de preços, que conterá os preços de
1 até 50 produtos, conforme o exemplo abaixo:
Lojas Quase Dois -
Tabela de preços
1 - R$ 1.99
2 - R$ 3.98
...
50 - R$ 99.50
3.30 O Sr. Manoel Joaquim acaba de adquirir uma panificadora e pretende implantar a metodologia
da tabelinha, que já é um sucesso na sua loja de 1,99. Você foi contratado para desenvolver o
programa que monta a tabela de preços de pães, de 1 até 50 pães, a partir do preço do pão
informado pelo usuário, conforme o exemplo abaixo:
Preço do pão: R$ 0.18
Panificadora Pão de Ontem - Tabela de preços
1 - R$ 0.18
2 - R$ 0.36
...
50 - R$ 9.00
3.31 O Sr. Manoel Joaquim expandiu seus negócios para além dos negócios de 1,99 e agora possui
uma loja de conveniências. Faça um programa que implemente uma caixa registradora rudimentar. O
programa deverá receber um número desconhecido de valores referentes aos preços das
mercadorias. Um valor zero deve ser informado pelo operador para indicar o final da compra. O
programa deve então mostrar o total da compra e perguntar o valor em dinheiro que o cliente
forneceu, para então calcular e mostrar o valor do troco. Após esta operação, o programa deverá
voltar ao ponto inicial, para registrar a próxima compra. A saída deve ser conforme o exemplo abaixo:
Lojas Tabajara
Produto 1: R$ 2.20
Produto 2: R$ 5.80
Produto 3: R$ 0
Total: R$ 9.00
Dinheiro: R$ 20.00
Troco: R$ 11.00
...
3.32 Faça um programa que calcule o fatorial de um número inteiro fornecido pelo usuário. Ex.:
5!=5.4.3.2.1=120. A saída deve ser conforme o exemplo abaixo:
Fatorial de: 5
5! = 5 . 4 . 3 . 2 . 1 = 120
3.33 O Departamento Estadual de Meteorologia lhe contratou para desenvolver um programa que
leia as um conjunto indeterminado de temperaturas, e informe ao final a menor e a maior
temperaturas informadas, bem como a média das temperaturas.
3.34 Os números primos possuem várias aplicações dentro da Computação, por exemplo na
Criptografia. Um número primo é aquele que é divisível apenas por um e por ele mesmo. Faça um
programa que peça um número inteiro e determine se ele é ou não um número primo.
3.35 Encontrar números primos é uma tarefa difícil. Faça um programa que gera uma lista dos
números primos existentes entre 1 e um número inteiro informado pelo usuário.
3.36 Desenvolva um programa que faça a tabuada de um número qualquer inteiro que será digitado
pelo usuário, mas a tabuada não deve necessariamente iniciar em 1 e terminar em 10, o valor inicial
e final devem ser informados também pelo usuário, conforme exemplo abaixo:
Montar a tabuada de: 5
Começar por: 4
Terminar em: 7
Vou montar a tabuada de 5 começando em 4 e terminando em 7:
5 X 4 = 20
5 X 5 = 25
5 X 6 = 30
5 X 7 = 35
Obs: Você deve verificar se o usuário não digitou o final menor que o inicial.
3.37 Uma academia deseja fazer um senso entre seus clientes para descobrir o mais alto, o mais
baixo, a mais gordo e o mais magro, para isto você deve fazer um programa que pergunte a cada um
dos clientes da academia seu código, sua altura e seu peso. O final da digitação de dados deve ser
dada quando o usuário digitar 0 (zero) no campo código. Ao encerrar o programa também deve ser
informados os códigos e valores do clente mais alto, do mais baixo, do mais gordo e do mais magro,
além da média das alturas e dos pesos dos clientes
3.38 Um funcionário de uma empresa recebe aumento salarial anualmente: Sabe-se que:
a. Esse funcionário foi contratado em 1995, com salário inicial de R$ 1.000,00;
b. Em 1996 recebeu aumento de 1,5% sobre seu salário inicial;
c. A partir de 1997 (inclusive), os aumentos salariais sempre correspondem ao dobro do percentual do ano
anterior.
Faça um programa que determine o salário atual desse funcionário. Após concluir isto, altere o programa permitindo que o usuário digite o salário inicial do funcionário.
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.
3.40 Foi feita uma estatística em cinco cidades brasileiras para coletar dados sobre acidentes de
trânsito. Foram obtidos os seguintes dados:
a. Código da cidade;
b. Número de veículos de passeio (em 1999);
c. Número de acidentes de trânsito com vítimas (em 1999).
Deseja-se saber:
d. Qual o maior e menor índice de acidentes de transito e a que cidade pertence;
e. Qual a média de veículos nas cinco cidades juntas;
f. Qual a média de acidentes de trânsito nas cidades com menos de 2.000 veículos de passeio.
3.41 Faça um programa que receba o valor de uma dívida e mostre uma tabela com os seguintes
dados: valor da dívida, valor dos juros, quantidade de parcelas e valor da parcela.
Os juros e a quantidade de parcelas seguem a tabela abaixo:
3.42 Faça um programa que leia uma quantidade indeterminada de números positivos e conte
quantos deles estão nos seguintes intervalos: [0-25], [26-50], [51-75] e [76-100]. A entrada de
dados deverá terminar quando for lido um número negativo.
O cardápio de uma lanchonete é o seguinte:
Especificação Código Preço
Cachorro Quente 100 R$ 1,20
Bauru Simples 101 R$ 1,30
Bauru com ovo 102 R$ 1,50
Hambúrguer 103 R$ 1,20
Cheeseburguer 104 R$ 1,30
Refrigerante 105 R$ 1,00
3.43 Faça um programa que leia o código dos itens pedidos e as quantidades desejadas. Calcule e
mostre o valor a ser pago por item (preço * quantidade) e o total geral do pedido. Considere que o
cliente deve informar quando o pedido deve ser encerrado.
3.44 Em uma eleição presidencial existem quatro candidatos. Os votos são informados por meio de
código. Os códigos utilizados são:
1 , 2, 3, 4 - Votos para os respectivos candidatos
(você deve montar a tabela ex: 1 - Jose/ 2- João/etc)
5 - Voto Nulo
6 - Voto em Branco. Faça um programa que calcule e mostre:
a. O total de votos para cada candidato;
b. O total de votos nulos;
c. O total de votos em branco;
d. A percentagem de votos nulos sobre o total de votos;
e. A percentagem de votos em branco sobre o total de votos.
Para finalizar o conjunto de votos tem-se o valor zero.
3.45 Desenvolver um programa para verificar a nota do aluno em uma prova com 10 questões, o
programa deve perguntar ao aluno a resposta de cada questão e ao final comparar com o gabarito
da prova e assim calcular o total de acertos e a nota (atribuir 1 ponto por resposta certa). Após cada
aluno utilizar o sistema deve ser feita uma pergunta se outro aluno vai utilizar o sistema. Após todos
os alunos terem respondido informar:
a. Maior e Menor Acerto;
b. Total de Alunos que utilizaram o sistema;
c. A Média das Notas da Turma.
Gabarito da Prova:
01 - A
02 - B
03 - C
04 - D
05 - E
06 - E
07 - D
08 - C
09 - B
10 - A
Após concluir isto você poderia incrementar o programa permitindo que o professor digite o gabarito da prova
antes dos alunos usarem o programa.
segunda-feira, 30 de outubro de 2017
3.26 Numa eleição existem três candidatos. Faça um programa que peça o número total de eleitores. Peça para cada eleitor votar e ao final mostrar o número de votos de cada candidato
Algoritmo "ALGORITMO 3.26"
//3.26 Numa eleição existem três candidatos. Faça
//um programa que peça o número total de eleitores.
//Peça para cada eleitor votar e ao final mostrar o
//número de votos de cada candidato
Var
// Seção de Declarações das variáveis
I,QTDELEITOR,VOTO,CAND1,CAND2,CAND3,NULO:INTEIRO
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
ESCREVAL("QUAL A QUANTIDADE DE ELEITORES?")
LEIA(QTDELEITOR)
ESCREVAL("--------------------------------------")
PARA I:=1 ATE QTDELEITOR FACA
ESCREVAL("ELEITOR NUMERO: ",I)
ESCREVAL("DIGITE O NUMERO DO SEU CANDIDATO")
ESCREVAL("DIGITE 1 - PARA O CANDIDATO 01")
ESCREVAL("DIGITE 2 - PARA O CANDIDATO 02")
ESCREVAL("DIGITE 3 - PARA O CANDIDATO 03")
ESCREVAL("--------------------------------------")
LEIA(VOTO)
SE VOTO = 1 ENTAO
CAND1:=CAND1+1
SENAO
SE VOTO =2 ENTAO
CAND2:=CAND2+1
SENAO
SE VOTO=3 ENTAO
CAND3:=CAND3+1
SENAO
NULO:=NULO+1
FIMSE
FIMSE
FIMSE
FIMPARA
LIMPATELA
ESCREVAL("--------------------------------------")
ESCREVAL("O NUMERO DE ELEITORES É: ",QTDELEITOR)
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 1 RECEBEU: ",CAND1,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 2 RECEBEU: ",CAND2,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 3 RECEBEU: ",CAND3,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("HOUVERAM: ",NULO," VOTOS NULOS")
Fimalgoritmo
//3.26 Numa eleição existem três candidatos. Faça
//um programa que peça o número total de eleitores.
//Peça para cada eleitor votar e ao final mostrar o
//número de votos de cada candidato
Var
// Seção de Declarações das variáveis
I,QTDELEITOR,VOTO,CAND1,CAND2,CAND3,NULO:INTEIRO
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
ESCREVAL("QUAL A QUANTIDADE DE ELEITORES?")
LEIA(QTDELEITOR)
ESCREVAL("--------------------------------------")
PARA I:=1 ATE QTDELEITOR FACA
ESCREVAL("ELEITOR NUMERO: ",I)
ESCREVAL("DIGITE O NUMERO DO SEU CANDIDATO")
ESCREVAL("DIGITE 1 - PARA O CANDIDATO 01")
ESCREVAL("DIGITE 2 - PARA O CANDIDATO 02")
ESCREVAL("DIGITE 3 - PARA O CANDIDATO 03")
ESCREVAL("--------------------------------------")
LEIA(VOTO)
SE VOTO = 1 ENTAO
CAND1:=CAND1+1
SENAO
SE VOTO =2 ENTAO
CAND2:=CAND2+1
SENAO
SE VOTO=3 ENTAO
CAND3:=CAND3+1
SENAO
NULO:=NULO+1
FIMSE
FIMSE
FIMSE
FIMPARA
LIMPATELA
ESCREVAL("--------------------------------------")
ESCREVAL("O NUMERO DE ELEITORES É: ",QTDELEITOR)
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 1 RECEBEU: ",CAND1,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 2 RECEBEU: ",CAND2,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 3 RECEBEU: ",CAND3,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("HOUVERAM: ",NULO," VOTOS NULOS")
Fimalgoritmo
quinta-feira, 26 de outubro de 2017
3.20 Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o fatorial a números inteiros positivos e menores que 16.
algoritmo "3.20"
var
//Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o //fatorial a números inteiros positivos e menores que 16.
OP:CARACTER
FAT,I,N:INTEIRO
inicio
ENQUANTO OP<>"S" FACA
ESCREVAL("-----------------------------------------")
ESCREVAL("DIGITE UM NUMERO PARA ACHAR O FATORIAL")
ESCREVAL("----------------------------------------------")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
LEIA(N)
FAT:=1
SE ((N>=1) E (N<=16)) ENTAO
PARA I:=1 ATE N FACA
FAT:=FAT*I
FIMPARA
ESCREVAL("O VALOR DO FATORIAL DE ",N," É: ",FAT)
ESCREVAL("--------------------------------------")
SENAO
ESCREVAL("-------------------------------------")
ESCREVAL("VOCÊ DIGITOU UM NUMERO FORA DA FAIXA")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
FIMSE
ESCREVAL("SE DESEJAR SAIR DIGITE S")
LEIA(OP)
FIMENQUANTO
ESCREVAL("OBRIGADO POR USAR O PROGRAMA")
fimalgoritmo
var
//Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o //fatorial a números inteiros positivos e menores que 16.
OP:CARACTER
FAT,I,N:INTEIRO
inicio
ENQUANTO OP<>"S" FACA
ESCREVAL("-----------------------------------------")
ESCREVAL("DIGITE UM NUMERO PARA ACHAR O FATORIAL")
ESCREVAL("----------------------------------------------")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
LEIA(N)
FAT:=1
SE ((N>=1) E (N<=16)) ENTAO
PARA I:=1 ATE N FACA
FAT:=FAT*I
FIMPARA
ESCREVAL("O VALOR DO FATORIAL DE ",N," É: ",FAT)
ESCREVAL("--------------------------------------")
SENAO
ESCREVAL("-------------------------------------")
ESCREVAL("VOCÊ DIGITOU UM NUMERO FORA DA FAIXA")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
FIMSE
ESCREVAL("SE DESEJAR SAIR DIGITE S")
LEIA(OP)
FIMENQUANTO
ESCREVAL("OBRIGADO POR USAR O PROGRAMA")
fimalgoritmo
quarta-feira, 25 de outubro de 2017
Algoritmo 3.21
Algoritmo "Algoritmo 3.21"
//3.21 Faça um programa que peça um número inteiro e determine se ele é
//ou não um número primo.
//Um número primo é aquele que é divisível somente por ele mesmo e por 1.
// Professor : Angelo da Cunha Sá
// Data atual : 25/10/2017
Var
// Seção de Declarações das variáveis
n,a,i:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("digite um numero")
leia(n)
para i:=1 ate n faca
se n mod i = 0 entao
a:=a+1
fimse
fimpara
se a<=2 entao
escreval("Este numero é primo")
senao
escreval("Este numero não é primo")
fimse
Fimalgoritmo
//3.21 Faça um programa que peça um número inteiro e determine se ele é
//ou não um número primo.
//Um número primo é aquele que é divisível somente por ele mesmo e por 1.
// Professor : Angelo da Cunha Sá
// Data atual : 25/10/2017
Var
// Seção de Declarações das variáveis
n,a,i:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("digite um numero")
leia(n)
para i:=1 ate n faca
se n mod i = 0 entao
a:=a+1
fimse
fimpara
se a<=2 entao
escreval("Este numero é primo")
senao
escreval("Este numero não é primo")
fimse
Fimalgoritmo
Exercicio 3.17
Algoritmo "Exercicio 3.17"
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
Var
n,fat,i:inteiro
Inicio
Escreval("Algoritmo para calcular o fatorial")
Escreval("Digite o numero desejado")
Leia(N)
Fat:=1
para i:=1 ate n faca
fat:=fat*i
fimpara
Escreval("O fatorial é:.. ",fat)
Fimalgoritmo
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
Var
n,fat,i:inteiro
Inicio
Escreval("Algoritmo para calcular o fatorial")
Escreval("Digite o numero desejado")
Leia(N)
Fat:=1
para i:=1 ate n faca
fat:=fat*i
fimpara
Escreval("O fatorial é:.. ",fat)
Fimalgoritmo
Exercicio 3.17
Algoritmo "Exercicio 3.17"
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
Var
n,fat,i:inteiro
Inicio
Escreval("Algoritmo para calcular o fatorial")
Escreval("Digite o numero desejado")
Leia(N)
Fat:=1
para i:=1 ate n faca
fat:=fat*i
fimpara
Escreval("O fatorial é:.. ",fat)
Fimalgoritmo
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
Var
n,fat,i:inteiro
Inicio
Escreval("Algoritmo para calcular o fatorial")
Escreval("Digite o numero desejado")
Leia(N)
Fat:=1
para i:=1 ate n faca
fat:=fat*i
fimpara
Escreval("O fatorial é:.. ",fat)
Fimalgoritmo
Exercício 3.4
algoritmo "ALGORITMO 3.4"
// Função :
// Autor :
// Data : 12/10/2016
// Seção de Declarações
var
POPULACAOA, POPULACAOB:REAL
CALCULO:INTEIRO
inicio
// Seção de Comandos
POPULACAOA <- 80000
POPULACAOB <- 200000
REPITA
POPULACAOA <- POPULACAOA * 1.03
POPULACAOB <- POPULACAOB * 1.015
CALCULO <- CALCULO+1
ATE ( POPULACAOA >= POPULACAOB)
ESCREVAL ("-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-")
ESCREVAL
ESCREVAL ("O RESULTADO É DE:", CALCULO, " ANOS")
ESCREVAL
fimalgoritmo
// Função :
// Autor :
// Data : 12/10/2016
// Seção de Declarações
var
POPULACAOA, POPULACAOB:REAL
CALCULO:INTEIRO
inicio
// Seção de Comandos
POPULACAOA <- 80000
POPULACAOB <- 200000
REPITA
POPULACAOA <- POPULACAOA * 1.03
POPULACAOB <- POPULACAOB * 1.015
CALCULO <- CALCULO+1
ATE ( POPULACAOA >= POPULACAOB)
ESCREVAL ("-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-")
ESCREVAL
ESCREVAL ("O RESULTADO É DE:", CALCULO, " ANOS")
ESCREVAL
fimalgoritmo
domingo, 22 de outubro de 2017
Exercicio 3.3 ou 4.3 da lista de repetição
//3.3 Faça um programa que leia e valide as seguintes informações:
// a. Nome: maior que 3 caracteres;
// b. Idade: entre 0 e 150;
// c. Salário: maior que zero;
//d. Sexo: 'f' ou 'm';
//e. Estado Civil: 's', 'c', 'v', 'd';
Algoritmo "exercicio 3.3"
// Autor(a) : Ângelo da Cunha Sá
// Data atual : 22/10/2017
Var
// Seção de Declarações das variáveis
nome,sexo,estcivil:caracter
tamnome,idade,salario:inteiro
Inicio
enquanto tamnome <= 3 faca
escreval("Você precisa digitar um nome com mais de três caracteres")
escreval("Digite o nome do usuário:.. ")
leia(nome)
tamnome:=compr(nome)
escreval("O nome que você digitou tem",tamnome," caracteres")
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite a idade do usuário.")
escreval("A idade deve estar entre 0 e 150 anos")
Leia(idade)
ate (idade>0) e (idade<150)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite o salario do usuário")
escreval("O salário deve ser maior que zero")
Leia(salario)
ate (salario>0)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (sexo<> "m") e (sexo<>"f") faca // ou (sexo=<> f) faca
escreval("Digite o sexo do usuário: ")
escreval("Você precisa digitar F ou M")
leia(sexo)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (estcivil<> "c") e (estcivil<>"d") e (estcivil<> "s") e (estcivil<>"v") faca // ou (sexo=<> f) faca
escreval("Digite o estado civil do usuário: ")
escreval("Digite C - Casado")
escreval("Digite S - Solteiro")
escreval("Digite V - Viuvo")
escreval("Digite D - Divorciado")
escreval("Você precisa digitar C ou D ou V ou S")
leia(estcivil)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
escreval("O Nome do usuário é: ",nome)
escreval
escreval("O tamanho do nome é:..",tamnome)
escreval
escreval("A idade do usuário é:..",idade," anos")
escreval
escreval("O salário do usuário é: ",salario)
escreval
escreval("O sexo do usuário é: ",sexo)
escreval
escreval("O Estado civil do usuário é: ",estcivil)
Fimalgoritmo
// a. Nome: maior que 3 caracteres;
// b. Idade: entre 0 e 150;
// c. Salário: maior que zero;
//d. Sexo: 'f' ou 'm';
//e. Estado Civil: 's', 'c', 'v', 'd';
Algoritmo "exercicio 3.3"
// Autor(a) : Ângelo da Cunha Sá
// Data atual : 22/10/2017
Var
// Seção de Declarações das variáveis
nome,sexo,estcivil:caracter
tamnome,idade,salario:inteiro
Inicio
enquanto tamnome <= 3 faca
escreval("Você precisa digitar um nome com mais de três caracteres")
escreval("Digite o nome do usuário:.. ")
leia(nome)
tamnome:=compr(nome)
escreval("O nome que você digitou tem",tamnome," caracteres")
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite a idade do usuário.")
escreval("A idade deve estar entre 0 e 150 anos")
Leia(idade)
ate (idade>0) e (idade<150)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite o salario do usuário")
escreval("O salário deve ser maior que zero")
Leia(salario)
ate (salario>0)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (sexo<> "m") e (sexo<>"f") faca // ou (sexo=<> f) faca
escreval("Digite o sexo do usuário: ")
escreval("Você precisa digitar F ou M")
leia(sexo)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (estcivil<> "c") e (estcivil<>"d") e (estcivil<> "s") e (estcivil<>"v") faca // ou (sexo=<> f) faca
escreval("Digite o estado civil do usuário: ")
escreval("Digite C - Casado")
escreval("Digite S - Solteiro")
escreval("Digite V - Viuvo")
escreval("Digite D - Divorciado")
escreval("Você precisa digitar C ou D ou V ou S")
leia(estcivil)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
escreval("O Nome do usuário é: ",nome)
escreval
escreval("O tamanho do nome é:..",tamnome)
escreval
escreval("A idade do usuário é:..",idade," anos")
escreval
escreval("O salário do usuário é: ",salario)
escreval
escreval("O sexo do usuário é: ",sexo)
escreval
escreval("O Estado civil do usuário é: ",estcivil)
Fimalgoritmo
sábado, 10 de dezembro de 2016
segunda-feira, 28 de novembro de 2016
5.10 – Faça um programa que preencha um vetor 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 do segundo vetor. O segundo vetor resultante será composto pela quantidade de divisores que cada numero impar do primeiro vetor tem no segundo vetor.
Algoritmo "questão 5.10"
// Disciplina : [Linguagem e Lógica de Programação]
// Professor : Angelo Cunha Sa
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Lucas Edson Trindade Silva
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vetor10 : vetor[1..10] de inteiro
vetor5 : vetor[1..5] de inteiro
pvetor : vetor[1..10] de inteiro
svetor : vetor[1..10] de inteiro
i, i2, aux : inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i:=1 ate 10 faca
escreval("Digite o ",i,"º valor do vetor de 10 posições.")
leia(vetor[i])
fimpara
escreval
para i:=1 ate 5 faca
escreval("Digite o ",i,"º valor do vetor de 10 posições.")
leia(vetor[i])
fimpara
//ATRIBUIÇÃO DE VALORES PARA O PRIMEIRO VETOR RESULTANTE
para i := 1 ate 5 faca
aux := aux + vetor5[i]
fimpara
para i := 1 ate 10 faca
se (vetor10[i] % 2) = 0 entao
pvetor[i] := vetor10[i] + aux
fimse
fimpara
//ATRIBUIÇÃO DE VALORES PARA O SEGUNDO VETOR RESULTANTE
para i:= 1 ate 10 faca
se (vetor10[i] % 2) = 1 entao
para i2 := 1 ate 5 faca
se (vetor10[i] % vetor5[i2]) = 0 entao
svetor[i] := svetor[i] + 1
fimse
fimpara
fimse
fimpara
//EXIBIÇÃO DO RESULTADO
escreval("Primeiro vetor resultante:")
escreval("(Soma de cada número par do primeiro vetor com todos do segundo.)")
para i := 1 ate 10 faca
se pvetor[i] <> 0 entao
escreval(pvetor[i])
fimse
fimpara
escreval("")
escreval("Segundo vetor resultante:")
escreval("(Quantidade de divisores que cada número ímpar no primeiro vetor tem no segundo vetor.)")
para i := 1 ate 10 faca
se (vetor10[i] % 2) = 1 entao
escreval(svetor[i])
fimse
fimpara
Fimalgoritmo
Fimalgoritmo
// Disciplina : [Linguagem e Lógica de Programação]
// Professor : Angelo Cunha Sa
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Lucas Edson Trindade Silva
// Data atual : 23/10/2016
Var
// Seção de Declarações das variáveis
vetor10 : vetor[1..10] de inteiro
vetor5 : vetor[1..5] de inteiro
pvetor : vetor[1..10] de inteiro
svetor : vetor[1..10] de inteiro
i, i2, aux : inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i:=1 ate 10 faca
escreval("Digite o ",i,"º valor do vetor de 10 posições.")
leia(vetor[i])
fimpara
escreval
para i:=1 ate 5 faca
escreval("Digite o ",i,"º valor do vetor de 10 posições.")
leia(vetor[i])
fimpara
//ATRIBUIÇÃO DE VALORES PARA O PRIMEIRO VETOR RESULTANTE
para i := 1 ate 5 faca
aux := aux + vetor5[i]
fimpara
para i := 1 ate 10 faca
se (vetor10[i] % 2) = 0 entao
pvetor[i] := vetor10[i] + aux
fimse
fimpara
//ATRIBUIÇÃO DE VALORES PARA O SEGUNDO VETOR RESULTANTE
para i:= 1 ate 10 faca
se (vetor10[i] % 2) = 1 entao
para i2 := 1 ate 5 faca
se (vetor10[i] % vetor5[i2]) = 0 entao
svetor[i] := svetor[i] + 1
fimse
fimpara
fimse
fimpara
//EXIBIÇÃO DO RESULTADO
escreval("Primeiro vetor resultante:")
escreval("(Soma de cada número par do primeiro vetor com todos do segundo.)")
para i := 1 ate 10 faca
se pvetor[i] <> 0 entao
escreval(pvetor[i])
fimse
fimpara
escreval("")
escreval("Segundo vetor resultante:")
escreval("(Quantidade de divisores que cada número ímpar no primeiro vetor tem no segundo vetor.)")
para i := 1 ate 10 faca
se (vetor10[i] % 2) = 1 entao
escreval(svetor[i])
fimse
fimpara
Fimalgoritmo
Fimalgoritmo
//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ão aumento 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ções anteriores, código e //preço, o aumento será de 20%; para aqueles que satisfazem apenas a //condição de código, o aumento será de 15%; e para aqueles que //satisfazem apenas a condição de preço, o aumento será de 10%.
//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ão aumento 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ções anteriores, código e
//preço, o aumento será de 20%; para aqueles que satisfazem apenas a
//condição de código, o aumento será de 15%; e para aqueles que
//satisfazem apenas a condição de preço, o aumento será de 10%.
Algoritmo "Exercicio 5.9"
// 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 : 08/11/2016
Var
nome_prod:vetor[1..10] de caracter
cod_prod:vetor[1..10] de inteiro
novo_preco,preco_prod:vetor[1..10] de real
i:inteiro
Inicio
para i:=1 ate 10 faca
escreval("Digite o código do ",i,"º produto")
leia(cod_prod[i])
escreval("Digite o nome do ",i,"º produto")
leia(nome_prod[i])
escreval("Digite o preço do produto")
leia(preco_prod[i])
fimpara
para i:=1 ate 10 faca
se ((cod_prod[i]mod 2 =0) ou (preco_prod[i]>1000)) entao
se ((cod_prod[i] mod 2=0) e (preco_prod[i]>1000)) entao
//novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.20
senao
se cod_prod[i] mod 2=0 entao
// novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.15
senao
se preco_prod[i]>1000 entao
// novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.10
fimse
fimse
fimse
fimse
fimpara
limpatela
escreval("Relatorio------------------------------Novos Preços------")
escreval
escreval("Código------------------------Nome do Produto--------Preço Antigo-------Preço Novo---")
escreval
para i:=1 ate 10 faca
se novo_preco[i]<>0 entao
escreva(cod_prod[i]:5,"-------------------------",nome_prod[i]:20,"-------R$",preco_prod[i]:6:2,"-------R$",novo_preco[i]:6:2)
escreval
fimse
fimpara
Fimalgoritmo
//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ão aumento 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ções anteriores, código e
//preço, o aumento será de 20%; para aqueles que satisfazem apenas a
//condição de código, o aumento será de 15%; e para aqueles que
//satisfazem apenas a condição de preço, o aumento será de 10%.
Algoritmo "Exercicio 5.9"
// 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 : 08/11/2016
Var
nome_prod:vetor[1..10] de caracter
cod_prod:vetor[1..10] de inteiro
novo_preco,preco_prod:vetor[1..10] de real
i:inteiro
Inicio
para i:=1 ate 10 faca
escreval("Digite o código do ",i,"º produto")
leia(cod_prod[i])
escreval("Digite o nome do ",i,"º produto")
leia(nome_prod[i])
escreval("Digite o preço do produto")
leia(preco_prod[i])
fimpara
para i:=1 ate 10 faca
se ((cod_prod[i]mod 2 =0) ou (preco_prod[i]>1000)) entao
se ((cod_prod[i] mod 2=0) e (preco_prod[i]>1000)) entao
//novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.20
senao
se cod_prod[i] mod 2=0 entao
// novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.15
senao
se preco_prod[i]>1000 entao
// novo_cod[i]:=cod_prod[i]
novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.10
fimse
fimse
fimse
fimse
fimpara
limpatela
escreval("Relatorio------------------------------Novos Preços------")
escreval
escreval("Código------------------------Nome do Produto--------Preço Antigo-------Preço Novo---")
escreval
para i:=1 ate 10 faca
se novo_preco[i]<>0 entao
escreva(cod_prod[i]:5,"-------------------------",nome_prod[i]:20,"-------R$",preco_prod[i]:6:2,"-------R$",novo_preco[i]:6:2)
escreval
fimse
fimpara
Fimalgoritmo
//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édia menor que 7, //mostrar quanto esse aluno precisa tirar na prova de exame final //para ser aprovado.considerar que a média para aprovação no //exame é 5.
//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édia menor que 7,
//mostrar quanto esse aluno precisa tirar na prova de exame final
//para ser aprovado.considerar que a média para aprovação no
//exame é 5.
Algoritmo "Exercicio 5.8"
Var
nome_aluno:vetor[1..7] de caracter
media_final:vetor[1..7] de real
i:inteiro
nome_media_maior:caracter
nota_exame,media_maior:real
Inicio
para i:=1 ate 7 faca
escreval("Digite o nome do ",i,"º aluno")
leia(nome_aluno[i])
escreval("Digite a média do ",i,"º aluno")
leia(media_final[i])
fimpara
media_maior:=media_final[1]
nome_media_maior:=nome_aluno[1]
para i:=2 ate 7 faca
se media_final[i]>=media_maior entao
media_maior:=media_final[i]
nome_media_maior:=nome_aluno[i]
fimse
fimpara
limpatela
escreval
escreval("O aluno ",nome_media_maior," obteve a maior media final com:",media_maior)
escreval("---------------------------------------------------------")
escreval
para i:=1 ate 7 faca
se media_final[i]<7 entao
nota_exame:= 10 - media_final[i]
escreval("O aluno: ",nome_aluno[i], " tirou media final: ",media_final[i])
escreval("Para ele ser aprovado, ele precisa tirar ",nota_exame:4:2," no exame")
escreval("*******************************************************")
escreval("_______________________________________________________")
fimse
fimpara
Fimalgoritmo
//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édia menor que 7,
//mostrar quanto esse aluno precisa tirar na prova de exame final
//para ser aprovado.considerar que a média para aprovação no
//exame é 5.
Algoritmo "Exercicio 5.8"
Var
nome_aluno:vetor[1..7] de caracter
media_final:vetor[1..7] de real
i:inteiro
nome_media_maior:caracter
nota_exame,media_maior:real
Inicio
para i:=1 ate 7 faca
escreval("Digite o nome do ",i,"º aluno")
leia(nome_aluno[i])
escreval("Digite a média do ",i,"º aluno")
leia(media_final[i])
fimpara
media_maior:=media_final[1]
nome_media_maior:=nome_aluno[1]
para i:=2 ate 7 faca
se media_final[i]>=media_maior entao
media_maior:=media_final[i]
nome_media_maior:=nome_aluno[i]
fimse
fimpara
limpatela
escreval
escreval("O aluno ",nome_media_maior," obteve a maior media final com:",media_maior)
escreval("---------------------------------------------------------")
escreval
para i:=1 ate 7 faca
se media_final[i]<7 entao
nota_exame:= 10 - media_final[i]
escreval("O aluno: ",nome_aluno[i], " tirou media final: ",media_final[i])
escreval("Para ele ser aprovado, ele precisa tirar ",nota_exame:4:2," no exame")
escreval("*******************************************************")
escreval("_______________________________________________________")
fimse
fimpara
Fimalgoritmo
quinta-feira, 17 de novembro de 2016
//5.19 – Faça um programa que preencha dois vetores de dez posições e // faça a multiplicação dos elementos de mesmo índice, colocando // o resultado em um terceiro vetor. Mostre o vetor resultante.
algoritmo "Exercicio 5.19"
//5.19 – Faça um programa que preencha dois vetores de dez posições e
// faça a multiplicação dos elementos de mesmo índice, colocando
// o resultado em um terceiro vetor. Mostre o vetor resultante.
var vet_1, vet_2, vet_3:vetor[1..10]de inteiro
i:inteiro
inicio
// nesse bloco criamos e preenchemos com valores do primeiro vetor
//
para i de 1 ate 10 faca
escreval("Preenchendo o ",i, "º campo do primeiro vetor")
leia(vet_1[i])
fimpara
limpatela
// nesse bloco criamos e preenchemos com valores do segundo vetor
para i de 1 ate 10 faca
escreval("Preenchendo o ",i, "º campo do segundo vetor")
leia(vet_2[i])
fimpara
limpatela
// preenchimento do terceiro vetor com
//a multiplicação do 1º com o 2º e logo em seguida
//efetua a leitura do mesmo mostrando na tela o resultado
escrevaL(" RESULTADO ")
escreva("VETOR 1: ")
para i:=1 ate 10 faca
escreva(vet_1[i]:7)
fimpara
escreval
escreva("VETOR 2: ")
para i:=1 ate 10 faca
escreva(vet_2[i]:7)
fimpara
escreval
//preenchendo o terceiro vetor
para i de 1 ate 10 faca
vet_3[i]<- vet_1[i] * vet_2[i]
fimpara
escreva("VETOR 3: ")
para i:=1 ate 10 faca
escreva(vet_3[i]:7)
fimpara
fimalgoritmo
//5.19 – Faça um programa que preencha dois vetores de dez posições e
// faça a multiplicação dos elementos de mesmo índice, colocando
// o resultado em um terceiro vetor. Mostre o vetor resultante.
var vet_1, vet_2, vet_3:vetor[1..10]de inteiro
i:inteiro
inicio
// nesse bloco criamos e preenchemos com valores do primeiro vetor
//
para i de 1 ate 10 faca
escreval("Preenchendo o ",i, "º campo do primeiro vetor")
leia(vet_1[i])
fimpara
limpatela
// nesse bloco criamos e preenchemos com valores do segundo vetor
para i de 1 ate 10 faca
escreval("Preenchendo o ",i, "º campo do segundo vetor")
leia(vet_2[i])
fimpara
limpatela
// preenchimento do terceiro vetor com
//a multiplicação do 1º com o 2º e logo em seguida
//efetua a leitura do mesmo mostrando na tela o resultado
escrevaL(" RESULTADO ")
escreva("VETOR 1: ")
para i:=1 ate 10 faca
escreva(vet_1[i]:7)
fimpara
escreval
escreva("VETOR 2: ")
para i:=1 ate 10 faca
escreva(vet_2[i]:7)
fimpara
escreval
//preenchendo o terceiro vetor
para i de 1 ate 10 faca
vet_3[i]<- vet_1[i] * vet_2[i]
fimpara
escreva("VETOR 3: ")
para i:=1 ate 10 faca
escreva(vet_3[i]:7)
fimpara
fimalgoritmo
// 5.20 – Faça um programa que leia um vetor de dez posições para números //inteiros e mostre somente os números positivos.
Algoritmo "5.20"
// Disciplina : [Algorítmo e Técnicas de Programção]
// 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 : 17/11/2016
// 5.20 – Faça um programa que leia um vetor de dez posições para números
//inteiros e mostre somente os números positivos.
Var
// Seção de Declarações das variáveis
n: vetor [1..10] de inteiro
i:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i := 1 ate 10 faca
escreval("Digite um valor")
leia(n[i])
limpatela
se n[i] = 0 entao
escreval(" Este número é nulo")
senao
se n[i] > 0 entao
escreval(n[i]," é um número positivo")
fimse
fimse
fimpara
Fimalgoritmo
// Disciplina : [Algorítmo e Técnicas de Programção]
// 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 : 17/11/2016
// 5.20 – Faça um programa que leia um vetor de dez posições para números
//inteiros e mostre somente os números positivos.
Var
// Seção de Declarações das variáveis
n: vetor [1..10] de inteiro
i:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para i := 1 ate 10 faca
escreval("Digite um valor")
leia(n[i])
limpatela
se n[i] = 0 entao
escreval(" Este número é nulo")
senao
se n[i] > 0 entao
escreval(n[i]," é um número positivo")
fimse
fimse
fimpara
Fimalgoritmo
5.21 – Faça um programa que leia // um vetor com dez posições para números inteiros. // Crie um segundo vetor, // substituindo os valores nulos por 1. // Mostre os dois vetores.
Algoritmo "5.21"
// 5.21 – Faça um programa que leia
// um vetor com dez posições para números inteiros.
// Crie um segundo vetor,
// substituindo os valores nulos por 1.
// Mostre os dois vetores.
Var
i : Inteiro
v : Vetor[1..10] de Inteiro
v1 : Vetor[1..10] de Inteiro
Inicio
Para i := 1 ate 10 faca
Leia (v[i])
FimPara
Para i := 1 ate 10 faca
Se v[i] = 0 Entao
v1[i] := 1
Senao
v1[i] := v[i]
FimSe
FimPara
LimpaTela
Escreval ("Primeiro Vetor")
Para i := 1 ate 10 faca
Escreva (v[i])
FimPara
Escreval
Escreval ("Segundo Vetor")
Para i := 1 ate 10 faca
Escreva (v1[i])
FimPara
Fimalgoritmo
// 5.21 – Faça um programa que leia
// um vetor com dez posições para números inteiros.
// Crie um segundo vetor,
// substituindo os valores nulos por 1.
// Mostre os dois vetores.
Var
i : Inteiro
v : Vetor[1..10] de Inteiro
v1 : Vetor[1..10] de Inteiro
Inicio
Para i := 1 ate 10 faca
Leia (v[i])
FimPara
Para i := 1 ate 10 faca
Se v[i] = 0 Entao
v1[i] := 1
Senao
v1[i] := v[i]
FimSe
FimPara
LimpaTela
Escreval ("Primeiro Vetor")
Para i := 1 ate 10 faca
Escreva (v[i])
FimPara
Escreval
Escreval ("Segundo Vetor")
Para i := 1 ate 10 faca
Escreva (v1[i])
FimPara
Fimalgoritmo
//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. //Armazene esse resultado no vetor B. Mostre o vetor B. //(lembre-se: o vetor B pode não ser completamente preenchido)
//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.
//Armazene esse resultado no vetor B. Mostre o vetor B.
//(lembre-se: o vetor B pode não ser completamente preenchido)
algoritmo "5.22"
var
numeros: vetor [1..10] de inteiro
i,l: inteiro
nulos: vetor [1..10] de inteiro
inicio
para i de 1 ate 10 faca
escreval (" digite um numero ")
leia (numeros[i])
fimpara
l <- 0
para i de 1 ate 10 faca
se (numeros[i] > 0) entao
l <- l + 1
nulos[l] <- numeros[i]
fimse
fimpara
limpatela
escreval("Vetor digitado")
para i de 1 ate 10 faca
escreva( numeros[i])
fimpara
escreval
escreval("Vetor Resultante")
para i de 1 ate l faca
escreval("______")
escreval(nulos[i])
fimpara
fimalgoritmo
//Em seguida, compacte o vetor, retirando os valores nulos e negativos.
//Armazene esse resultado no vetor B. Mostre o vetor B.
//(lembre-se: o vetor B pode não ser completamente preenchido)
algoritmo "5.22"
var
numeros: vetor [1..10] de inteiro
i,l: inteiro
nulos: vetor [1..10] de inteiro
inicio
para i de 1 ate 10 faca
escreval (" digite um numero ")
leia (numeros[i])
fimpara
l <- 0
para i de 1 ate 10 faca
se (numeros[i] > 0) entao
l <- l + 1
nulos[l] <- numeros[i]
fimse
fimpara
limpatela
escreval("Vetor digitado")
para i de 1 ate 10 faca
escreva( numeros[i])
fimpara
escreval
escreval("Vetor Resultante")
para i de 1 ate l faca
escreval("______")
escreval(nulos[i])
fimpara
fimalgoritmo
quarta-feira, 16 de novembro de 2016
//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ço superior a R$100,00.
//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ço superior a R$100,00.
algoritmo "EXERCICIO 5.16"
// Disciplina : [Linguagem e Lógica de programaçao]
// Professor(a): ÂNGELO DA CUNHA SÁ - FAMA MACAPÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 16/11/2016
var
// Seção de Declarações das variáveis
NOME_PROD:VETOR [1..5] DE CARACTER
PRECO_PROD:VETOR [1..5] DE REAL
QTD1,QTD2,I:INTEIRO
SOMA,MEDIA:REAL
inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
PARA I:=1 ATE 5 FACA
ESCREVAL("DIGITE O NOME DO ",I,"º PRODUTO")
LEIA(NOME_PROD[I])
ESCREVAL("DIGITE O PREÇO DO PRODUTO")
LEIA(PRECO_PROD[I])
FIMPARA
//A quantidade de produtos com preço inferior a R$50,00;
QTD1:=0
PARA I:=1 ATE 5 FACA
SE PRECO_PROD[I]<50 ENTAO
QTD1:=QTD1+1
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE PRODUTOS MENORES QUE 50 É: ",QTD1)
ESCREVAL
//O nome dos produtos com preço entre R$50,00 e R$100,00;
ESCREVAL("RELATORIO DE PRODUTOS COM PREÇO ENTRE 50 E 100")
PARA I:=1 ATE 5 FACA
SE ((PRECO_PROD[I]>50) E (PRECO_PROD[I]<100)) ENTAO
ESCREVAL(NOME_PROD[I])
FIMSE
FIMPARA
//A média dos preços dos produtos com preço superior a R$100,00.
SOMA:=0
QTD2:=0
PARA I:=1 ATE 5 FACA
SE PRECO_PROD[I]>100 ENTAO
SOMA:=PRECO_PROD[I]+SOMA
QTD2:=QTD2+1
FIMSE
FIMPARA
MEDIA:=SOMA/QTD2
ESCREVAL("A MEDIA DOS PREÇOS SUPERIORES A R$100,00 É: R$",MEDIA:4:2)
fimalgoritmo
//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ço superior a R$100,00.
algoritmo "EXERCICIO 5.16"
// Disciplina : [Linguagem e Lógica de programaçao]
// Professor(a): ÂNGELO DA CUNHA SÁ - FAMA MACAPÁ
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 16/11/2016
var
// Seção de Declarações das variáveis
NOME_PROD:VETOR [1..5] DE CARACTER
PRECO_PROD:VETOR [1..5] DE REAL
QTD1,QTD2,I:INTEIRO
SOMA,MEDIA:REAL
inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
PARA I:=1 ATE 5 FACA
ESCREVAL("DIGITE O NOME DO ",I,"º PRODUTO")
LEIA(NOME_PROD[I])
ESCREVAL("DIGITE O PREÇO DO PRODUTO")
LEIA(PRECO_PROD[I])
FIMPARA
//A quantidade de produtos com preço inferior a R$50,00;
QTD1:=0
PARA I:=1 ATE 5 FACA
SE PRECO_PROD[I]<50 ENTAO
QTD1:=QTD1+1
FIMSE
FIMPARA
ESCREVAL
ESCREVAL("A QUANTIDADE DE PRODUTOS MENORES QUE 50 É: ",QTD1)
ESCREVAL
//O nome dos produtos com preço entre R$50,00 e R$100,00;
ESCREVAL("RELATORIO DE PRODUTOS COM PREÇO ENTRE 50 E 100")
PARA I:=1 ATE 5 FACA
SE ((PRECO_PROD[I]>50) E (PRECO_PROD[I]<100)) ENTAO
ESCREVAL(NOME_PROD[I])
FIMSE
FIMPARA
//A média dos preços dos produtos com preço superior a R$100,00.
SOMA:=0
QTD2:=0
PARA I:=1 ATE 5 FACA
SE PRECO_PROD[I]>100 ENTAO
SOMA:=PRECO_PROD[I]+SOMA
QTD2:=QTD2+1
FIMSE
FIMPARA
MEDIA:=SOMA/QTD2
ESCREVAL("A MEDIA DOS PREÇOS SUPERIORES A R$100,00 É: R$",MEDIA:4:2)
fimalgoritmo
5.15 – Faça um programa que receba o nome de oito clientes e armazene-os em um vetor. Em um segundo vetor, armazene a quantidade de DVDs locados em 2011 por cada um dos oito clientes. Sabe-se que, para cada dez locações, o cliente tem direito a uma locação grátis. Faça um programa que mostre o nome de todos os clientes, com a quantidade de locações grátis a que ele tem direito.
5.15 – Faça um programa que receba o nome de oito clientes e armazene-os em um vetor. Em um segundo vetor, armazene a quantidade de DVDs locados em 2011 por cada um dos oito clientes.
Sabe-se que, para cada dez locações, o cliente tem direito a uma locação grátis. Faça um programa que mostre o nome de todos os clientes, com a quantidade de locações grátis a que ele tem direito.
algoritmo "EXERCICIO 5.15"
var
nome_cli:vetor [1..8] de caracter
qtd_loc,qtd_gratis:vetor [1..8] de inteiro
i:inteiro
inicio
para i:=1 ate 8 faca
escreval("digite o nome do",i,"º cliente")
leia(nome_cli[i])
escreval("digite a quantidade locada em 2001")
leia(qtd_loc[i])
fimpara
escreval("relatorio com a quantidade gratis")
escreval
escreval("nome------------qtd_gratis")
escreval
para i:=1 ate 8 faca
qtd_gratis[i]:=int(qtd_loc[i]/10)
escreva(nome_cli[i],"---------",qtd_gratis[i])
escreval
fimpara
fimalgoritmo
Sabe-se que, para cada dez locações, o cliente tem direito a uma locação grátis. Faça um programa que mostre o nome de todos os clientes, com a quantidade de locações grátis a que ele tem direito.
algoritmo "EXERCICIO 5.15"
var
nome_cli:vetor [1..8] de caracter
qtd_loc,qtd_gratis:vetor [1..8] de inteiro
i:inteiro
inicio
para i:=1 ate 8 faca
escreval("digite o nome do",i,"º cliente")
leia(nome_cli[i])
escreval("digite a quantidade locada em 2001")
leia(qtd_loc[i])
fimpara
escreval("relatorio com a quantidade gratis")
escreval
escreval("nome------------qtd_gratis")
escreval
para i:=1 ate 8 faca
qtd_gratis[i]:=int(qtd_loc[i]/10)
escreva(nome_cli[i],"---------",qtd_gratis[i])
escreval
fimpara
fimalgoritmo
Assinar:
Postagens (Atom)