Zivatar.hu Zivatar.hu Felhőtár
Kerekíts egy tizedestört számot egészre! - Zivatar.hu

Kerekíts egy tizedestört számot egészre!

Kérj be egy számot, és kerekítsd egészre!

Szükséges kimenet:

> ./a.out
 Adj meg egy szamot!
1.1
           1
> ./a.out
 Adj meg egy szamot!
1.6
           2
> ./a.out
 Adj meg egy szamot!
-2.5
          -3

Megoldás:

      program kerekites
      real szam, maradek
      integer csonk, kerek
      write(*,*) 'Adj meg egy szamot!'
      read(*,*) szam
      csonk = int(szam) ! a megadott szam egeszresze
      maradek = szam-csonk ! a szam es az egeszreszenek kulonbsege
      if(maradek.ge.0.5) then ! pozitiv szam, amit felfele kerekitunk
         kerek = csonk + 1
      elseif(maradek.le.-0.5) then ! negativ szam, amit "felfele" kerekitunk
         kerek = csonk - 1
      else
         kerek = csonk
      endif
      write(*,*) kerek
      stop
      end

Szerző: MacGyver
Létrehozás: 2012-11-04

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