[fortran] wczytywanie liczb

[Gosik]

Witam!
 Chcialabym wczytac dane z pliku i kolejno wyznaczyc najmniejsza i najwieksza liczbe.

Kod: [Zaznacz]

program minmax
implicit none
real, allocatable :: x(:)
real xmin, xmax
integer i,n,nm0

 open (11,file='liczby.dat')
 read(11,*) n
 if (n<1) then
   write (*,*) 'za malo danych'
   stop
 end if


 allocate(x(n))
  close(11)

  do i=1,n
   write(*,*)'liczby',x(i)
  end do

 xmin=x(1)
 xmax=x(1)

 do i=2,n
     if (x(i)>xmax) xmax=x(i)
     if (x(i) end do

write(*,*) 'najmniejsza liczba =',xmin
write(*,*) 'najwieksza liczba =',xmax


deallocate(x)

end program minmax

W pliku liczby.dat mam takie liczby: 0 23 0.1 100
A otrzymuje:
 najmniejsza liczba =   0.0000000    
 najwieksza liczba =  7.00649232E-44

Czy moglabym prosic o wskazanie gdzie mam blad?

[Paweł Kraszewski]

Fortrana widziałem z 20 lat temu ostatni raz, ale:

1. Z programu wynika, że pierwsza dana w pliku to liczba danych do wczytania (parametr n). Twoje dane na pierwszej pozycji mają 0, więc pierwszy błąd.
2. Nie wczytujesz reszty liczb to tablicy.

[Gosik]

Tak, zgadza sie. Dziekuje. Jednakze nie wiem jak to porawic. Nalezy wczytac liczby do momentu konca wiersza.
Dopiero rozpoczynam nauke z tym jezykiem programowania, Jesli ktos sie na tym zna, to bede bardzo wdzieczna za pomoc.

[falcoalopex]

Ja Fortrana widziałem rok temu i też niewiele pamiętam;) i do tego ostatnio używałem F77, a z tego co widzę co najmniej F95.

Spróbuj dopisać po  allocate(x(n)):

 

read(11,*) (x(i), i=1,n)

piszę to bez możliwości sprawdzenia więc nie musi być dobrze...

Co studiujesz, że masz Fortrana?

[Edycja]
Plik musi zawierać liczbę danych do wczytania (Twoje "n")
 

4
0 23 0.1 100