Составление программы для поиска прямых, параллельных оси X, и вычисления наибольшего расстояния между прямой и осью, страница 5

Writeln(F2,'  Количество прямых N=', N:2);

Writeln(F2,'  Погрешность E=', E:10);

Writeln(F2,'  Номер    Коэффициенты прямой');

Writeln(F2,'  прямой   A        B        C');

for i:=1 to N do

 begin

  write(F2,'   ',i:2);

  for j:=1 to 3 do

    write(F2,' ', ABC[i,j]:8:3);

  Writeln(F2);

 end;

 if K<>0

  then

  (* Есть пары параллельных прямых  *)

   begin

    Writeln(F2);

    Writeln(F2,'    РЕЗУЛЬТАТЫ ');

    Writeln(F2,'       Коэффициенты');

    Writeln(F2,'          прямых            Расстояния');

    Writeln(F2,'   A         B       C');

    for i:=1 to K do

     begin

      i1:=NomPr[i,1];

      for j:=1 to 3 do

      write(F2, ABC[i1,j]:8:3);

      writeln(F2,'   ', R[i]:8:3);

      writeln(F2);

      writeln(F2)

     end;

    writeln(F2);

    writeln(F2,'  Наибольшее расстояние  ' );

    writeln(F2,' от оси X до прямой №',imax1:2,

         ' с коэффициентами');

    writeln(F2,'   A         B      C ');

    for j:=1 to 3 do

      write(F2, ABC[imax1,j]:8:3);

    writeln(F2);

    writeln(F2)

   end(*then*)

  else

  (* Нет параллельных прямых   *)

   writeln(F2,'  Параллельных прямых нет')

  end{if_K}

 else

  (* Недопустимое значение E*)

  begin

   writeln('Недопустимое значение E в файле'+InFile);

   writeln('Нажмите любую клавишу для завершения...');

   Ch:=ReadKey;

   ClrScr

  end

 end(*if(E>0)*)

 else

  (* Недопустимое значение N*)

  begin

   writeln('Недопустимое значение N в файле'+InFile);

   writeln('Нажмите любую клавишу для завершения...');

   Ch:=ReadKey;

   ClrScr

  end;

 (*Закрытие файлов ввода и вывода*);

 Close(F2);

 Close(F1)

end.

5.  Испытания программы

  Испытания программы проводятся на контрольных примерах. Первый контрольный пример содержит данные, приведенные в 1. Результаты выполнения программы на заданном наборе исходных данных должны совпадать с аналитическим решением, полученным в 1.

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

Пример 1

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

5

0.1

0 5 5

0 -4 1

2 3 0

0 -5 15

0 7 -14

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

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

  Количество прямых N= 5

  Погрешность E= 1.000E-01

  Номер    Коэффициенты прямой

  прямой   A        B        C

    1    0.000    5.000    5.000

    2    0.000   -4.000    1.000

    3    2.000    3.000    0.000

    4    0.000   -5.000   15.000

    5    0.000    7.000  -14.000

    РЕЗУЛЬТАТЫ

       Коэффициенты

          прямых            Расстояния

   A         B       C

   0.000   5.000   5.000      1.000

   0.000  -4.000   1.000      0.250

   0.000  -5.000  15.000      3.000

   0.000   7.000 -14.000      2.000

  Наибольшее расстояние 

 от оси X до прямой № 4 с коэффициентами

   A         B      C

   0.000  -5.000  15.000

Пример 2

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

5

0.01

4 7 12

2 3 8

1 0 3

5 9 0

0 0 3

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

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

  Количество прямых N= 5

  Погрешность E= 1.000E-02

  Номер    Коэффициенты прямой

  прямой   A        B        C

    1    4.000    7.000   12.000

    2    2.000    3.000    8.000

    3    1.000    0.000    3.000

    4    5.000    9.000    0.000

    5    0.000    0.000    3.000

  Параллельных прямых нет

6.  Краткая характеристика программы

  Наименование программы: Main_Kursrab

  Назначение программы: служит для поиска прямых, параллельных оси X, и вычисления наибольшего расстояния между прямой и осью.

7.  Заключение

  Программа отлажена в дисплейном классе и функционирует без сбоев.