Algoritmos
Algoritmo idade; var ano, mes, dia, dias: inteiro;
Inicio
Escreva (“Digite a idade em dias:”);
Ler (dias); ano := (dias div 365); mes :=(dias mod 365)div 30; dia := (dias mod 365)mod 30; escreva (“A idade em anos, meses e dias é”, ano, mes, dia);
Fim
2. FUA para efetuar o cálculo da quantidade de litros de combustível gasta em uma viagem, utilizando-se um automóvel que faz 12 km por litro. Para obter o cálculo, o usuário deverá fornecer o tempo gasto na viagem e a velocidade média durante a mesma. Desta forma, será possível obter a distância percorrida com a fórmula DISTÂNCIA=TEMPO*VELOCIDADE. Tendo o valor da distância, basta calcular a quantidade de litros de combustível utilizada na viagem com a fórmula: LITROS_USADOS=DISTÂNCIA/12. O algoritmo deverá apresentar os valores da velocidade média, tempo gasto na viagem, a distância percorrida e a quantidade de litros utilizada na viagem.
Algoritmo litros de combustível;
Var
tpo,distancia,litros_usados,vel: real;
Inicio
escreva ("entre com as velocidade média da viagem"); ler (vel); escreva ("entre com o tempo gasto"); ler (tpo); distancia := tpo*vel; litros_usados := distancia/12; escreva ("na viagem você gastou", litros_usados," litros);
Fim
3. FUA para calcular o consumo médio de um automóvel (medido em Km/l), dado que são conhecidos a distância total percorrida e o volume do combustível consumido para percorrê-la (medidos em litros).
Algoritmo consumo;
VAR
CM, DIST, VOL :real
Início
Escreva
"Algoritmo pare calcular o consumo"
Escreva
"distância total percorrida (Km):"
Leia
DIST
Escreva
"Volume de Combustível Gasto (1):"
Leia
VOLCM <- DIST / VOL
Escreva
"Consumo médio = ", CM,
" Km/l"
Fim