rapid-02.f90

!-----------------------
! GABRIELLI - Funciona
!=======================
program rapidinha2
implicit none
real::co,ca,hip!declara‡Æo das variaveis(cateto oposto, cateto adjacente e hipotenusa)
print*,"este ‚ um programa para encontar a hipotenusa"
print*,"em primeiro lugar escreva o valor do cateto oposto"!instru‡oes ao usuario
print*,"depois disso escreva o valor do cateto adjacente" !instru‡oes ao usuario
read*, co,ca !leitura dos valores atribuidos para as variaveis
! sendo a hipotenusa a raiz da soma dos quadrados dos catetos a formula a ser usada para o calculo eh definida
hip = sqrt((co**2)+(ca**2))
print*,"o valor da hipotenusa eh:", hip !comando para imprimir na tela o valor da hipotenusa
print*, "precione a tecla L+E!instru‡oes ao usuarionter para encerrar o programa" !instru‡äes para o encerramento do programa
read*,
end program rapidinha2

!-----------------------
!LEONARDO - não compilou
!=======================
   program hipotenusa
      implicit none
      real co, ca, hip !declara‡Æo de v ri veis(cateto oposto, cateto adjacente e hipotenusa)
      print *, "Bem vind@ ao calculador de hipotenusas!"
      print *, "Primeiramente, digite o valor do cateto oposto" !instru‡äes dadas ao usu rio
      print *, "Ap¢s isso, digite o valor do cateto adjacente"  !instru‡äes dadas ao usu rioý
      read (*,*), co, ca !leitura de valores a serem usados nas vari veis
      !A partir da rela‡Æo de que a hipotenusa ‚ a raiz da soma dos quadrados deduz-se a f¢rmula a ser usada para o c lculo
      hip = sqrt((co**2) + (ca**2))
      print *, "O valor da hipotenusa eh:", hip !comando para impressÆo na tela do valor da hipotenusa
      print *, "Pressiona qualquer combina‡Æo de tecla+Enter para sair do programa" !instru‡äes para encerramento do programa
      read *,
      end program hipotenusa
!-----------------------
!RODRIGO - não compilou
!=======================
!Faça um programa em Fortran que dados dois catetos imprima o valor da hipotenusa, comentando (explicando) cada um dos passos no código fonte.
program rapidinha
implicit none
real :: a , b , c
!fa‡a os pedidos dos valores dos catetos
print*, 'Digite um valor real para o primeiro cateto e pressione ENTER!'
print*, 'Ap¢s digite um valor real para o segundo cateto e pressione ENTER!'
read(*,*), a , b ! O computador faz a leitura dos catetos
! Apresente a expressÆo onde os catetos serÆo utilizados
c = sqrt((a**2) + (b**2))
print*, 'O valor da hipotenusa eh:', c !Mostra o valor da hipotenusa



print*, 'Digite ENTER para finalizar!'
read*,



end program rapidinha !Finaliza o programa

!-----------------------
!LOIZE - Funciona
!=======================
program hipot
implicit none
!declara‡Æo das vari veis [cateto adjacente, cateto oposto e hipotenusa]
real ca, co, hip

!inserir valores aos catetos
print*, "Digite o valor para o cateto adjacente e aperte ENTER"
print*, "Agora digite um valor para o cateto oposto e aperte ENTER"

read(*,*) ca, co !usar o comando de leitura para o computador ler os catetos
hip = sqrt ((ca**2) + (co**2)) !apresentar a expressÆo a ser utilizada para o c culo da hipotenusa

print*, "O valor para a hipotenusa ‚: ", hip !comando de impressÆo do valor da hipotenusa

!comandos para encerrar o programa
print*, "Pressione ENTER para sair"
read*,
end program hipot

!-----------------------
!PEDRO - Funciona
!=======================
program rapidinha02 !Programa que fa‡a o teorema de pit goras.
real C1, C2     !C1= Cateto 1, C2= Cateto 2
read*, C1, C2
print*, "Quanto vale a hipotenusa, a partir dos catetos? "  !Senten‡a descritiva
!Dar o valor da hipotenusa, sendo que a f¢rmula ‚ a raiz quadrada da soma dos quadrados dos catetos.
print*, "Hipotenusa= ", sqrt(C1**2+C2**2)



