Linguagem Técnica Em Programação

1) Construa um algoritmo que calcule a média ponderada entre 5 números quaisquer, sendo que os pesos a serem aplicadas são 1,2,3,4 e 5 respectivamente.

inicio

real: num1,num2,num3,num4,num5,media,totalpeso;

escreva("Numero 1");

leia(num1);

escreva("Numero 2");

leia(num2);

escreva("Numero 3");

leia(num3);

escreva("Numero 4");

leia(num4);

escreva("Numero 5");

leia(num5);

totalpeso<-1+2+3+4+5;

media<-((num1*1)+(num2*2)+(num3*3)+(num4*4)+(num5*5));

escreva(media);

fimalgoritmo

2) Elabore um algoritmo que calcule a área de um círculo qualquer de raio fornecido.

inicio

real: area,raio;

escreva("Digite o raio");

leia(raio);

area<-3.14*(raio*raio);

escreva(area);

fimalgoritmo

3) Prepare um algoritmo capaz de inverter um número de 3 dígitos, fornecido, ou seja, apresentar primeiro a unidade e, depois, a dezena e a centena.

inicio

inicio: num,un,dez,cen;

leia(num);

un<-num mod 10;

cen<-num div 100;

dez<-(num div 10)-((num div 100)*10);

escreva("Unidade",un);

escreva("Dezena",dez);

escreva("Centena",cen);

fimalgoritmo

4) Ao completar o tanque de combustível de um automóvel, faça um algoritmo que calcule o consumo efetuado, assim como a autonomia que o carro ainda teria antes do abastecimento. Considere que o veículo sempre seja abastecido até encher o tanque e que são fornecidas apenas a capacidade do tanque, a quantidade de litros abastecidos e a quilometragem percorrida desde o último abastecimento.

inicio

//Qual consumo efetuado?

//Qual autonomia que ainda teria antes do abastecimento?

// CT = Capacidade Tanque

// QLA = Quantidade de Litros Abastecidos

// QP = Quilomentragem Percorrida

// C = Consumo

// AF = Automonia Futura

Inteiro: CT, QLA, QP, C, AF;

leia(CT, QLA, QP);

C <- (QP / QLA);

AF <- (CT - QLA) * C;

Escreva(C, AF);

fimalgoritmo

7)

Inicio

Inteiro: mes;

Leia(mes);

escolha (mes)

caso 1: Escreva("Janeiro");

caso 2: Escreva("Fevereiro");

caso 3: Escreva("Março");

caso 4: Escreva("Abril");

caso 5: Escreva("Maio");

caso 6: Escreva("Junho");

caso 7: Escreva("Julho");

caso 8: Escreva("Agosto");

caso 9: Escreva("Setembro");

caso 10: Escreva("Outubro");

caso 11: Escreva("Novembro");

caso 12: Escreva("Dezembro");

caso contrário: Escreva("Inválido");

fimescolha;

fimalgoritmo

8)

Inicio

inteiro: Dia, Mes, Ano;

escreva("Digite o número do dia, mês e ano");

leia(Dia, Mes, Ano);

se (dia >= 1) e (dia <= 12) então

se (Mes >= 1) e (mes <= 12) então

se (ano >= 1) e (ano <= infinito) então

escreva ("Data válida");

fimse;

fimse;

fimse;

fimalgoritmo

9)

Inicio

Inteiro: dia, mes;

Leia(dia, mes);

se (mes = 1) então

se (dia <= 20) então

Escreva(“Capricórnio”);