RESOLUÇÃO DA LISTA DE EXERCÍCIOS 01 ALGORITMO E PROGRAMÇÃO I

Prévia do material em texto

RESOLUÇÃO DA LISTA DE EXERCÍCIOS 01 
COMANDOS BÁSICOS
Faça algoritmos que resolvam os seguintes problemas abaixo: 
1.Dados os nome e sobrenome de um usuário, exibir o nome completo.
algoritmo "nome_sobrenome";
var
 nome,sobrenome:caractere;
inicio
 escreva ("Digite o nome");
 leia (nome);
 escreva ("Digite o sobrenome");
 leia (sobrenome);
 escreva (nome,sobrenome); 
fim.
2. Dado um número inteiro, exibir seus sucessor e antecessor.
algoritmo "ant_suc";
var
 num,nums,numa:inteiro;
 suc,ant:logico;
inicio
 escreva ("Digite um número");
 leia(num);
 escreva ("Escreva sucessor se deseja-lo");
 leia(suc);
 escreva("Escreva antecessor se deseja-lo");
 leia(ant);
 se (suc) entao
 nums<-num+1;
 escreva ("O sucessor de um número é: ",nums);
 senao
 numa<- num-1;
 fimse
 escreva ("O antecessor de um número é: ",numa);
fim.
3. Dado um número real, exibir sua terça metade.
algoritmo "Terça_metade";
var
 n,c:real;
inicio
 escreva ("Digite o valor real");
 leia(n);
 c<-(2/3)*n;
 escreva ("A terça metade de um número real é: ");
 escreva ("A sua terça metade é ", c);
fim.
4. Dado dois número reais, exibir a média aritmética dos dois números.
algoritmo "Media_aritmetica";
var
 a,b,c,media: real;
inicio
 escreva ("Escreva a primeira nota");
 leia(a);
 escreva (" Escreva a segunda nota");
 leia(b);
 media<-(a+b)/2;
 escreva ("A média do aluno é: ",media, " e está ");
fim.
5. Dadas as quatro notas de um aluno, exibir sua média final.
algoritmo "Media_4notas";
var
 nota1,nota2,nota3,nota4,media: real;
inicio
 escreva ("Escreva a primeira nota");
 leia(nota1);
 escreva ("Escreva a segunda nota");
 leia(nota2);
 escreva ("Escreva a terceira nota");
 leia(nota3);
 escreva ("Escreva a quarta nota");
 leia(nota4);
 media<-(nota1+nota2+nota3+nota4)/4;
 escreva ("A média do aluno é: ",media);
fim.
6. Dados quatro números, exibir a média ponderada, sabendo-se que os pesos são respectivamente: 1, 2, 3 e 4.
algoritmo "Media_aritmetica_ponderada";
var
 nota1,nota2,nota3,nota4,media:real;
inicio
 escreva ("Digite o 1º número");
 leia (nota1);
 escreva ("Digite o 2º número");
 leia (nota2);
 escreva ("Digite o 3º número");
 leia (nota3);
 escreva ("Digite o 4º número");
 leia (nota4);
 media<-(nota1+nota2+nota3+nota4)/(1+2+3+4);
 escreva (" A média é: ",media);
fim.
7. Dada uma quantidade de horas, exibir os valores equivalentes em minutos, segundos e milissegundos.
algoritmo "Transformador_hora";
var
 h,min,seg,mili:real;
inicio
 escreva ("Digite o valor em hora");
 leia(h);
 min<-(h*60);
 seg<-(h*3600);
 mili<-(h*216000);
 escreva (h," hora são ", min," minutos;");
 escreva (h," hora são ", seg," segundos;");
 escreva (h, " hora são ", mili," milissegundos;");
fim.
8. Dado o saldo de uma aplicação, exibir o novo saldo após um reajuste de 10%.
algoritmo "Saldo_Bancário";
var
 s,c:real;
inicio
 escreva("Saldo bancário antes do reajuste");
 leia(s);
 c<-(s*0.10)+s;
 escreva ("Saldo bancário depois do reajuste é: ", c);
fim.
9. Dado o valor de um depósito e a taxa de juros, exibir o valor do rendimento e o valor total após o rendimento.
algoritmo "Rendimento_e_valor_total";
var
 d,t,ren,valtot:real;
