Zivatar.hu Zivatar.hu Felhőtár
05. Alakíts át egy valós számot egész számmá! (f77) - Zivatar.hu

05. Alakíts át egy valós számot egész számmá! (f77)

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

> ./f.sh 04valosbol
 valos=?
4.5
 levagott=           4

> ./f.sh 04valosbol
 valos=?
-2.8
 levagott=          -2

A hozzá tartozó forráskód:

      program valosbolint
      real be ! Valos szam
      integer ki ! Egesz szam
      write(*,*) 'valos=?'
      read(*,*) be ! Beolvasas
      ki=int(be) ! Figyelem! Ez nem kerekit, hanem levagja a szam nem egesz reszet.
      write(*,*) 'levagott=', ki
      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