Witam.
Zaczynam poznawać jezyk Fortrana i jest to <ort>w ogóle</ort> mój pierwszy język, który poznaje.Mam więc elementarne pytanie.W prostym programie:
program ifelse
implicit none
integer :: a,b,c
1010 write (*,*) "podaj A"
read (*,*) a
write (*,*) "Podaj B"
read (*,*) b
IF (a>b) THEN
write (*,*) "Wieksza liczba A"
read (*,*) a
ELSE IF (a<b) THEN
write (*,*) "Wieksza liczba B"
read (*,*) b
ELSE IF (a==b) THEN
write (*,*) "Liczba A rownia sie licznie B"
read (*,*)
END IF
GOTO 1010
END PROGRAM
wszystko działa poprawnie oprócz polecenia GOTO 1010 tzn. po wykonaniu instrukcji porównania liczb ze sobą program nie wraca od razu do linii 1010.Zanim to się stanie muszę wcześniej podać jakąś liczbę.
Np.
Podaj liczbe A
2
Podaj liczbe B
1
Liczba A wielsza od liczby B
! Teraz nic się nie dzieje. Dopiero gdy wprowadzę jakąś liczbę program skacze do linii 1010 i wówczas prosi mnie o podanie liczby A.
Co zrobić aby od razu pytał o liczbę A?
Dzięki za odpowiedź.Pozdrawiam