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

If (oskolok[1].Y<oskolok[1].Y) then begin

xx:=xx+1;

end;

end;

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

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

xx:=xx+1;

end;

end;

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)); //Выводимбезизмененийкоординатыосколковна TMemo2

end;

////////Конец цикла

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

If xx=n-2 then begin

Application.MessageBox(PCHar('Ощибка - треугольников с параллельными осям сторонами всего лишь:'+INtToStr(Xx+2)),0); // Выводим сообщение об ошибке

Button1.Enabled:=False;

end;

end;

procedure TForm1.Button1Click(Sender: TObject); //Процедуравыполнениярасчётовивыводаданных

begin

Vv2.Lines.Clear; // Очишаем TMemo2

Vv2.Lines.Add('Выполняем расчет'); // Начинаем выводить текст на TMemo2

{Выводим без изменений координаты первого осколка на TMemo2}

oskolok[1].X:=StrToInt(Vv.Lines[0]);

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

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