Анализ входного файла программы и вывод результатов в выходной файл (стр. 2 из 2)
{Находим сумму площадей всех введеных треугольников}
sumploshadi:=sumploshadi+Abs((1/2)*((oskolok[2].Y-
oskolok[1].Y)*oskolok[3].X+
(oskolok[1].X-oskolok[2].X)*oskolok[3].Y+
(oskolok[2].X-oskolok[1].X)*oskolok[1].Y-
(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
Application.MessageBox('Простите, но площадь одного из треугольников равна нулю'
,'Ошибка',MB_OK+MB_ICONError); // Выводим сообщение об ошибке
Button1.Enabled:=False; //Блокируемкнопку
exit;
end;
end;
{Создаём оси паралельности}
{Ось паралельности ОХ1 по левой стороне стола}
If (oskolok[1].X = oskolok[2].X) then begin
If (oskolok[3].X>oskolok[1].X) then begin
xx:=xx+1;
end;
end;
If (oskolok[2].X = oskolok[3].X) then begin
If (oskolok[1].X>oskolok[1].X) then begin
xx:=xx+1;
end;
end;
If (oskolok[1].X = oskolok[3].X) then begin
If (oskolok[2].X>oskolok[1].X) then begin
xx:=xx+1;
end;
end;
{Ось паралельности ОХ2 по правой стороне стола}
If (oskolok[1].X = oskolok[2].X) then begin
If (oskolok[3].X<oskolok[1].X) then begin
xx:=xx+1;
end;
end;
If (oskolok[2].X = oskolok[3].X) then begin
If (oskolok[1].X<oskolok[1].X) then begin
xx:=xx+1;
end;
end;
If (oskolok[1].X = oskolok[3].X) then begin
If (oskolok[2].X<oskolok[1].X) then begin
xx:=xx+1;
end;
end;
{Ось паралельности ОУ1 по нижней стороне стола}
If (oskolok[1].Y = oskolok[2].Y) then begin
If (oskolok[3].Y>oskolok[1].Y) then begin
xx:=xx+1;
end;
end;
If (oskolok[2].Y = oskolok[3].Y) then begin
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;
If (oskolok[1].Y = oskolok[2].Y) then begin
If (oskolok[3].Y<oskolok[1].Y) then begin
xx:=xx+1;
end;
end;
If (oskolok[2].Y = oskolok[3].Y) then begin
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]);
oskolok[2].Y:=StrToInt(Vv.Lines[3]);
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
l1:=l1+Abs(oskolok[1].Y-oskolok[3].Y);
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]);
oskolok[3].X:=StrToInt(Vv.Lines[i*6+4]);
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;
razY:= oskolok[nomervershiny].Y-osnY;
{Расчитываем координаты вершин после переноса}
oskolok[1].X:=oskolok[1].X-razX;
oskolok[1].Y:=oskolok[1].Y-razY;
oskolok[2].X:=oskolok[2].X-razX;
oskolok[2].Y:=oskolok[2].Y-razY;
oskolok[3].X:=oskolok[3].X-razX;
oskolok[3].Y:=oskolok[3].Y-razY;
{Выводим координаты осколков после перенесения в точку удара}
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( они образуют прямоугольник)}
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);
end;
hh:=(l1/2)*(l2/2); //Находим площадь образовавшегося прямоугольника
{Проверяем на равенство сумму площадей треугольников и прямоугольника}
If hh<>sumploshadi then begin
Application.MessageBox('Площади НЕ равны','Ошибка',MB_OK); // Выводим сообщение о неравенстве площадей
bUTTon1.Enabled := False; // Блокируемкнопку
end;
end;
{Задаёмменю}
procedure TForm1.N2Click(Sender: TObject); // "Выход"
begin
Application.Terminate;
end;
procedure TForm1.N4Click(Sender: TObject); // "Опрограмме"
begin
Form2.Show; // Открываем Form2
end;
procedure TForm1.N5Click(Sender: TObject); // "Обновить"
begin
Vv2.Lines.Clear; // Очищаем TMemo2
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); // Процедуразакрытия TForm1
begin
Application.Terminate;
end;
end.
Приложение Б. Результаты работы программы.