inicio
 escreva ("Digite o valor do depósito");
 leia(d);
 escreva ("O valor da taxa de juros (em pocentegem)");
 leia(t);
 ren <- d*(t/100);
 valtot <- ren+d;
 escreva ("O rendimento foi: R$",ren, "; ");
 escreva ("O valor tota é: R$ ", valtot);
fim.
10. Dado um número inteiro de três algarismos, exibir cada algarismo separadamente.
algoritmo "Separar_algarismos_de_inteiro";
var
 num,um,n,u,m:inteiro;
inicio
 escreva ("Escreva um numero inteiro de três algarismos");
 leia(num);
 n<-num div 100;
 um<-num-n*100;
 u<-um div 10;
 m<-um-u*10;
 escreva("O primeiro:", n, " O segundo é: ",u," O terceiro é: ",m);
fim.
11. Dado um número inteiro no formato CDU, exibir o número no formato UDC. Exemplo: 123, será 321. O número deverá ser atribuído a uma variável antes de ser exibido.
algoritmo "Separar_algarismos_de_inteiro";
var
 cdu,c,d,u,du:inteiro;
inicio
 escreva ("Escreva um numero intero de três algarismos");
 leia(cdu);
 c<-cdu div 100;
 du<-cdu - c*100;
 d<-du div 10;
 u<-du-d*10;
 escreva (u,d,c);
fim.
12. Dada uma data no formato ddmmaa, exibir os dia, mês e ano separadamente.
algoritmo "Separar_data";
var
 dd,cc,mmaa,mm,aa,ddmmaa: inteiro;
inicio
 escreva ("Digite Dia,Ano e mês juntos e sem caracteres especiais");
 leia(ddmmaa);
 dd<-ddmmaa div 10000;
 cc<-dd*10000;
 mmaa<- ddmmaa-cc;
 mm<- mmaa div 100;
 aa<- mmaa-mm*100;
 escreva ("O dia: ",dd, " O mês: ",mm, " O ano: ",aa);
fim.
13. Dada uma data no formato ddmmaa, exibir a data no formato mmddaaaa.
algoritmo "Separar_data";
var
 dd,cc,mmaaaa,mm,aaaa,ddmmaaaa: inteiro;
inicio
 escreva ("Digite dia,mês e ano juntos e sem caracteres especiais");
 leia(ddmmaaaa);
 dd<-ddmmaaaa div 1000000;
 cc<-dd*1000000;
 mmaaaa<- ddmmaaaa-cc;
 mm<- mmaaaa div 10000;
 aaaa<- mmaaaa-mm*10000;
 escreva (mm,dd,aaaa);
fim.
14. Sabendo que 100 quilowatts de energia custam um sétimo do salário mínimo, fazer um algoritmo que dados a valor do salário mínimo e a quantidade de quilowatts gastos por uma residência, exibir: valor em de cada quilowatt, valor da conta de energia e novo valor da conta de energia após um desconto de 10%.
algoritmo "quillowatts";
var
 sm,gasto,quilo,contaener,descon,contades:real;
inicio
 escreva ("Digite o valor do salário mínimo: ");
 leia(sm);
 escreva ("Quantidade de K/watts gastos: ");
 leia(gasto);
 quilo<-(1/700*sm);
 contaener<-gasto*quilo;
 descon<-contaener*0.10;
 contades<-contaener - descon;
 escreva ("O valor do k/watt é: ", quilo);
 escreva ("O valor da conta de energia", contaener);
 escreva ("O valor da conta de energia com desconto", contades);
fim.
15. Dadas a base e a altura de um retângulo, exibir: perímetro, área e diagonal.
algoritmo "Retangulo";
var
 a,p,d,b,h:real;
inicio
 escreva ("Valor da base");
 leia(b);
 escreva ("Valor da atura");
 leia(h);
 a<-b*h;
 P<-2*(b+h);
 d<-raiz(b*b+h*h);
 escreva ("Área:",a,"Diagonal:",d,"Perímetro",p);
fim.
16. Dado o raio de um círculo, exibir: diâmetro, perímetro e área.
algoritmo "Circulo";
var
 r,d,p,a,pi:real;
