1

Criei esse programa para calcular o IMC, porém ele não executa por completo. Ele pede para entrar com o peso e a altura, mas não retorna nenhum resultado.

Alguém poderia me dizer o que está errado?

PROGRAM Calc
 IMPLICIT NONE
 REAL :: peso, altura, mmc
 write(*,*) "Valor do peso = ? "
 read(*,*) peso
 write(*,*) "Valor do altura = ? "
 read(*,*) altura
 mmc = (peso/altura)
 write (*,*) mmc
 STOP
END PROGRAM Calc
3
  • Após eu digitar os 2 valores de entrada, ele não printa o resultado na tela, simplesmente fecha o terminal Commented 30/11/2017 às 12:05
  • Qual linguagem e compilador está usando ? Commented 30/11/2017 às 12:20
  • Force 2.0 Fortran 90 Commented 30/11/2017 às 12:24

1 Resposta 1

2

Simplesmente adicione um novo READ no final para que ele espere o pressionamento de uma tecla antes de encerrar o código.

1
  • outra alternativa é rodar o programa pelo terminal, não por uma IDE. (: Commented 30/11/2017 às 12:25

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .