Ir para conteúdo
Fórum Script Brasil
  • 0

como ler dados introduzidos pelo teclado?


Guest wellington

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0
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
      END

Cartão de Referencia do Fortran77 ( Comandos )

http://basalto.ifsc.usp.br/download/cartaoRefFortran.pdf

Manual do Fortran77

http://www.geocities.com/helder_pc/fortran/

abraço

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...