CELSIUS

 !Program name: CELSIUS

!Fahrenheit-Celsius converter

 read *, F

 C=(F-32)*5/9

 Print *, 'Fahrenheit= ', F, 'Celsius= ', C

 Stop

 End

Comentários

  1. taanachkadel7 de novembro de 2022 às 02:30

    Also set a winning restrict - when you attain this quantity, it’s time to back away before you lose all of it. According to Ulrich’s 먹튀프렌즈 annual monetary disclosure type, he collected upward of $50,000 in playing winnings from the New York State Lottery last 12 months. Adolescents in China who both spend extra time on display actions, corresponding to watching TV or surfing the Web, or less time on non-screen actions, together with bodily exercise, are in danger and ... The Salvation Army encourages everybody to know the dangers of playing and can encourage education and prevention programmes to this finish. Salvation Army troopers decide to abstain from playing in any type. In the context of fundraising for charities, Salvationists are inspired to make donations rather than take part in playing actions.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

DATA

  ! Name of the program: DATA !Examples of data Implicit none !maximum integer value Integer :: A Integer (kind=2) :: B      !it uses two bytes Integer (kind=4) :: C      !it uses four bytes Integer (kind=8) :: D      !it uses eight bytes print *, huge(A), kind(A)  !it shows 2147483647 print *, huge(B), kind (B)  !it shows 32767     2 Print *, huge(C)          !it shows 2147483647      4 Print *, huge(D), kind (D) ! it shows 9223372036854775807    8 stop end
Leia mais

RECURSIVE

  !Program name: RECURSIVE !calculate the factorial of a number n! program recursive      integer :: i, f    character (len=1) :: answer    Print *, 'Input the value to be factorized: '    Read *, i ! Variable function:    f = factorial(i)    Print *, 'The value of factorial of', i, ' is: '    Print *, f 10   Print *, 'Do you want to calculate another factorial (Y/N)?'    Read *, answer    If (answer == 'Y') then         Print *, 'Input another value to be factorized: '         Read *, i         f = factorial(i)         Print *, 'The value of the factorial of ', i, ' is: '         Print *, f         Go to 10       else       print *, 'Ok. Goodbye.'    end if   end program recursive   ! computes the factorial of n (n!) recursive function factorial (n) result (fac) ! function result implicit none      ! dummy arguments    integer :: fac    integer, i
Leia mais

HYDROGEN-RADIAL

!--------------------------------------------------------------- !Program name: HYDROGEN-RADIAL !Radial equation of the hydrogen-like atom !Objective: plot the radial wave function for each n,l pair ! The equation is atomic units !--------------------------------------------------------------- !The Coulomb potential energy equation is: ! V(r) = -2Z/r ! The ceentrifugal potential equation is: ! VL=l(l+1)/r^2 ! The energy is: ! E=-2*Z/n^2 !--------------------------------------------------------------- ! Use of Numerov method to find the wave function ! Function fn from Numerov equation is ! Fn = 1 + K2*h^2/12 , where K2=-2(Veff - E) ! In the code, h is changed into dr !---------------------------------------------------------------   Program hydrogen   Implicit none   integer :: mesh, n, l, i, j, zeta, m, maxiter=100   Real*8 rmin, dr, zmesh, y_out_m   double precision :: e, fh12, norm, eps=1.0E-6    double precision, allocatable :: r(:), r2
Leia mais