Atividade assíncrona 2 de APC

Prévia do material em texto

Atividade assíncrona 2 de APC 
Aluno: Matheus Gomes de Oliveira Tomé matricula: 201805263 
Professor: Marcos Paulo Guimarães 
 
 
1: Desenvolver um algoritmo que efetue a soma de todos os números ímpares que são 
múltiplos de 
três e que se encontram no conjunto dos números de 1 até 500. 
R: Seja n um número positivo inteiro; 
Var soma = 0 
Enquanto n <= 500: 
 se n mod 2 != 0 e n mod 3 == 0: 
 soma = soma + n 
2: Desenvolver um algoritmo que leia um número não determinado de valores e calcule e 
escreva a 
média aritmética dos valores lidos, a quantidade de valores positivos, a quantidade de valores 
negativos e o percentual de valores negativos e positivos. 
R: Algoritmo "programa" 
Var 
i, num, numpos, numneg, somanums, soma:inteiro 
Inicio 
 numpos<-0 
 numneg<-0 
 somanums<-0 
 soma<-0 
 enquanto i<>1 faca 
 escreva("Digite um número ou 0 para parar: ") 
 leia(num) 
 se num=0 entao 
 i<-1 
 senao 
 se num>0 entao 
 numpos<-numpos+1 
 senao 
 numneg<-numneg+1 
 fimse 
 somanums<-somanums+num 
 soma<-soma+1 
 fimse 
 fimenquanto 
 escreval("A média aritmética dos números lidos é:", somanums/soma) 
 escreval("A quantidade de valores positivos é:",numpos) 
 escreval("A quantidade de valores negativos é:",numneg) 
Fimalgoritmo 
3: Faça um algoritmo estruturado que leia uma quantidade não determinada de números 
positivos. 
Calcule a quantidade de números pares e ímpares, a média de valores pares e a média geral 
dos 
números lidos. O número que encerrará a leitura será zero. 
R: Algoritmo "semnome" 
Var 
 impar,par,x, j,num, positivo, mediaPar, media: inteiro 
Inicio 
 x<-2 
 j<-0 
 enquanto j <> x faca 
 escreva(" digite o valor: ") 
 leia(num) 
 se (num mod 2=0) e (num<>0) entao 
 par <- par + 1 
 fimse 
 se (num mod 2<>0) e (num<>0) entao 
 impar <- impar + 1 
 fimse 
 se (num > 0) entao 
 positivo <- positivo + 1 
 fimse 
 media <- media + num 
 se (num mod 2=0) e (num<>0) entao 
 mediaPar <- mediaPar + num 
 fimse 
 j<-j+1 
 x<-j+2 
 se (num <= 0) entao 
 x <- x-2 
 fimse 
 fimenquanto 
 escreval("") 
 escreval(" a media dos valores é ",media/j) 
 escreval("") 
 escreval(" a media dos valores pares é ",mediaPar/par) 
 escreval("") 
 escreval(" exitem " ,positivo, " numeros positivos ") 
 escreval("") 
 escreval("total de numeros impares ",impar," e total de numeros pares " ,par) 
Fimalgoritmo 
4: Escrever um algoritmo que leia um valor para uma variável N de 1 a 10 e calcule a tabuada 
de 
N. Mostre a tabuada na forma: 0 x N = 0, 1 x N = 1N, 2 x N = 2N, ..., 10 x N = 10N. 
R: variaveis 
numero: inteiro; 
total: inteiro; 
contador: N; 
fim-variaveis 
 
 
Inicio 
imprima("Digite o numero"); 
numero:= leia; 
para contador de variável N faça: 
total:= numero * contador; 
imprima(numero, " x ", contador, " = ", total); 
contador++ 
fim-para 
Fim 
5: Escreva um algoritmo que leia um valor inicial A e uma razão R e imprima uma 
seqüência em 
P.G. contendo 10 valores. 
R: an= ak x R^(10-k) 
Algoritmo: L1P04; 
real: AK, R, AN; 
 inteiro: K, 10; 
 início leia(K,AK); 
 leia(R); leia(N); AN <- AK * R**(10-K); 
 imprima(AN); 
 fim. 
6: Faça um algoritmo que leia os valores A, B, C e imprima na tela se a soma de A + B 
é menor 
que C. 
R: algoritmo "semnome" 
 var a, b, c, soma: inteiro 
