Написание программы, реализующей на языке ФОРТРАН ввод нового треугольника, вычисление минимального угла в градусах (Лабораторная работа № 1. Вариант 6), страница 3

            print *,'Choose only 1 or 5!'

            else

            print *,'Firstly choose 1!'

            end if

      end if     

      case(3)

      if (j.eq.2)then

        call minugol

      else

            if(j.eq.1)then

            print *,'Choose only 1 or 5!'

            else

            print *,'Firstly choose 1!'

            end if

      end if     

      case(2)

      if (j.eq.2)then

      print *,s

      else

            if(j.eq.1)then

            print *,'Choose only 1 or 5!'

            else

            print *,'Firstly choose 1!'

            end if

      end if     

      case DEFAULT

      i=5

      end select

      end while

      pause

      end

V.Набор тестов

Входные данные	Результат			Назначение
5 или 0, или другая цифра меньше 0 или больше 5	Выход из программы			Проверка корректности меню
2,3 или 4	Сообщение  'Firstly choose 1!'
1 0 0 0 0 0 0 2, 3 или 4	Сообщение  'The data uncorrected' Сообщение  'Choose only 1 or 5!'			Проверка работы с некорректными данными
1 8.45  7.1  4.6  3.2  8.45  7.1 или 1 1.5  1.5  2  2  3.67  3.67 или 1 0 0 2.5 1.5 1 0.6	Сообщение  'The data uncorrected'
1 0 0 5 0 0 5 2,3,4 в любом порядке	площадь	косинус	угол	Равнобедренный прямоугольный треугольник
	12.5000000	0.7071067	45.0000000
1 0  -2  0  2  3.4641016  0 2,3,4 в любом порядке	6.9282031	0.5000000	60.0000000	Равносторонний треугольник
1 0  0  0  3  5.1961524  0 2,3,4 в любом порядке	7.7942286	0.8660254	30.0000000	Наименьший угол 30 градусов

VI.Исследования

1 Исследование:

При увеличении стороны:

Переполнение зафиксировано при входных данных:

0 0  0 1e20  1e20 0

Выдано сообщение –inf

Последний результат получен при входных данных:

0 0  0 1e19  1e19 0

S=4,9999998e+037

При уменьшении стороны:

Переполнение зафиксировано при входных данных:

0 0  0 1e-23  1e-23 0

Выдано сообщение 0.0000000

Последний результат получен при входных данных:

0 0  0 1e-22  1e-22 0

S=5,6051939e-045

2 Исследование:

Зафиксированная сторона  а	Изменяемая сторона Х	Площадь	Косинус	Угол
10**8	10**8	5е+15	0.707	45.02
	10**7	4.9е+15	0.95	5.7
	10**5	4.9е+12	0.999	0.05
	10**4	4.9е+11	1.0000000	0.0000

 Для всех фиксированных сторон а длин с 10**⁸ по 10**¹⁵ нарушения порядка наблюдаются при длинах изменяемых сторон х, равных 10**^n-4

 

3 Исследование:

При pi=3.14159265 и pi=3.1415927 значение углов перестает меняться