LISTA RESOLVIDA - prova 2

Prévia do material em texto

faça um algoritmo que imprima na tela o número 5
faça um algoritmo que imprima na tela a expressão “oi mundo”
faça um algoritmo que leia um único número e imprima este número
faça um algoritmo que leia um único número, determine se este número é par ou impar..
faça um algoritmo que leia um número x e imprima o inverso dele, ou seja, -x
faça um algoritmo que leia um único número, determine se este número é negativo ou positivo..
faça um algoritmo que leia um único número, determine se este número é negativo, positivo ou 
faça um algoritmo que leia o nome de duas pessoas e imprima a concatenação (justaposição 
faça um algoritmo que leia o nome de duas pessoas e imprima a concatenação (justaposição 
faça um algoritmo que imprima o número 5 cinco vezes na tela
faça um algoritmo que imprima o número 3 dez vezes na tela
faça um algoritmo que imprima o número 8 cinquenta vezes na tela
faça um algoritmo que imprima os números de 1 até 100
faça um algoritmo que some os números de 1 a 500
faça um algoritmo que multiplique os números de 1 a 100
faça um algoritmo que multiplique os números de 90 à 1
faça um algoritmo que calcule a soma de números de 1 até n onde n deve ser informado pelo 
faça um algoritmo que calcule a seguinte série: 1-2+3-4+5-6.... . O algoritmo deve ler o número 
Faça um algoritmo que calcule o módulo de um número x onde x deve ser informado pelo 
Faça um algoritmo que calcule x2 onde x deve ser dado pelo usuário
Faça um algoritmo que calcule x5 onde x deve ser dado pelo usuário
Faça um algoritmo que calcule x50 onde x deve ser dado pelo usuário
Faça um algoritmo que calcule xn onde x e n devem ser dados pelo usuário
Faça um algoritmo para resolver a seguinte série: sen(x) = x – x3/3! +x5/5!-x7/7!
Uma pesquisa sobre algumas características físicas da população de uma determinada região 
Para se determinar o número de lâmpadas necessárias para cada cômodo de uma casa, existem 
Faça um algoritmo que leia e armazene n números, imprima cada um deles, e identifique se cada 
Faça um algoritmo que leia e armazene n números, imprima cada um deles, e identifique se cada 
Faça um algoritmo que leia e armazene n números, imprima cada um deles, e identifique se este 
Faça um algoritmo que leia um único número x. Caso x seja positivo o algoritmo deve calcular 
1) program ex1
implicit none
write(*,*)5
end program ex1
2) program ex2
implicit none
write(*,*)"oi mundo"
end program ex2
3) program ex3
implicit none
real:: x
write(*,*) "digite um numero"
read(*,*) x
write(*,*) "o numero digitado é=", x
end program ex3
4) program ex4
implicit none
real:: x
write(*,*) "digite um numero"
read(*,*) x
if(mod(x,2.0)==0)then
 write(*,*)"o numero eh par"
 else
 write(*,*)"o numero eh impar"
end if
end program ex4
5) program ex5
implicit none
real:: x,y
write(*,*) "digite um numero"
read(*,*)x
y=x*(-1)
write(*,*) "a inversa de x eh", y
end program ex5
6) program ex6
implicit none
real::x
write(*,*) "digite um numero"
read(*,*) x
if(x>=0)then
 write(*,*) "o numero eh positivo"
 else
 write(*,*) "o numero eh negativo"
 end if
 end program ex6
7) program ex7
implicit none
integer:: x
write(*,*) "digite um numero"
read(*,*) x
if (x==0)then
 write(*,*) "neutro"
 end if
 if (x>0) then
 write(*,*) "positivo"
 end if
 if (x<0) then
 write(*,*) "negativo"
 end if
 end program ex7
8) program ex8
implicit none
character(100)::nome1,nome2
write(*,*) "escreve um nome"
read(*,*) nome1
write(*,*) "escreva outro nome"
read(*,*) nome2
write(*,*) trim (nome1//nome2)
end program ex8
10) program ex10
implicit none
integer:: i
do i=1,5,1
 write(*,*) 5
 end do
 end program ex10
