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

oskolok[3].X:=StrToInt(Vv.Lines[4]);

oskolok[3].Y:=StrToInt(Vv.Lines[5]);

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.Canvas.Pen.Color:=clBlue; //Задаёмцветрисункуна 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);

//////////XXX

{Находим координаты точки удара}

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

nomervershiny:=3;

osnX:= oskolok[3].X;

osnY:=oskolok[3].Y;

l1:=l1+Abs(oskolok[2].Y-oskolok[1].Y);

end;

If (oskolok[2].X = oskolok[3].X) then begin

l1:=l1+Abs(oskolok[3].Y-oskolok[2].Y);

nomervershiny:=1;

osnX:= oskolok[1].X;

osnY:=oskolok[1].Y;

end;

If (oskolok[1].X = oskolok[3].X) then begin