fortran vetores

4a LISTA DE EXERCÍCIOS - FUNÇÕES - GABARITO

1. Escreva uma função que calcule o preço da gasolina por litro no Brasil se adotássemos o mesmo preço cobrado nos Estados Unidos. Sabe-se que um galão tem 3,7854 litros. A função deve receber como parâmetro o preço do galão de gasolina praticado nos Estados Unidos (em dólares) e a taxa de conversão do dólar para o real, e deve retornar o preço do litro de gasolina correspondente em reais. real function litroreal(galaodolar, taxadolar) real galaodolar, taxadolar litroreal = (galaodolar * taxadolar) / 3.7854 return end

2. Sabendo que 1 pé tem 30,48 cm e que 1 polegada tem 2,54 cm, escreva uma função que converta um valor de altura dado em pés e polegadas para o valor correspondente expresso em metros. A função deve receber como parâmetros os valores em pés e polegadas (inteiros) e retornar a altura equivalente expressa em em metros. Por exemplo, se forem fornecidos os valores 5 pés e 10 polegadas, a função deve retornar o valor 1,778 (metros). real function converte(pes, pol) integer pes, pol converte = pes * 30.48 + pol * 2.54 return end

3. Escreva uma função que converta um valor de ângulo dado em graus, minutos e segundos para o valor correspondente expresso em radianos. Sabe-se que 1 radiano equivale a 57,29578 graus. A função deve receber como parâmetros os valores em graus, minutos e segundos (inteiros) e retornar a o valor equivalente em radianos. real function radianos(g, m, s) integer g, m, s radianos = (g + m/60. + s/3600.)/57.29578 return end

4. Considerando a existência de notas (cédulas) nos valores R$ 100, R$ 50, R$ 20, R$
10, R$ 5, R$ 2 e R$ 1, escreva uma função que receba como parâmetro um valor inteiro em reais (R$) e retorne um inteiro representando o menor número de notas necessário para se obter o montante fornecido. integer function calcula(v) integer v, resto calcula = v/100 resto = mod(v, 100) calcula = calcula + resto/50 resto = mod(resto,50)