Zivatar.hu Zivatar.hu Felhőtár
Vedd egy szám abszolútértékét! (f77) - Zivatar.hu

Vedd egy szám abszolútértékét! (f77)

Olvass be egy számot, vedd az abszolútértékét, és irasd ki!

A program kimenete:

> ./a.out
 Adj meg egy szamot!
1.2
   1.20000005    
> ./a.out
 Adj meg egy szamot!
-3
   3.00000000

Megoldás:

      program abszolutertek
      real a, absa
      write(*,*) 'Adj meg egy szamot!'
      read(*,*) a
      if(a.ge.0.0) then
         absa = a
      else
         absa = -1. * a
      endif
      write(*,*) absa
      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