#include <iostream.h>
bool amafree(float x1, float x2, float x3, float x4, float y1, float y2, float y3, float y4, float dotx, float doty)
{float x[4],y[4],temp;
for(int i=0;i<4;i++)
for(int j=0;j<3;j++)
{
if(x[j]<x[j+1])
temp=x[j];
x[j]=x[j+1];
x[j+1]=temp;
temp=y[j];
y[j]=y[j+1];
y[j+1]=temp;
}
if (y[2]<y[3]) {temp=x[2];
x[2]=x[3];
x[3]=temp;
temp=y[2];
y[2]=y[3];
y[3]=temp; }//теперь мы упорядочили точки прямоугольника, чтобы понимать его как у меня на рисунке
x1=x[0];
x2=x[1];
x3=x[2];
x4=x[3];
y1=y[0];
y2=y[1];
y3=y[2];
y4=y[3];//так мне удобнее, потому что часть условий уже написал без всяких массивов
float k[10];
k[0]=(x1-x2)/(y1-y2);
k[1]=(x1-x3)/(y1-y3);
k[2]=(x3-x4)/(y3-y4);
k[3]=(x2-x4)/(y2-y4);//коэффициенты прямых, проходящих по сторонам прямоугольника
// if(k[0]!=k[2]||k[1]!=k[3]) {cout<<"Eto dazhe ne parallelogramm\n";return false;}//условие параллельности противолежащих сторон
// if(k[0]!=1/k[1]||k[2]!=1/k[3]) {cout<<"Eto dazhe ne pryamougolnik\n";return false;}//условие перпендикулярности смежных сторон
if(dotx<x[1])&&(dotx<x[2])&&(dotx<x3)&&(dotx<x4)||(doty<y1)&&(doty<y2)&&(doty<x3)&&(doty<x4)||//лежит точно вне
(dotx>1)&&(dotx>x2)&&(dotx>x3)&&(dotx>x4)||(doty>y1)&&(doty>y2)&&(doty>x3)&&(doty>x4)||//лежит точно вне
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[0]*dotx<0)||//нижний левый треугольник
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[1]*dotx>0)||//верхний левый
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[2]*dotx>0)||//верхний праввый
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[3]*dotx<0)//нижний правый
return false;
return true;
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
writeln('c-среднее число');
end.
#include <iostream.h>
bool amafree(float x1, float x2, float x3, float x4, float y1, float y2, float y3, float y4, float dotx, float doty)
{float x[4],y[4],temp;
for(int i=0;i<4;i++)
for(int j=0;j<3;j++)
{
if(x[j]<x[j+1])
{
temp=x[j];
x[j]=x[j+1];
x[j+1]=temp;
temp=y[j];
y[j]=y[j+1];
y[j+1]=temp;
}
}
if (y[2]<y[3]) {temp=x[2];
x[2]=x[3];
x[3]=temp;
temp=y[2];
y[2]=y[3];
y[3]=temp; }//теперь мы упорядочили точки прямоугольника, чтобы понимать его как у меня на рисунке
x1=x[0];
x2=x[1];
x3=x[2];
x4=x[3];
y1=y[0];
y2=y[1];
y3=y[2];
y4=y[3];//так мне удобнее, потому что часть условий уже написал без всяких массивов
float k[10];
k[0]=(x1-x2)/(y1-y2);
k[1]=(x1-x3)/(y1-y3);
k[2]=(x3-x4)/(y3-y4);
k[3]=(x2-x4)/(y2-y4);//коэффициенты прямых, проходящих по сторонам прямоугольника
// if(k[0]!=k[2]||k[1]!=k[3]) {cout<<"Eto dazhe ne parallelogramm\n";return false;}//условие параллельности противолежащих сторон
// if(k[0]!=1/k[1]||k[2]!=1/k[3]) {cout<<"Eto dazhe ne pryamougolnik\n";return false;}//условие перпендикулярности смежных сторон
if(dotx<x[1])&&(dotx<x[2])&&(dotx<x3)&&(dotx<x4)||(doty<y1)&&(doty<y2)&&(doty<x3)&&(doty<x4)||//лежит точно вне
(dotx>1)&&(dotx>x2)&&(dotx>x3)&&(dotx>x4)||(doty>y1)&&(doty>y2)&&(doty>x3)&&(doty>x4)||//лежит точно вне
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[0]*dotx<0)||//нижний левый треугольник
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[1]*dotx>0)||//верхний левый
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[2]*dotx>0)||//верхний праввый
(dotx>x1)&&(dotx<x2)&&(dotx<x3)&&(dotx<x4)&&(doty-k[3]*dotx<0)//нижний правый
return false;
return true;
}
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.