Контрольная работа: Анализ входного файла программы и вывод результатов в выходной файл

{Расчитываем координаты вершин после переноса}

oskolok[1].X:=oskolok[1].X-razX;

oskolok[1].Y:=oskolok[1].Y-razY;

oskolok[2].X:=oskolok[2].X-razX;

oskolok[2].Y:=oskolok[2].Y-razY;

oskolok[3].X:=oskolok[3].X-razX;

oskolok[3].Y:=oskolok[3].Y-razY;

{Выводим координаты осколков после перенесения в точку удара}

Vv2.Lines.Add(IntToStr(oskolok[1].X) + ' '+IntToStr(oskolok[1].Y)+' ' +

IntToStr(oskolok[2].X)+ ' '+IntToStr(oskolok[2].Y)+

' ' +

IntToStr(oskolok[3].X)+' '+IntToStr(oskolok[3].Y));

{Рисуем треугольники, после перемещения на Image2( они образуют прямоугольник)}

Image2.Canvas.MoveTo(20+oskolok[1].X,126-oskolok[1].Y);

Image2.Canvas.LineTo(20+oskolok[2].X,126-oskolok[2].Y);

Image2.Canvas.MoveTo(20+oskolok[2].X,126-oskolok[2].Y);

Image2.Canvas.LineTo(20+oskolok[3].X,126-oskolok[3].Y);

Image2.Canvas.MoveTo(20+oskolok[3].X,126-oskolok[3].Y);

Image2.Canvas.LineTo(20+oskolok[1].X,126-oskolok[1].Y);

end;

hh:=(l1/2)*(l2/2); //Находим площадь образовавшегося прямоугольника

{Проверяем на равенство сумму площадей треугольников и прямоугольника}

If hh<>sumploshadi then begin

Application.MessageBox('Площади НЕ равны','Ошибка',MB_OK); // Выводим сообщение о неравенстве площадей

bUTTon1.Enabled := False; // Блокируемкнопку

end;

end;

{Задаёмменю}

procedure TForm1.N2Click(Sender: TObject); // "Выход"