PythonProjects/calculadora.f90 at master · sidineyr/PythonProjects · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Calculadora
  implicit none
  real :: num1, num2, resultado
  character(1) :: operacao

  ! Entrada de dados
  write(*,*) 'Digite o primeiro número: '
  read(*,*) num1

  write(*,*) 'Digite a operação (+, -, *, /): '
  read(*,*) operacao

  write(*,*) 'Digite o segundo número: '
  read(*,*) num2

  ! Realiza a operação escolhida
  select case (operacao)
    case ('+')
      resultado = num1 + num2
    case ('-')
      resultado = num1 - num2
    case ('*')
      resultado = num1 * num2
    case ('/')
      if (num2 /= 0.0) then
        resultado = num1 / num2
      else
        write(*,*) 'Erro: Divisão por zero!'
        stop
      end if
    case default
      write(*,*) 'Operação inválida!'
      stop
  end select

  ! Exibe o resultado
  write(*,*) 'Resultado: ', resultado

end program Calculadora