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

(oskolok[2].Y-oskolok[1].Y)*oskolok[1].X));

{Рисуем треугольники, которые ввёл пользователь на Image1}

Image1.Canvas.Pen.Color:=Random(4000000); // Выбираемцветлиний

Image1.Canvas.Pen.Style :=psInsideFrame; // Выбираемстильлиний

Image1.Canvas.MoveTo(20+oskolok[1].X,126-oskolok[1].Y); //Движемсякнужнойточке

Image1.Canvas.LineTo(20+oskolok[2].X,126-oskolok[2].Y); //Соединяемлиниейдветочки

Image1.Canvas.MoveTo(20+oskolok[2].X,126-oskolok[2].Y); //Движемсякнужнойточке

Image1.Canvas.LineTo(20+oskolok[3].X,126-oskolok[3].Y); //Соединяемлиниейдветочки

Image1.Canvas.MoveTo(20+oskolok[3].X,126-oskolok[3].Y); //Движемсякнужнойточке

Image1.Canvas.LineTo(20+oskolok[1].X,126-oskolok[1].Y); //Соединяемлиниейдветочки

{Проверяем сколько осколков ввёл пользователь(их должно быть не меньше четырёх)}

if N<4 then begin

result := false;

Application.MessageBox('Простите, но количество треугольников слишком мало'+

'(меньше 4)','Ошибка',MB_OK+MB_ICONError); //Выводим сообщение об ошибке

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

exit;

end;

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

If oskolok[1].X = oskolok[2].X then begin

if oskolok[2].X = oskolok[3].X then begin

Application.MessageBox('Простите, но площадь одного из треугольников равна нулю'

,'Ошибка',MB_OK+MB_ICONError); // Выводим сообщение об ошибке

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

exit;

end;

end;

If oskolok[1].Y = oskolok[2].Y then begin

if oskolok[2].Y = oskolok[3].Y then begin