Zivatar.hu Zivatar.hu Felhőtár
06. Határozd meg egy beolvasott számról, egész-e! (f77) - Zivatar.hu

06. Határozd meg egy beolvasott számról, egész-e! (f77)

A fortran program futtatásának eredménye:

> ./f.sh 05egesze
 be=?
4
 egesz

> ./f.sh 05egesze
 be=?
-2.28
 nem egesz

A hozzá tartozó forráskód:

      program egeszevajon
      real be, tizedes
      integer egesz, egesze
      write(*,*) 'be=?'
      read(*,*) be ! Beolvassuk a szamot
      egesz = int(be) ! Vesszuk az egeszreszet
      tizedes = be - egesz ! Kiszamitjuk a szam es egeszreszenek kulonbseget
      if(tizedes.eq.0) then ! Ha a szam megegyezik az egeszreszevel, az azt jelenti, hogy egesz
         write(*,*) 'egesz' ! Kiirjuk az eredmenyt
         egesze = 1 ! Eltaroljuk egy valtozoban, hatha kell meg valamire
      else ! Ha nem egyezik meg a szam es annak egeszresze, akkor nem egesz
         write(*,*) 'nem egesz'
         egesze = 0
      endif ! Vege a feltetel vizsgalatanak
      stop
      end

Szerző: MacGyver
Létrehozás: 2012-07-16

Név
E-mail cím
Honlapod címe (ha van)
Hozzászólás
Mennyi három meg három (betűvel)?

eXTReMe Tracker