фортран задача

[isus]

добрый день.... хотел помочь человеку с фортраном до сегоднешнего дня в глаза не видал такого зверя.

вообщем суть задачи определить по отрезкам можно ли построить треугольник и определить его тип.


набросал программку


program treugolnikotrezok
implicit none
real :: d(3),i

write(*,*) 'Vveditelybyestorony'
do i=1,3,1
read(*,*) d(3)
end do

if ((d(2)+d(3)).LE.d(1).or.(d(1)+d(3)) .LE.d(2).or.(d(1)+d(2)).LE.d(3)) then
write(*,*) 'nelzyasosttreugolnik'
else

if ((d(1)**2).EQ.(d(2)**2+d(3)**2).or. (d(2)**2).EQ.(d(1)**2+d(3)**2).or.( d(3)**2).EQ.(d(1)**2+d(2)**2)) then
write(*,*) 'treugolnikpryamougolnyi'
else

if ((d(1)**2).LT.(d(2)**2+d(3)**2).and .(d(2)**2).LT.(d(1)**2+d(3)**2).and .(d(3)**2).LT.(d(1)**2+d(2)**2)) then
write(*,*) 'treugolnikostrougolnyi'
else

write(*,*) 'treugolniktupougolnyi'

end if
end if
end if

end program

проходит до окончания ввода массива и выкидывает, что я делаю не так?
Заранее благодарен!

[Vago]

Сообщение от isus

...
do i=1,3,1
read(*,*) d(3)
end do
...

i

Кстати, зачем оно у Вас типа real ?

Ну и, в реальных задачах проверки на строгое равенство для результатов операций над вещественными числами никто никогда не делает.

[isus]

Сообщение от Vago

i

Кстати, зачем оно у Вас типа real ?

Ну и, в реальных задачах проверки на строгое равенство для результатов операций над вещественными числами никто никогда не делает.

спасибо за совет, вчера голова не варила совсем))


вот как сделал


program treugolnikotrezok
implicit none
integer d(3), i

write(*,*) 'Vveditelybyestorony'
read *, (d(i), i=1,3)

if ((d(2)+d(3)).LE.d(1).or.(d(1)+d(3)) .LE.d(2).or.(d(1)+d(2)).LE.d(3)) then
print *, 'nelzyasosttreugolnik'
else

if ((d(1)**2).EQ.(d(2)**2+d(3)**2).or. (d(2)**2).EQ.(d(1)**2+d(3)**2).or.( d(3)**2).EQ.(d(1)**2+d(2)**2)) then
print *, 'treugolnikpryamougolnyi'
else

if ((d(1)**2).LT.(d(2)**2+d(3)**2).and .(d(2)**2).LT.(d(1)**2+d(3)**2).and .(d(3)**2).LT.(d(1)**2+d(2)**2)) then
print *, 'treugolnikostrougolnyi'
else

print *, 'treugolniktupougolnyi'

end if
end if
end if

end program

[Vago]

Сообщение от isus

implicit none
integer d(3), i

В реальной жизни так бывает очень редко. Почему не написать

          implicit none
          real     d(3)
          integer  i

?

А до погрешностей вычислений страдалец-"заказчик", я так понимаю, просто не дорос ещё. Он сейчас, очевидно, на таком этапе, когда дай Бог элементарный алгоритм написать, не заморачиваясь машинной арифметикой. Пускай тогда остаются жёсткие равенства в проверках. Будет этим заниматься - сам разберётся со временем...