Trabalho 01 – Algoritmo

FATEC - RIO PRETO

INFORMÁTICA COM ÊNFASE EM GESTÃO DE NEGÔCIOS

Trabalho 01 – Algoritmo
Prof. Leandro

2005

1)
Algoritmo calcula_combustível;
Var
TEMPO, LITROS, VELOCIADE, DISTANCIA, LITROS_USADOS: real; início escreva(“Digite o tempo da viagem em horas:”); leia(TEMPO); escreva(“Digite a Velocidade Media desenvolvida durante a viagem (em km/h):”); leia(VELOCIDADE); DISTANCIA ← TEMPO*VELOCIADE;
LITROS_USADOS ← DISTANCIA/12; escreva(“Tempo da viagem: “, TEMPO); escreva(“Velocidade média: “, VELOCIDADE); escreva(“Distância percorrida: “, DISTANCIA); escreva(“Litros de combustível gastos: “, LITROS_USADOS); fim. 2) algoritmo converte_F_em_C; var F,C: real; início escreva(“Digite a temperatura em Fahrenheit:”); leia(F); C ← (F-32)*(5/9); escreva(“Temperatura em Celsius: “, C); fim. 3) algoritmo calcula_volume; var VOLUME, RAIO, ALTURA: real; início escreva(“Digite o raio da base da lata de óleo:”); leia(RAIO); escreva(“Digite a altura da lata:”); leia(ALTURA); VOLUME ← 3.14159*RAIO*ALTURA; escreva(“Volume = “, VOLUME); fim. 4) algoritmo troca_valor; var A,B,AUX: real; inicio escreva(“Digite A:”); leia(A); escreva(“Digite B”); leia(B); AUX ← B; B ← A; A ←AUX; escreva(“Valor de trocado de A: “,A); escreva(“Valor de trocado de B: “,B); fim 5) algoritmo calcula_prestacao_atrasada; var PRESTACAO,VALOR,TAXA: real; TEMPO: inteiro; inicio escreva(“Digite o valor da prestação atrasada:”); leia(VALOR); escreva(“Digite o tempo do atraso:”); leia(TEMPO); escreva(“Digite a taxa de juros:”); leia(TAXA); PRESTACAO ← VALOR + (VALOR*(TAXA/100)*TEMPO); Escreva(“Valor da Prestação: “,PRESTACAO); fim. 6) algoritmo realiza_operacoes; var A,B,AUX: inteiro; inicio escreva(“Digite A:”); leia(A); escreva(“Digite B”); leia(B); AUX←A+B; escreva(“A+B =”,AUX); AUX←A-B;