Lista Algoritmo

Lista Sandino

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

Inicio

Real: raio, area, pi; pi <- 3.14;

Leia(raio); area <- pi * pot(raio, 2);

Escreva(area);

Fim.

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

Inicio

Inteiro: un, dez, cen, numero;

Leia(numero);

centena <-- (numero div 100);

dezena <-- (numero div 10);

unidade <-- ((centena * 100) + (dezena * 10)) - numero;

escreva("Unidade",un);

escreva("Dezena",dez);

escreva("Centena",cen);

Fim.

3) Dada uma determinada data de aniversário (dia, mês e ano separadamente), elabore um algoritmo que solicite a data atual (também separadamente) e calcule a idade em anos, meses e dias.

inicio

INTEIRO: DIA, MES, ANO, A, B, C, D, X, Y, Z, AUX, AUX2;

ESCREVA (">> NASCIMENTO <<");

ESCREVA ();

ESCREVA ("INFORME O DIA DE NASCIMENTO");

LEIA (DIA);

ESCREVA ("INFORME O MÊS");

LEIA (MES);

ESCREVA ("INFORME O ANO");

LEIA (ANO);

ESCREVA (">> ATUALMENTE <<");

ESCREVA ();

ESCREVA ("INFORME O DIA ATUAL");

LEIA (A);

ESCREVA ("INFORME O MÊS");

LEIA (B);

ESCREVA ("INFORME O ANO");

LEIA (C);

X<-C-ANO;

Y<-B-MÊS;

Z<-A-DIA;

SE ((Y>=0) E (Z>=0));

ENTAO

AUX<-X;

ESCREVA("A IDADE É: ", AUX);

SENAO

AUX2<-X-1;

ESCREVA("A IDADE É: ",AUX2);

fimse;

fim

5) Escreva um algoritmo que, a partir do mês fornecido (de 1 a 12), apresente o nome dele por extenso ou uma mensagem de mês inválido.

Inicio

inteiro:mes;

escreval("Digite numero do Mês: ")

leia(mes)

escolha mes

escreva(" ")

caso 1

escreva("Janeiro")

caso 2

escreva("Fevereiro")

caso 3

escreva("Março")

caso 4

escreva("Abril")

caso 5

escreva("Maio")