Существует ли треугольник по введённым длинам сторон (нужно проверить и дополнить)

@Тёрн · Регистрация: 24.10.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста. Нужно написать программу, по которой можно узнать по введённым длинам сторон, существует такой треугольник или нет, а если существует, то какой он: равносторонний, равнобедренный, прямо-,остро-, тупоугольный.
Так вот, я написал, но при вводе длин 0,3; 0,4; 0,5 программа выдаёт, что треугольник остроугольный, хотя должен выдавать, что прямоугольный. Судя по всему, это происходит из-за погрешности преобразований чисел в двоичный код и обратно. Если посмотреть просто на умножение этих чисел, представляя числа, как double precision, получается, что, как я полагаю при возведении в квадрат числа, квадрат которого равен меньше 0,1 , он выдаёт такую бяку. В итоге для квадрата числа 0,3 получается что-то вроде 0,090000642. Из-за этого и происходит ошибка. Подскажите пожалуйста, как избавиться от этого?

Вот текст мой программы:

Fortran

       program TRI
       real  a, b, c
       print*, 'Введите три стороны'
       read*,a,b,c
       s=a
       d=b
       do 10 i=1, 2
        if(s .lt. d) s=d
        d=c
 10    continue
       print*,'Наибольшая сторона:',s
       if(s .eq. a)then
          if(s .lt. b+c) then
           if(b**2+c**2 .gt. a**2) print*, 'Остроугольный'
           if(b**2+c**2 .lt. a**2) print*, 'Тупоугольный'
           if(b**2+c**2 .eq. a**2) print*, 'Прямоугольный'
            goto 20
           endif
 
       elseif(s .eq. b) then
          if(s .lt. a+c) then
           if(a**2+c**2 .gt. b**2) print*, 'Остроугольный'
           if(a**2+c**2 .lt. b**2) print*, 'Тупоугольный'
           if(a**2+c**2 .eq. b**2) print*, 'Прямоугольный'
            goto 20
           endif
 
       elseif(s .eq. c) then
          if(s .lt. a+b) then
           if(a**2+b**2 .gt. c**2) print*, 'Остроугольный'
           if(a**2+b**2 .lt. c**2) print*, 'Тупоугольный'
           if(a**2+b**2 .eq. c**2) print*, 'Прямоугольный'
            goto 20
           endif
       endif
         goto 40
 
 20    if(a .eq. b .and. a .eq. c) then
         print*, 'Равносторонний'
         goto 30
       endif
 
       if(a .eq. b .and. a .ne. c .or. a .eq. c .and. a .ne. b) goto 25
       if(b .eq. c .and. b .ne. a) then
        goto 25
        else
         goto 30
       endif
 
 25   print*, 'Равнобедренный'
 
 30    print*, 'Треугольник существует'
        goto 100
 40    print*, 'Треугольник не существует'
        goto 100
 
 
 100    end

@_Илья_ · 30.10.2010, 16:07

Затрудняюсь сказать, в чем именно проблема - подобные фокусы фортран иногда выкидывает.
В качестве решения предлагаю увеличить разрядность используемых переменных в два раза и на всякий случай объявить еще две используемые переменные s и d:

Fortran

1	real*8 a, b, c, d ,s

	30.10.2010, 16:07