Zivatar.hu Zivatar.hu Felhőtár
Válts át a földrajzi koordináták két elterjedt formátuma között! - Zivatar.hu

Válts át a földrajzi koordináták két elterjedt formátuma között!

Váltson át a program fok és fok:perc között. A felhasználó választhassa ki, hogy melyikre van szüksége.

Kimenet:

> ./a.out
 Mibol mibe szamitson?
  1: fok -> fokperc; 2: fokperc -> fok
1
 Adj meg a koordinatat tort fokban.
23.5
          23   30.0000000    
> ./a.out
 Mibol mibe szamitson?
  1: fok -> fokperc; 2: fokperc -> fok
1
 Adj meg a koordinatat tort fokban.
-23.5
         -23   30.0000000   
> ./a.out
 Mibol mibe szamitson?
  1: fok -> fokperc; 2: fokperc -> fok
2
 Add meg a koot fok-percben
30
45
   30.7500000    
> ./a.out
 Mibol mibe szamitson?
  1: fok -> fokperc; 2: fokperc -> fok
2
 Add meg a koot fok-percben
-1
30
  -1.50000000 

Megoldás:

      program fokperc
      integer umod
      real fok, perc
      integer Pfok
      write(*,*) 'Mibol mibe szamitson?'
      write(*,*) ' 1: fok -> fokperc; 2: fokperc -> fok'
      read(*,*) umod
      if(umod.eq.1) then ! fok -> fok-perc
         write(*,*) 'Adj meg a koordinatat tort fokban.'
         read(*,*) fok
         Pfok = int(fok)
         perc = abs( int(fok) - fok )*60.
         write(*,*) Pfok, perc
      elseif(umod.eq.2) then ! fok-perc -> fok
         write(*,*) 'Add meg a koot fok-percben'
         read(*,*) Pfok, perc
         if(Pfok.ge.0.) then
            fok = Pfok + perc/60.
         else
            fok = Pfok - perc/60.
         endif
         write(*,*) fok
      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