inicio 
 escreva ("Digete valor de A ") 
 leia (a) 
 escreva ("Digete valor de B ") 
 leia (b) 
 escreva ("Digete valor de c ") 
 leia (c) 
 soma <- (a + b) 
 se soma < c entao 
 escreva("Valor de C =",c,", A + B =",soma, ", sendo assim A + B é menor que 
C!") 
 senao 
 se soma > c entao 
 escreva("Valor de C =",c,", A + B =",soma, ", sendo assim A + B é maior que 
C!") 
 senao 
 se soma = c entao 
 escreva("Valor de C =",c,", A + B =",soma, ", sendo assim A + B é igual a C!") 
 fimse 
 fimse 
 fimse 
fimalgoritmo 
7: Faça um algoritmo para receber um número qualquer e informar na tela se é par ou 
ímpar. 
R: Algoritmo "ParOuImpar" 
 
Var 
 
Inicio 
 
Fimalgoritmo 
 
Algoritmo "ParOuImpar" 
 
Var 
 numero : inteiro 
Inicio 
 
 escreva("Informe um número: ") 
 leia(numero) 
 
Fimalgoritmo 
 
Algoritmo "ParOuImpar" 
 
Var 
 
 numero : inteiro 
 
Inicio 
 
 escreva("Escreva um número: ") 
 leia(numero) 
 
 se numero mod 2 = 0 entao 
 escreva("O número ", numero, " é par!") 
 senao 
 escreva("O número ", numero, " é ímpar!") 
 fimse 
 
Fimalgoritmo 
 
8: Encontrar o dobro de um número caso ele seja positivo e o seu triplo caso seja negativo, 
imprimindo o resultado. 
R: inteiro num , x2 , x3 , resultado 
escreva("Digite um Número: ") 
leia(num) 
x2 = num*2 
x3 = num*3 
resultado = x2 
se(num%2 = = 0 e x2 = = resultado){ 
escreva("O número é " ,num," POSITIVO e seu dobro é: ", x2) 
} 
senao{ 
escreva("O número é " ,num," NEGATIVO e seu triplo é: ", x3) 
9: Faça um algoritmo que leia uma variável e some 5 caso seja par ou some 8 caso seja ímpar, 
imprimir o resultado desta operação. 
 
R: Algoritmo "Acréscimo" 
Var 
numero, resultado : inteiro 
 
 
Inicio 
 escreval ("Digite um número: ") 
 leia (numero) 
 
 
 se numero%2=0 entao 
 resultado<-numero + 5 
 escreval ("Resultado = ", numero, " + 5 = ", resultado) 
 senao 
 resultado<-numero + 8 
 escreval ("Resultado = ", numero, " + 8 = ", resultado) 
 fimse 
fimalgoritmo 
 
10: Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo que 
calcule seu peso ideal, utilizando as seguintes fórmulas: 
● para homens: (72.7 * h) – 58; 
● para mulheres: (62.1 * h) – 44.7. 
 
R: var 
altura :inteiro 
sexo : caractere 
feminino :real 
masculino:real 
peso :real 
inicio 
// Seção de Comandos 
escreval("Informe a altura:") 
leia(altura) 
escreval("Informe o sexo:") 
leia(sexo) 
se sexo="M" então 
peso:=(72.7*altura)-58 
escreval("peso ideal é",peso) 
senao 
peso:=(62.1*altura)-44.7 
escreval("peso ideal é",peso) 
fimse 
fimalgoritmo 
 
11: Elabore um algoritmo que calcule o que deve ser pago por um produto, considerando o 
preço normal de etiqueta e a escolha da condição de pagamento. Utilize os códigos da tabela a 
seguir para ler qual a condição de pagamento escolhida e efetuar o cálculo adequado. 
 
Código Condição de pagamento 
1 À vista em dinheiro ou cheque, recebe 10% de desconto 
2 À vista no cartão de crédito, recebe 15% de desconto 
3 Em duas vezes, preço normal de etiqueta sem juros 
4 Em duas vezes, preço normal de etiqueta mais juros de 10% 
R: algoritmo "Forma de Pagamento" 
// Função : Calcular valores apartir da forma de pagamento 
// Autor : Luiz Walnei 
// Data : 26/02/2011 
// Seção de Declarações 
var 
 
vmercadoria:real 
forma:real 
parcela:real 
 
inicio 
// Seção de Comandos 
 
Escreval ("Entre com o Valor da Mercadoria:") 
leia (vmercadoria) 
Escreval ("Forma de Pagamento:") 
escreval ("Dinheiro digite 1") 
escreval ("Cheque Digite 2") 
escreval ("Cartão de Crédito Digite 3") 
leia(forma) 
escreval ("Parcelas:") 
escreval ("1 - Á vista") 
escreval ("2 - 2 vezes") 
escreval ("3 - 3 vezes") 
leia (parcela) 
 
// Aqui coloquei as condições para a opção em dinheiro 
 
SE (forma = 1) E (parcela = 1) ENTAO 
ESCREVA ("O Valor a ser Pago é de ", vmercadoria*90/100:2:2, " Reais a Vista - 10% de 
Desconto")FIMSE 
SE (forma = 1) E (parcela = 2) ENTAO 
ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria/2:2:2, " Reais") 
FIMSE 
SE (forma = 1) E (parcela = 3) ENTAO 
ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria/3+10/100:2:2, " Reais - 10% de 
Juros") 
FIMSE 
 
 
//Aqui coloquei as condições de forma de pagamento em cheque. 
 
SE (forma = 2) E (parcela = 1) ENTAO 
ESCREVA ("O Valor a ser Pago é de ", vmercadoria*95/100:2:2, " Reais a Vista - 5% de 
Desconto") 
FIMSE 
SE (forma = 2) E (parcela = 2) ENTAO 
ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria/2:2:2, " Reais") 
FIMSE 
SE (forma = 2) E (parcela = 3) ENTAO 
ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria/3+10/100:2:2, " Reais - 10% de 
Juros") 
 
FIMSE 
 
// Pagamento com cartão de crédito 
 
SE (forma = 3) E (parcela = 1) ENTAO 
ESCREVA ("O Valor a ser Pago é de: ", vmercadoria*110/100:2:2, " Reais a Vista - Taxa de 10% 
Sobre o Valor da Etiqueta") 
FIMSE 
SE (forma = 3) E (parcela = 2) ENTAO 
ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria*110/100/2:2:2, " Reais") 
FIMSE 
SE (forma = 3) E (parcela = 3) ENTAO 
ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria*110/100/3:2:2, " Reais - 10% de 
Juros") 
FIMSE 
fimalgoritmo