4) Вывод координат первого осколка без изменений на TMemo2.

5) Нахождение точки удара и расчёт разницы координат для параллельного переноса.

6) Вывод выходных данных на TMemo2.

7) Отображение выходных осколков на Image2 с помощью графического рисунка

4.2 Защита от ошибок

Защитой от ошибок в программе происходит в такой последовательности:

1) Проверка количества введенных осколков.

2) Проверка на наличие осколков с нулевой площадью.

3) Создание координатных осей и проверка сторон осколков на параллельность.

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

5) Нахождение суммы площадей всех введенных осколков.

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

5. Руководство пользователя

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

1. Откройте входной файл (input.txt и TOSHONADO.txt).

2. Вызовите процедуру расчета (команда «Меню->Выполнить» в главном меню или кнопка на панели инструментов).

3. Выход из программы реализуется командой «Меню->Выход» в главном меню или кнопка на панели задач.

Вывод

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

Литература

1. Т. Рюттен, Г. Франкен. Турбо Паскаль 6.0. Торгово-издательськое бюро BHV. Грифон. - К.: 1992. - 235 с.

2. Т. П. Караванова. Основи алгоритмізації та програмування. Форум. - К.: 2002. - 286 с.

3. И.Скляр. Вивчаємо мову программування PASCAL. http://distance.edu.vn.ua/metodic/pascal/

4. Будникова Н.А. Обучающий комплекс по программированию на языке ПАСКАЛЬ http://petrsu.ru/Chairs/IMO/pascal/

5. Потопахин В. Turbo Pascal.Решение сложных задач.БХВ-Петербург. С.-Пб.:2006. – 194 с.

Приложение А. Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Menus, MUNit;

type

TForm1 = class(TForm)

Vv: TMemo;