read*
stop "acabou"
end program rapidinha02

!-----------------------
!VINICIUS - Funciona
!=======================
Program rapidinha_vini !Programa que calcula a hipotenusa dado dois catetos c1 e c2
      !Declarar vari veis reais
      Real:: ca, co
      !Imprimir comando para pedir o valor dos catetos
      Print*, "Dˆ o valor de dois catetos:"
      !Ler vari veis ca e co
      read*, ca, co
      !Calcular hipotenusa
      hip = sqrt((ca**2)+(co**2))
      !Imprimir valor da hipotenusa

      Print*, "A hipotenusa vale", hip

      !Imprimir comando de encerramento
      Print*, "Tecle ENTER para terminar"
      Read*,
      !Finalizar programa
      stop
      end program rapidinha_vini  !Fim do programa

!-----------------------
!JORAN - Cálculo da Hipotenusa errado
!=======================
program rapidinha02

! vamos realizar um programa em que mostra o valor da hipotenusa dados dois catetos
! ---------------------------------------------------------------------------------

implicit none

integer :: n1, n2 ! aqui os valores dos dois catetos

! vamos dar valores do tipo inteiro aos dois catetos para o calcular o valor da hipotenusa
! mostraremos na tela
print *, ' Digite dois n£meros inteiros para agregar valores aos catetos e digite ENTER '

! o programa ler  os numeros para a execu‡Æo do resultado
read *, n1, n2

! a soma dos catetos ao quadrado ‚ igual a hipotenusa
print *, ' o valor da hipotenusa = ' , ( n1 ** 2 ) + ( n2 ** 2 )

read *,

stop ' programa finalizado '

end program rapidinha02

!-----------------------
!MARIANA - Não compila
!=======================
 program rapidinha2
 implicit none
 real: : co, ca, hp !declara‡Æo de vari veis (cateto oposto, adjacente e hipotenusa)
 print*, "este ‚ um programa para encontrar a hipotenusa"
 print*, "em primeiro lugar escreva o valor do cateto oposto" !instru‡äes ao usu rio
 print*, "depois disso escreva o valor do cateto adjacente" !instru‡äes ao usu rio
 read*, co, ca !leitura dos valores atribuidos para as variaveis
 !sendo a hipotenusa a raiz da soma dos quadrados dos catetos a formula a ser usada para
 !o calculo eh definida
 hip = sqrt ((co**2)+(ca**2))
 print*, "o valor da hipotenusa eh: ", hip !comando para imprimir na tela o valor da
 !hipotenusa
 print*, "pressione a tecla L+E!instru‡oes ao usuarionter para encerrar o programa"
 !intru‡äes para encerrar o programa

read*,
end program rapidinha2

!-----------------------
!BRUNA - Funciona
!=======================
!Programa para encontrar a hipotenusa de um triangulo
program hipotenusa
implicit none
!definir as variaveis
real a, b, c
!Pedir para o usu rio inserir valores para os catetos
print*, "Digite dois valores para os catetos: " !mensagem que aparece na tela
read*, b, c    !valor definido pelo usu rio
print*, "O valor da hipotenusa ‚:", sqrt(((c**2)+(b**2))) !aý=bý+cý
print*, "Digite ENTER para fechar o programa"
read*
stop
end program hipotenusa

!-----------------------
!MARIA VITÓRIA - Funciona
!=======================
program hipotenusa

implicit none

real :: co, ca, hip  ! declara‡Æo de vari veis

print *, " Digite um valor para o cateto oposto e digite um valor para o cateto adjacente "    ! instru‡Æo

read *, co, ca ! leitura dos valores a serem usados
       hip = sqrt((co**2) + (ca**2))
print *, " o valor da hipotenusa eh: ", hip   !comando para impressÆo na tela do valor da hipotenu

read*,
stop " programa finalizado "  !instru‡äes para encerramento do programa

end program hipotenusa