inicio
 escreva ("Escreva o raio do circulo");
 leia(r);
 pi<-3.14;
 d<-2*r;
 p<-2*pi*r;
 a<-2*pi*r^2;
 escreva ("O diametro: ",d,"A área: ",a," O perímotro: ",p);
fim.
17. Dado o lado de um quadrado, exibir: perímetro, área e diagonal.
algoritmo "Quadrado";
var
 l,d,a,p:real;
inicio
 escreva ("Valor do lado do quadrado");
 leia(l);
 a<-l*l;
 P<-4*l;
 d<-l*raiz(2);
 escreva (" Área: ",a," Perímetro: ", P, " Diagonal: ",d);
fim.
18. Dados os lados a, b e c de um paralelepípedo, exibir: as áreas de cada face, a área total da superfície, diagonais e o volume.
algoritmo "Paralelepipedo";
var
 c,l,h,fmai,fmen,fba,at,d,v:real;
inicio
 escreva ("O valor do comprimento");
 leia (c);
 escreva ("O valor da largura");
 leia(l);
 escreva ("O valor de altura");
 leia(h);
e
 escreva ("Area Total ",at,," Área da face da base: ",ab);
 escreva ("Face lateral menor: ",fmen);
 escreva ("Face lateral maior: ",fmai);
 escreva ("Diagonal: ",d);
 escreva ("Volume: ",v);
fim.
19. Faça um algoritmo que exiba a área de um triangulo qualquer.
algoritmo "Areal_do_triangulo";
var
 b,h,a:real;
inicio
 escreva ("Digite o valor da base");
 leia(b);escreva ("Digite o valor da altura");
 leia(h);
 a<-(b*h)/2;
 escreva (" A área de um triângulo qualquer é: ",a);
fim.
20. Faça um algoritmo que exiba a área de um losango.
algoritmo "Area_losango";
var
 dm,d,a:real;
inicio
 escreva ("O valor da diagonal maior");
 leia(dm);
 escreva ("O valor da diagonal menor");
 leia(d);
 a<-(dm*d)/2;
 escreva ("O valor da área do losango é: ",a);
fim.
21. Faça um algoritmo que para a função f(x) = 3 seja dado um valor para x. Exibir o valor de f(x).
algoritmo "funçao";
var
 f:real;
inicio
 escreva ("Digite um número para o x na função f(x)");
 leia(f);
 f<-3;
 escreva(f);
fim.
22. Faça um algoritmo que para uma função genérica f(x) = ax2 + bx + c e dados os valores dos coeficientes a, b e c e um valor para x, exibir o valor de f(x).
algoritmo "função1";
var
 a,b,c,x,f:real;
inicio
 escreva ("Digite o valor de a");
 leia(a);
 escreva ("Digite o valor de b");
 leia(b);
 escreva ("Digite o valor de c");
 leia(c);
 escreva ("Digiite o valor de x");
 leia(x);
 f<-(a*(x^2))+(b*x)+c;
 escreva ("O valor de f(x): ",f);
fim.
23. Dados o primeiro termo e a razão de uma PA, exibir o 10º termo.
algoritmo "P.A";
var
 a1,r,an:real;
inicio
 escreva ("O valor do primeiro term de uma P.A");
 leia(a1);
 escreva ("A razão da P.A");
 leia (r);
 an<- a1+(9)*r;
 escreva ("O 10º termo da P.A é ",an);
fim.
24. Dados o primeiro termo e a razão de uma PG, exibir o 5º termo.
algoritmo "PG";
var
 a1,q,an:real;
inicio
 escreva ("O valor do primeiro termo de uma P.G");
 leia(a1);
 escreva ("A razão da P.G");
 leia (q);
 an<- a1*q^(5-1);
 escreva ("O 5º termo da P.G é ",an);
fim.
25. Faça um algoritmo que calcule o salário líquido de um professor. Serão fornecidos: valor da hora aula, quantidade de horas de aula dadas e percentual de desconto do INSS.
algoritmo "Salario_liquido";
var
 Va,Quant,INSS,Sal,Des,Salliqui:real;
inicio
 escreva (" Valor da hora aula");
 leia(Va);
 escreva ("Quantidades de horas aulas dadas");
 leia (Quant);
 escreva (" Percentual de desconto do INSS");
 leia (INSS);
 Sal<-Va*Quant;
 Des<-Sal*(INSS/100);
 Salliqui<-Sal-Des;
 escreva ("O salários líquido: ", Salliqui);
