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

nomervershiny:=2;

osnX:= oskolok[2].X;

osnY:=oskolok[2].Y;

end;

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

l2:=l2+Abs(oskolok[1].X-oskolok[2].X);

nomervershiny:=3;

osnX:= oskolok[3].X;

osnY:=oskolok[3].Y;

end;

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

l2:=l2+Abs(oskolok[2].X-oskolok[3].X);

nomervershiny:=1;

osnX:= oskolok[1].X;

osnY:=oskolok[1].Y;

end;

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

l2:=l2+Abs(oskolok[1].X-oskolok[3].X);

nomervershiny:=2;

osnX:= oskolok[2].X;

osnY:=oskolok[2].Y;

end;

//////////////////////////

{Считываем координаты отрезков до изменений}

For i:=1 to n-1 do begin

oskolok[1].X:=StrToInt(Vv.Lines[i*6]);

oskolok[1].Y:=StrToInt(Vv.Lines[i*6+1]);

oskolok[2].X:=StrToInt(Vv.Lines[i*6+2]);

oskolok[2].Y:=StrToInt(Vv.Lines[i*6+3]);