Выбор плоскости или совокупности плоскостей, обладающих заданными свойствами. Тестирование программы UGOL, страница 6

WRITELN('Программа обработала исходные данные, выберите метод вывода результатов');

WRITELN('          Нажмите:');

WRITELN('          1 - если хотите вывести результаты на экран');

WRITELN('          2 - если хотите вывести результаты в файл OUT.TXT');

WRITELN('          3 - если хотите вывести результаты и на экран, и в файл OUT.TXT');

READ( CH );

CASE CH OF

1:   BEGIN

     CLRSCR;

     OUT_TO_MONITOR(COEF,N);           {Обращение к подпрограмме OUT_TO_MONITOR}

     END;

2:   BEGIN

     ASSIGN(outFile,'C:\OUT1.TXT');    {Связывание с файлом результатов}

     REWRITE(outFile);                 {Открытие файла}

     OUT_TO_FILE(COEF,N);              {Обращение к подпрограмме OUT_TO_FILE}

     CLOSE(outFile)

     END;

3:   BEGIN

     ASSIGN(outFile,'C:\OUT1.TXT');

     REWRITE(outFile);

     OUT_TO_FILE(COEF,N);

     CLOSE(outFile);

     CLRSCR;

     OUT_TO_MONITOR(COEF,N);

     END

END;

CLOSE(inputFile);                     {Закрытие исходного файла}

WRITELN;

WRITELN('ДЛЯ ЗАВЕРШЕНИЯ НАЖМИТЕ ENTER');

READLN;

READLN

End.

6. Тестирование.

Тест 1. (Содержит данные из примера решения задачи).

Содержимое файла исходных данных.

5

4 -5 6 7

8 10 12 14

3 4 5 6

4 5 6 8

-1 2 5 -10

Содержимое файла результатов.

                                       ИСХОДНЫЕ ДАННЫЕ   

КОЛИЧЕСТВО ПЛОСКОСТЕЙ N=5

      НОМЕР                           КОЭФФИЦИЕНТЫ

ПЛОСКОСТИ              A                   B                       C                     D

   1             4.000      -5.000       6.000       7.000  

   2             8.000      10.000      12.000      14.000  

   3             3.000       4.000       5.000       6.000  

   4             4.000       5.000       6.000       8.000  

   5            -1.000       2.000       5.000     -10.000  

                                              РЕЗУЛЬТАТЫ   

ПАРАЛЛЕЛЬНЫЕ ПЛОСКОСТИ

НОМЕР                                КОЭФФИЦИЕНТЫ

ПЛОСКОСТИ                 A                          B                        C                          D

2                      8.000                 10.000                  12.000                  14.000

      4                       4.000                 5.000                    6.000                    8.000

ПЛОСКОСТИ, МЕЖДУ КОТОРЫМИ РАВНЫЕ УГЛЫ

НОМЕР                                КОЭФФИЦИЕНТЫ

ПЛОСКОСТИ                 A                          B                        C                          D

   2               8.000        10.000        12.000        14.000  

   5              -1.000         2.000         5.000       -10.000  

----------------------Угол=41.4940---------------------------------

   4               4.000         5.000         6.000         8.000  

   5              -1.000         2.000         5.000       -10.000  

-------------------------------------------------------------------

Как видно, результаты полностью совпадают с результатами в примере.

Тест 2. (Нет ни параллельных плоскостей, ни пар плоскостей, углы между которыми равны)

Содержимое файла результатов.

5

0 3 3 -7

4 3 4 -6

3 7 5 4

4 7 8 19

1.5 3 2.5 25

Содержимое файла результатов.

                                       ИСХОДНЫЕ ДАННЫЕ   

КОЛИЧЕСТВО ПЛОСКОСТЕЙ N=5

      НОМЕР                              КОЭФФИЦИЕНТЫ

ПЛОСКОСТИ              A              B             C             D

1                      0.000       3.000       3.000      -7.000  

2                      4.000       3.000       4.000      -6.000  

3                      3.000       7.000       5.000       4.000  

4                      4.000       7.000       8.000      19.000  

5                      1.500       3.000       2.500      25.000  

РЕЗУЛЬТАТЫ

ПАРАЛЛЕЛЬНЫХ ПЛОСКОСТЕЙ НЕТ

ПАР ПЛОСКОСТЕЙ, МЕЖДУ КОТОРЫМИ РАВНЫЕ УГЛЫ, НЕТ

Заключение

Программа UGOL занимает на носителе данных объем 16 Кб, отлажена и работает без сбоев.