11) program ex11
implicit none
integer:: i
do i=1,10,1
 write(*,*) 3
 end do
 end program ex11
12) program ex12
implicit none
integer:: i
do i=1,50,1
 write(*,*) 8
 end do
 end program ex12
13) program ex13
implicit none
integer:: i
do i=1,100,1
 write(*,*) i
 end do
 end program ex13
14) program ex14
implicit none
integer:: i, soma
soma=0
do i=1,500,1
 soma=soma+i
 end do
 write(*,*) soma
 end program ex14
15) program ex15
implicit none
integer:: i,n,fat
write(*,*) "escreva um numero para fazer fatorial"
read(*,*) i
fat=1
 do n=1,i,1
 fat=fat*n
 end do
 write(*,*) fat
 end program ex15
16) program ex16
implicit none
integer:: i,fat
fat=1
do i=1,6,1
 fat=fat*i
 end do
 write(*,*) fat
 end program ex16
17) program ex17
implicit none
integer:: i,n,soma
write(*,*)"digite um numero inteiro"
read(*,*)n
soma=0
 do i=1,n,1
 soma=soma+i
 end do
 write(*,*) soma
 end program ex17
18) Program ex18
Implicit none
Integer::x,i,k,j
write(*,*)"digite numero de termos para a serie"
read(*,*)x
k=0
do i=1,x-1,1
do j=2,x,1
k=k+(i-j)
end do
end do
write(*,*)"a serie é", k
end program ex18
19) program ex19
implicit none
integer::x,y
write(*,*) "digite um numero inteiro"
read(*,*) x
if (x>=0) then
 write(*,*) "o modulo eh", x
 else if (x<0) then
 y=x*(-1)
 write(*,*) "o modulo eh", y
 end if
 end program ex19
20) program ex20
implicit none
integer::x,y
write(*,*) "digite um numero inteiro"
read(*,*) x
y=x**2
write(*,*)y
end program ex20
21) program ex21
implicit none
integer::x,y
write(*,*) "digite um numero inteiro"
read(*,*)x
y=x**5
write(*,*)"o numero elevado a cinco eh", y
end program ex21
22) program ex22
implicit none
integer:: x,y
write(*,*) "escreva um numero inteiro"
read(*,*)x
y=x**50
write(*,*)"o numero elevado a 50 é", y
end program ex22
23) program ex23
implicit none
integer::x,n,y
write(*,*) "digite um numero"
read(*,*) x
write(*,*)"digite o expoente"
read(*,*)n
y=x**n
write(*,*)"o resultado eh", y
end program ex23
24) 
	program ex24
	implicit none
		real*8::x,soma
		integer*8::i,j,fat,sinal
		real*8,parameter::pi=3.141592654
		write(*,*)"Entre com o valor de X:"
		read(*,*)x
		x=pi*x/180.0
		write(*,*)x
		sinal=1
		soma=0
		do i=1,19,2
			fat=1
			do j=1,i
				fat=fat*j
			enddo
			write(*,*)fat
			soma=soma + (sinal*(x**i/fat))				
			sinal=sinal*(-1)
		enddo
		write(*,*)"O valor aproximado do seno de X eh:",soma
		write(*,*)"O valor do seno eh:",sin(x)
	end program ex24
25) program ex25
 implicit none
 character(100)::sex
 integer:: i,x,y,tot,px,py
 write(*,*) "digite o numero de habitantes"
 read(*,*) tot
 x=0
 y=0
 do i=1,tot,1
 Write(*,*)"qual o sexo do habitante"
 read(*,*) sex
 if(sex=="feminino")then
 x=x+1
 end if 
 if(sex=="masculino")then
 y=y+1
 end if
 end do
 write(*,*)"o total feminino eh", x
 write(*,*)"o total masculino eh", y
 px=(x/tot)*100
 write(*,*)"o percentual feminino eh", px
 py=(y/tot)*100
 write(*,*)"o percentual masculino eh", py
 end program ex25
