Курсовая, Типовые задачи Опции

[gnome]

Люди помогите плизз! Просеял курсовую! Надо до завтра 20 задач налабать, а я в Pascale ваще бамбук! Без курсовой не допустят до экзамена. Надеюсь тут есть типы которые в совершенстве владеют этой штукой, вы моя последняя надежда, буду выкладывать по 1-ой задаче за определенный промежуток времени. Заранее благодарю!

Вот первая из них:
для данных областей составить линейную проекцию, которая печатает true, если точка с координатами (x;y) принадлежит закрашенной области и false в противоположном случае.

[ramzes]

вот держи.
См личку.

PROGRAM PointInTriang;

TYPE
  TPoint = record
			 X,Y : integer;
		   end;
  TTriArr = array [1..3] of TPoint;

VAR
  Triang : TTriArr;
  i,x,y	: integer;

function InTriang(x,y : integer; Tr : TTriArr) : boolean;
  function PR(i,j : integer) : boolean;
	begin
	  PR:=((x-Tr[i].X)*(Tr[j].Y-Tr[i].Y))>((Tr[j].X-Tr[i].X)*(y-Tr[i].Y));
	end;
begin
  InTriang:=((pr(1,2))=(pr(2,3))) and ((pr(1,2))=(pr(3,1)))
end;

BEGIN
  writeln('Input coopdinats of triangular:');
  for i:=1 to 3 do
	begin
	  writeln('point ',i);
	  write('X:');
	  readln(Triang[i].X);
	  write('Y:');
	  readln(Triang[i].Y);
	end;
  writeln('Input coopdinats of point:');
  write('X:');
  readln(x);
  write('Y:');
  readln(y);
  writeln(InTriang(x,y,Triang));
  readln
END.