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

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

{Находим длины сторон треугольников, которые паралельны осям OX}

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

nomervershiny:=3;

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

end;

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

nomervershiny:=1;

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

end;

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

nomervershiny:=2;

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

end;

{Находим длины сторон треугольников, которые паралельны осям OУ}

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

nomervershiny:=3;

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

end;

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

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

nomervershiny:=1;

end;

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

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

nomervershiny:=2;

end;

{Находим разницы координат вершин для паралельного переноса}

razX:= oskolok[nomervershiny].X-osnX;