не знаю как делать?

[Владимир_король]

помогите решить задачу в Turbo-Pascal.
Вот условия:

Даны действительные числа x и y, определить принадлежит ли точка с координатами следующей области: параллелограмм с координатами вершин
(-0.5;0) (0;1) (0.5;0) (0;-1).

Заранее спасибо большое!!!

[Google2010]

готов помочь! icq: 553-566-17[девять] ! недорого!

[Владимир_король]

Сообщение от Google2010

готов помочь! icq: 553-566-17[девять] ! недорого!

а че бескорыстно нельзя помочь с одной задачкой?

[D61C76h]

Если еще нужно то у меня код завалялся:

type
 TPoint=record
        x,y:Real;
        end;
 TPol=array [0..3] of TPoint;

var n:integer;
    Pol:TPol;       //массив, хранящий координаты параллелограмма
    x, y:Real;      //координаты точки
    flag:Boolean;

function InPoly(xp,yp:Real; kol:integer):boolean;
var i,j:integer;
    flag:boolean;
begin
 flag:=false;
 i:=0;
 j:=kol-1;
 while i<kol do
  begin
   if ((((Pol[i].Y<=yp)and(yp<Pol[j].Y))or((Pol[j].Y<=yp)and
    (yp<Pol[i].Y)))and(xp>(Pol[j].X-Pol[i].X)*(yp-Pol[i].Y)/
    (Pol[j].Y-Pol[i].Y)+Pol[i].X))
     then flag:=not flag;
   j:=i;
   inc(i);
  end;
 InPoly:=flag;
end;

begin

    n := 4;    //Кол-во точек (параллелограм = 4)
    // Заполнения массива точек параллелограмма значениями
    Pol[0].x := -0.5; Pol[0].y := 0;
    Pol[1].x := 0;    Pol[1].y := 1;
    Pol[2].x := 0.5;  Pol[2].y := 0;
    Pol[3].x := 0;    Pol[3].y := -1;
    Writeln('Vvedite tochku (x y): ');   // ввод координат точки
    Read(x); Readln(y);
    flag := InPoly(x, y, n);
    if flag then Writeln('Vhodit!!!')
     else Writeln('Ne vhodit!!!');
    Readln;

end.

[Владимир_король]

Сообщение от D61C76h

Если еще нужно то у меня код завалялся:

type
 TPoint=record
        x,y:Real;
        end;
 TPol=array [0..3] of TPoint;

var n:integer;
    Pol:TPol;       //массив, хранящий координаты параллелограмма
    x, y:Real;      //координаты точки
    flag:Boolean;

function InPoly(xp,yp:Real; kol:integer):boolean;
var i,j:integer;
    flag:boolean;
begin
 flag:=false;
 i:=0;
 j:=kol-1;
 while i<kol do
  begin
   if ((((Pol[i].Y<=yp)and(yp<Pol[j].Y))or((Pol[j].Y<=yp)and
    (yp<Pol[i].Y)))and(xp>(Pol[j].X-Pol[i].X)*(yp-Pol[i].Y)/
    (Pol[j].Y-Pol[i].Y)+Pol[i].X))
     then flag:=not flag;
   j:=i;
   inc(i);
  end;
 InPoly:=flag;
end;

begin

    n := 4;    //Кол-во точек (параллелограм = 4)
    // Заполнения массива точек параллелограмма значениями
    Pol[0].x := -0.5; Pol[0].y := 0;
    Pol[1].x := 0;    Pol[1].y := 1;
    Pol[2].x := 0.5;  Pol[2].y := 0;
    Pol[3].x := 0;    Pol[3].y := -1;
    Writeln('Vvedite tochku (x y): ');   // ввод координат точки
    Read(x); Readln(y);
    flag := InPoly(x, y, n);
    if flag then Writeln('Vhodit!!!')
     else Writeln('Ne vhodit!!!');
    Readln;

end.

спасибо огромное !!!!!!!!!!!