fim.
26. Sabendo que um carro faz 12Km com um litro de gasolina e que serão fornecidos a velocidade média e o tempo gasto em uma viagem, exibir: distância percorrida e quantidade de gasolina necessária para a viagem.
algoritmo "Carro" ;
var
 Vm,t,S,G:real;
inicio
 escreva (" Escreva a Velocidade Média");
 leia (Vm);
 escreva (" Escreva o tempo gasto");
 leia (t);
 S<-Vm*t;
 G<-(1/12)*S;
 escreva ("A distância: ",S," Km ", " A quantidade de gasolina: ",G," L");
fim.
27. Faça um algoritmo de troca de variáveis: dados valores para duas variáveis A e B, o novo valor de A passa a ser o de B e o novo valor de B passa a ser o de A.
algoritmo "Trocar_variavel";
var
 b,a:inteiro;
inicio
 escreva ("Escreva um valor para A");
 leia (b);
 escreva ("Escreva um valor para B");
 leia (a);
 escreva ("O valor de A é: ", a," O valor de B é: ", b);
fim.
28. Dados os valores do salário mínimo e o salário de uma pessoa, exibir quantos salários mínimos essa pessoa ganha.
algoritmo "Quantidade_salarios_minimos";
var
 QuantSal,Sm,Smp:real;
inicio
 escreva ("Escreva o valor do salário de uma pessoa");
 leia (Smp);
 escreva ("Escreva o valor do salário mínimo");
 leia (Sm);
 QuantSal<-(Smp/Sm);
 escreva ("A quantidade de salários mínimos ganhos são: ", QuantSal);
fim.
29. Dado o peso de uma pessoa em quilos, exibir o valor do peso em gramas.
algoritmo "Peso_KG_para_G";
var
 PesKG,Pesog:real;
inicio
 escreva ("Digite o valor do peso em Kg");
 leia(PesKG);
 Pesog<-(PesKG*1000);
 escreva ("O peso é: ",Pesog," g ");
fim.
30. Dado um número entre 0 e 60, exibir seu sucessor, sabendo que no caso do número 60 o sucessor é 0.
algoritmo "sucessor";
var
 a,b,num,resu:inteiro;
inicio
 escreva ("Digite um valor entre 0 e 60: ");
 leia(num);
 se num=60 entao
 a<-0
 escreva("O secuessor é: ",a);
 senao
 resu<- num + 1
 escreva ("O sucessor do número é: ",resu);
 fimse
fim.
31. Criar um algoritmo que leia a quantidade de DVDs que uma locadora de filmes possui e o valor que ela cobra por um aluguel e que logo em seguida exiba as seguintes informações:
 Quando o cliente atrasa a entrega, é cobrada uma multa de 10% sobre o valor do aluguel. Sabendo que um terço dos DVDs são alugados por mês e que um décimo das fitas alugadas no mês são devolvidos, exibir o faturamento anual da locadora.
  Sabendo que 2% dos DVDs se estragam por mês, e que um décimo dessa quantidade de DVDs é reposto, exibir a quantidade total de DVDs da locadora após um ano.
algoritmo "DVDs";
var
totaldvd,alg,mut,algdvd,devoldvd,naodev,ganatra,gandev,gantotal,estragadvd,repostodvd,total,totaltoal:real;
inicio
 escreva ("A quantidade dde DVD é: ");
 leia(totaldvd);
 escreva ("O preço do aluguel é: ");
 leia(alg);
 mut<-(alg*0.10);
 algdvd<-(1/3*totaldvd);
 devoldvd<-(algdvd*1/10);
 naodev<-(algdvd - devoldvd);
 ganatra<-(naodev*mut*alg*12);
 gandev<-(devoldvd*alg*12);
 gantotal<-(ganatra+gandev);
 escreva ("O ganho anual é: ", gantotal);
 estragadvd<-((0.02*totaldvd)*12);
 repostodvd<-(estragadvd * 1/10);
 totatotal<-(totaldvd-estragadvd)+repostodvd;
 escreva ("O total de DVD depois de um ano: ", a);
fim.