Задача может и где-то и звучала, но я ищу более "эллигантный" подход. О критерии выпуклости помню только, то что векторное произведение векторов сторон должно быть одного знака...От этого и исходил в данном коде(еще, кстати не приятно, ведь, если мне даны только координаты (X,Y), то векторное произведение равно X1*Y2+X2*Y1 ??? ):
Код
Program Lab9;
Uses CRT;
Procedure NewVector(Var a1,b1,a2,b2:integer);
begin
a1:=a2-a1; b1:=b2-b1;
end;
Function VectPr(a1,b1,a2,b2:integer):integer;
begin
VectPr:=a1*b2+a2*b1;
end;
Var
x1,y1,x2,y2,x3,y3,x4,y4:integer;
Const
Text='vvedite coordinati X,Y(cherez probel) tochki#';
Begin
ClrScr;
Textcolor(yellow);
GotoXY(1,3);
Writeln('Program for Lab9');
writeln;
Writeln(Text,'1:');
readln(x1,y1);
Writeln(Text,'2:');
readln(x2,y2);
NewVector(x1,y1,x2,y2);
Writeln(Text,'3:');
readln(x3,y3);
NewVector(x2,y2,x3,y3);
Writeln(Text,'4:');
readln(x4,y4);
NewVector(x3,y3,x4,y4);
NewVector(x4,y4,x1,y1);
TextColor(white);
Writeln;
if VectPr(x1,y1,x2,y2)>0 Then
if (VectPr(x3,y3,x4,y4)>0) AND (VectPr(x4,y4,x1,y1)>0) Then
if VectPr(x1,y1,x2,y2)>0 Then
Writeln('chetirehugolnik vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else
if (VectPr(x3,y3,x4,y4)<0) AND (VectPr(x4,y4,x1,y1)<0) Then
if VectPr(x1,y1,x2,y2)<0 Then
Writeln('chetirehugolnik vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else Writeln('chetirehugolnik ne vipucliy');
readln;
Uses CRT;
Procedure NewVector(Var a1,b1,a2,b2:integer);
begin
a1:=a2-a1; b1:=b2-b1;
end;
Function VectPr(a1,b1,a2,b2:integer):integer;
begin
VectPr:=a1*b2+a2*b1;
end;
Var
x1,y1,x2,y2,x3,y3,x4,y4:integer;
Const
Text='vvedite coordinati X,Y(cherez probel) tochki#';
Begin
ClrScr;
Textcolor(yellow);
GotoXY(1,3);
Writeln('Program for Lab9');
writeln;
Writeln(Text,'1:');
readln(x1,y1);
Writeln(Text,'2:');
readln(x2,y2);
NewVector(x1,y1,x2,y2);
Writeln(Text,'3:');
readln(x3,y3);
NewVector(x2,y2,x3,y3);
Writeln(Text,'4:');
readln(x4,y4);
NewVector(x3,y3,x4,y4);
NewVector(x4,y4,x1,y1);
TextColor(white);
Writeln;
if VectPr(x1,y1,x2,y2)>0 Then
if (VectPr(x3,y3,x4,y4)>0) AND (VectPr(x4,y4,x1,y1)>0) Then
if VectPr(x1,y1,x2,y2)>0 Then
Writeln('chetirehugolnik vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else
if (VectPr(x3,y3,x4,y4)<0) AND (VectPr(x4,y4,x1,y1)<0) Then
if VectPr(x1,y1,x2,y2)<0 Then
Writeln('chetirehugolnik vipucliy')
else Writeln('chetirehugolnik ne vipucliy')
else Writeln('chetirehugolnik ne vipucliy');
readln;
Вообщем помогите мне найти, более лаконичное решение, или хотя бы какие есть еще критерии выпуклости....
...
