Mauren Lista 1 Fortran

Prévia do material em texto

Engenharia Geológica 
Mauren Espinosa Gasparw
Lista 1 Fortran 
Program one 
Implicit none 
Real m, n
	Print*, ‘Digite o primeiro número:’
	Read*, ‘m
	Print*, ‘Digite o segundo número’
	Read*, n
	Soma = x+y
	Print*, soma
	Stop
End program one
Program Area
Implicit none 
Real m,n, área
	Print*’Digite um dos lados do retângulo’
Read *, m
	Print *, ‘Digite outro lado do retângulo:’
	Read *, n
	area = m*n
	print *, ‘Área =’ area
	stop
end program area
3.Program hi
Implicit none
	Print *, ‘Olá Mundo’
	Stop
End program hi
4. Program f
Implicit none
Real f, celsius
	Print *, ‘temperatura em fahrenheit que deseja converter’
	Read *, f
	Celsius = (5*(f-32)/9)
	Print *, ‘Temperatura em graus Celsius:’, celsius
	Stop
End program f
Program c
Implicit none
Real fahrenheit, c
	Print *, ‘temperatura em fahrenheit que deseja converter:’
	Read *, c
	Fahrenheit = (9/5)*(c)+32
	Print *, ‘Temperatura em graus Fahrenheit:’, fahrenheit
	Stop
End program c
5. Program five
Implicit none
integer p, quadrado, cubo, raiz_quadrada, raiz_cubo
	Print *, ‘Escolha um número que seja positivo:’
	Read *, p
		If (p.gt.0) then 
			Quadrado = p**2
			Cubo = p**3
			Log_p = LOG (p)
			Raiz_quadrada = SQRT (p)
			Raiz_cubo = EXP (log_p/3.)
		Else
			Print *, ‘Não é um número positivo!’
		Endif
		Print *, quadrado, cubo, raiz_quadrada, raiz_cubo
		Stop
End program five
6. Program circle
Implicit none
Real r, a, c
Real, parameter :: pi=3.14
	Print *, ‘Qual o raio da circunferência ?:‘
	Read *, r
	C= 2*pi*r
	A = pi*(r**2)
	Print*, “ Circunferência= c, Area=a”
Stop
End program circle
7. Program salário
Implicit none
Real s, a
	Print *, ‘Qual o salário?’
	Read *, s
	A = s + (s*0.20)
	Print *, “Salário final é a
	Stop
End program salário
8. Program salário2
Implicit none
Real s, a, t
	Print *, ‘Digite o salário:’
	Read *, s
	Print *, ‘Digite a taxa de aumento em %:’
	Read *, t
	a = salario + [s*(t/100)]
	print *, “Seu aumento foi a”
	stop
end program salário2
9.Program médias_aritméticas
Implicit none
real n1, n2, n3, s, m
	print *, ‘Digite a primeira nota’
	read *, n1
	print*, “Digite a segunda nota”
	read*, n2
	print*, “Digite a terceira nota”
	read*, n3
	s = n1 + n2 + n3
	m= s/3
	print *, “soma é s e sua média é m”
	stop
end program médias_aritiméticas 
10. Program triangulo
Implicit none
Real b, h, a
	Print *, ‘Qual a base do triângulo?’
	Read *, b
	Print *, ‘Qual a altura do triângulo?’
	Read *, h
	a = (b*h)/2
	print *, ‘Area do triangulo é a’
	stop
end program triangulo
11.Program automóvel
Implicit none
Character(35) n
Real p, i, r, t
	Print *, ‘Diga o nome do automóvel desejado’
	Read *, n
	Print *, ‘Qual o preço de fábrica’
	Read *, p
	I = 0.45 * p
	R = 0.28 * p
	T= i + r+ p
	Print *, ‘nome_automovel R$: t
	Stop
End program automóvel 
12. Program 12 
Implicit none
Character(35) n
integer h, dep
real sliquido, sbruto, desconto_inss, desconto_ir
	print *, ‘Qual nome do funcionário?’
	read *, n
	print *, ‘Qual o numero de horas trabalhadas?’
	read *, h
	print *, ‘Qual o numero de pessoas dependentes do funcionário:’
	read *, dep
	salario_bruto = (horas * 12) + (dependentes * 40)
	desconto_inss = sbruto * 0.085
	desconto_ir = sbruto * 0.05
	sliquido = sbruto – (desconto_inss + desconto_ir)
	print *, ‘Nome: n; Desconto inss : desconto_inss; Desconto IR: desconto_ir; Salario liquido: salario_liquido’
	stop
end program empresa