Guest wellington Postado Abril 20, 2008 Denunciar Share Postado Abril 20, 2008 olá, sou novo em Fortran, e tenho uma dúvida, qual é a rotina para ler dados introduzidos pelo teclado? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest wellington Postado Abril 20, 2008 Denunciar Share Postado Abril 20, 2008 à propósito..uso OS windows XP, fortran 77, compilador force 2.0 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Abril 20, 2008 Denunciar Share Postado Abril 20, 2008 olá, sou novo em Fortran, e tenho uma dúvida, qual é a rotina para ler dados introduzidos pelo teclado?Exemplo simples:Resolvendo uma equação de 2o. grau C 1 2 3 4 5 6 C2345678901234567890123456789012345678901234567890123456789012345 PROGRAM BASKHARA C REAL A,B,C, DELTA, X1,X2, RE, IM C PRINT *, "Este programa resolve uma equação de 2o.grau" PRINT *, "no formato: a*x**2 + b*x + c = 0" C PRINT 10, "Digite a,b,c: " 10 FORMAT(A,1X,$) 20 READ(*,*,ERR=20) A,B,C // Leitura de dados pelo teclado C DELTA=B*B-4.*A*C C IF (DELTA.GT.0) THEN ! (DUAS RAIZES REAIS) X1=(-B-SQRT(DELTA))/(2.*A) X2=(-B+SQRT(DELTA))/(2.*A) PRINT *, "RAIZES: X1=",X1 PRINT *, " X2=",X2 ELSE IF (DELTA.EQ.0) THEN ! (DUAS RAIZES REAIS IGUAIS) X1=-B/(2.*A) X2=X1 PRINT *, "RAIZES: X1=X2=",X1 ELSE ! (DUAS RAIZES COMPLEXAS) RE=-B/(2.*A) IM=SQRT(-DELTA)/(2.*A) PRINT *, "RAIZES COMPLEXAS: X1=",RE," -",IM,"i" PRINT *, " X2=",RE," +",IM,"i" ENDIF C ENDCartão de Referencia do Fortran77 ( Comandos ) http://basalto.ifsc.usp.br/download/cartaoRefFortran.pdfManual do Fortran77http://www.geocities.com/helder_pc/fortran/abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest wellington
olá, sou novo em Fortran, e tenho uma dúvida, qual é a rotina para ler dados introduzidos pelo teclado?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.