Fortran - repetir la ejecución

   
Vista:

repetir la ejecución

Publicado por Jorge (1 intervención) el 13/11/2010 06:54:10
Saludos, estoy estudiando la carrera, y como mi primer lenguaje me están "enseñando" fortran, nos han dejado programas relativamente sencillos, (para la pésima calidad de enseñanza que nos dan respecto al lenguaje).

Pues bien tengo el siguiente código:

Program N_trios

Real :: X, Y, G, e=2.7182
Integer :: I
write (*,*) "Escribe los valores del trio numerico, I, X y Y"
read (*,*) I, X, Y
select case (I)
Case (0)
G = X**2+Y**2
write (*,*) "f(x,y)= X^2+Y^2" ," f(x,y)= " ,G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (1)
G = e**X+e**Y
write (*,*) "f(x,y)= e^x+e^y", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (2)
G = Y+SIN(X)
write (*,*) "f(x,y)= Y+Sen(x)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (3)
G = cos(x)
write (*,*) "f(x,y)= cos(x)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (4:5)
G = sqrt(X**2+Y**2)
write (*,*) "f(x,y)= SQRT(X^2+Y^2)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case default
G = X-3
Write (*,*) "f(x,y)= X-3", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y

End Select

End Program N_trios

Pero necesito hacer que se repita, se pide que al entregar los resultados, haga una pregunta quieres introducir otro trío numérico? Yes, de lo contrario No, al escribir Yes el programa debe hacer todo el proceso de nuevo.

Eh intentado usando do, o cycle, pero o se cicla o en cuanto corre, se cierra.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Fortran
- Código fuente de Fortran
- Cursos de Fortran
- Temas de Fortran
información
Códigos de Fortran
- Ecuaciones lineales