Zivatar.hu Zivatar.hu Felhőtár
Melyik szám a nagyobb? (f77) - Zivatar.hu

Melyik szám a nagyobb? (f77)

Olvass be két számot, állapítsd meg, melyik a nagyobb!

A kívánt kimenet:

> ./a.out
 Adj meg ket szamot!
1
2
 A masodik szam a nagyobb:   2.00000000    
> ./a.out
 Adj meg ket szamot!
-1.4
-2.76
 Az elso szam a nagyobb:  -1.39999998    
> ./a.out
 Adj meg ket szamot!
5
5.0
 A ket szam megegyezik.

Megoldás:

      program melyiknagyobb
      real a, b
      integer melyik
      write(*,*) 'Adj meg ket szamot!'
      read(*,*) a, b
      if(a.gt.b) then ! a > b
         melyik = 1
         write(*,*) 'Az elso szam a nagyobb:', a
      elseif(a.lt.b) then ! a < b
         melyik = 2
         write(*,*) 'A masodik szam a nagyobb:', b
      else ! a == b
         melyik = 0
         write(*,*) 'A ket szam megegyezik.'
      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