************************************************************************ * File: lung2.for ************************************************************************ * Scopo: metodologia uso GOTO per simulare ciclo REPEAT-UNTIL del PASCAL ************************************************************************ PROGRAM CalcolaLunghezza2 * Legge da tastiera una sequenza di interi, terminata da 0. * Calcola la lunghezza della sequenza (senza lo 0) e la stampa. IMPLICIT NONE INTEGER lunghezza, dato DATA lunghezza/0/ WRITE (*,*) 'Inserisci una sequenza di interi, terminata da 0' ***** REPEAT 10 lunghezza = lunghezza + 1 READ (*,*) dato IF (dato .NE. 0) GOTO 10 ***** UNTIL (dato .EQ. 0) WRITE (*,*) 'La sequenza (senza lo 0 finale) e'' lunga ', $ lunghezza - 1 STOP END