Zivatar.hu Zivatar.hu Felhőtár
Olvass be egy pozitív számot! (f77) - Zivatar.hu

Olvass be egy pozitív számot! (f77)

Kérj be egy pozitív számot! Ha nem pozitívat kapsz, akkor adj hibaüzenetet!

Szükséges kimenet:

> ./a.out
 Adj meg egy pozitiv szamot!
35
 megfelel
> ./a.out
 Adj meg egy pozitiv szamot!
0
 csak pozitivat fogadok el
> ./a.out
 Adj meg egy pozitiv szamot!
-10
 csak pozitivat fogadok el

Megoldás:

      program pozitiv
      real szam
      write(*,*) 'Adj meg egy pozitiv szamot!'
      read(*,*) szam
      if(szam.gt.0.0) then ! pozitiv szam
         write(*,*) 'megfelel'
      else ! negativ vagy nulla
         write(*,*) 'csak pozitivat fogadok el'
      endif
      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