Здравствуйте!
Нам в институте задали сделать калькулятор на Фортране. 
В числе прочего нужно еще и сделать защиту от вычисления мнимых чисел.

Непонятно какое условие нужно задавать, чтобы выводило сообщение. 
Помогите пожалуйста!

Во-первых, забудьте о goto.
Во-вторых, используйте == вместо .eq., < вместо .lt. и т.д.
В-третьих, я что-то с трудом понимаю, как из вещественного числа при возведении его в вещественную степень можно получить комплексное число? Я что-то упустил? 

И заодно еще вместо цепочки if'ов конструкцию



А если возвести -1 в степень 0.5? Оба числа вещественные...   

Ах ну да...  Чувствовалось, что упускаю что-то...

Добавлено @ 14:01
Так стоп. Я тут подумал. Думаю, если a отрицательно, то его можно возводить только в целую степень. В вещественную в любом случае не получится. Для возведения в вещественную степень нужно применять какую-то формулу. Например, a^b = e^(b * lna). А логарифм определён только для положительных чисел.


Это сообщение отредактировал(а) kemiisto - 23.10.2010, 14:01

Вообще-то в Фортране есть встроенная операция возведения в степень.   Другое дело, что этот случай она действительно обработает не так, как ожидается - попытка вычислить "в лоб" (-1)**0.5 выдаст какой-нибудь вариант NaN. Но не потому, что "нельзя", а потому, что в этом случае результат операции формально должен быть вещественным. А если явно сделать первый операнд комплексным (например,  (-1,0)**0.5), то все сработает так, как надо.

Фантом, оно понятно. Я просто к тому, что в этом условии

проверять, собственно, ничего больше и не надо, если a и b - real, а комплексных чисел надо избегать.

А, тогда да.

В общем, если a и b - real, как-то так:

но ведь отрицательные числа можно возводить в степень...

Можно, но есть нюансы. Я же писал выше, что операция ** в Fortran для отрицательных вещественных чисел вернёт результат, только если степень будет целым числом. Иначе всё равно будет NaN.

большое спасибо!  
PS про case тоже учту