26) Program dimensionamento
Implicit none
Integer::x,totalclasse1, totalclasse2, totalclasse3,lamp,l,c,i
Character(20)::nome,classe
Real::area,pot,pottotal,areatotal
Write (*,*)"quanto cômodos tem a casa?"
Read(*,*)x
Pottotal=0
Areatotal=0
totalclasse1=0
totalclasse2=0
totalclasse3=0
Do i=1,x,1
Write (*,*)"digite nome do cômodo"
Read(*,*)nome
Write(*,*)"o nome do cômodo é= ",nome
Write(*,*)"qual a área"
Area=c*lAreatotal=areatotal+area
Write(*,*)"a area do comodo é= ",area
Write(*,*)" digite a classe do cômodo(c1,c2 ou c3)" 
Read(*,*)classe
If(classe=="c1")then
Write(*,*)"a classe do comodo é classe1"
Totalclasse1=totalclasse1+1
pot=area*15
else if(classe=="c2")then
totalclasse2=totalclasse2+1
Write(*,*)"a classe do comodo é= classe2"
pot=area*18
else if(classe=="c3")then
totalclasse3=totalclasse3+1
Write(*,*)"a classe do comodo é= classe3"
pot=area*20
end if
pottotal=pottotal+pot	
end do
write(*,*)"a potencia total é= ",pottotal
write(*,*)"a classe 1 tem um total de comodos= ",totalclasse1
write(*,*)"a classe 2 tem um total de cômodos= ",totalclasse2
write(*,*)"a classe 3 tem um total de cômodos= ",totalclasse3
lamp=pottotal/60
write(*,*)"o total de lâmpadas será",lamp
end program dimensionamento
27) program ex27
implicit none
integer:: x,i,n,totpositivo,totnegativo
totpositivo=0
totnegativo=0
write(*,*)"digite quantos numeros quer armazenar"
read(*,*)n
do i=1,n,1
 write(*,*)"digite o numero"
 read(*,*)x
 write(*,*)"o numero digitado foi",x
 if(x>0)then
 write(*,*)"o numero eh positivo"
 totpositivo=totpositivo+1
 end if
 if(x<0)then
 write(*,*)"o numero eh negativo"
 totnegativo=totnegativo+1
 end if
 end do
 write(*,*)"total de numeros", n
 write(*,*)"total de numeros positivos", totpositivo
 write(*,*)"total de numeros negativos", totnegativo
 end program ex27
28) program ex28
implicit none
integer:: x,i,n,totpar,totimpar
totpar=0
totimpar=0
write(*,*)"digite quantos numeros quer armazenar"
read(*,*)n
do i=1,n,1
 write(*,*)"digite um numero"
 read(*,*)x
 if(mod(x,2)==0)then
 write(*,*)"o numero eh par"
 totpar=totpar+1
 else 
 write(*,*)"o numero eh impar"
 totimpar=totimpar+1
 end if
 end do
 write(*,*)"o total de numeros pares eh", totpar
 write(*,*)"o total de numeros impares eh", totimpar
 end program ex28
29) program ex29
implicit none
integer:: n,x,i, somapositivo,somanegativo
somapositivo=0
somanegativo=0
write(*,*)"digite quantos numeros quer armazenar"
read(*,*) n
do i=1,n,1
write(*,*)"digite um numero"
read(*,*) x
if (x>0) then
write(*,*)"o numero eh positivo" 
somapositivo=somapositivo+1
end if
if(x<0)then
 write(*,*)"o numero eh negativo"
 somanegativo=somanegativo+1
 end if
end do
 write(*,*)"a soma dos numeros positivos eh", somapositivo
 write(*,*)"a soma dos numeros negativos eh", somanegativo
 end program ex29
30) program ex30
implicit none
integer::x,y,i,z,w
z=0
w=1
write(*,*)"digite um numero"
read(*,*) x
if (x>0) then
 y=x**50
 write(*,*)"o numero positivo elevado a 50 eh", y
 end if
 if(x<0)then
z=x*(-1)
	do i=1,z,1
 w=w*i
 write(*,*) "o fatorial do modulo de ", x ,"eh",w
 end do
 end if
 end program ex30