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

[gnome]

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

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

[ramzes]

Т.е. задаем координаты вершин треугольника, затем вводим координаты точки и возвращаем true,
если точка в области и false, если нет.
Я правильно понял?

[gnome]

Да, напиши если сможешь плизз..

[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.

[klem4]

оффтоп

Ребята торопитесь, до завтра осталось 4 минуты )))


Добавлено, то есть уже все ... ничего не осталось))

ps Где курсач то "просеял"

[ramzes]

2 klem4
У меня еще 56минут есть

[gnome]

Большое спасибо ramzes! Я уж думал никто не ответит. Выкладываю следующее условие.

Грузовой автомобиль выехал из одного города в другой со скорость V1 км/ч, через t, и в этом же направлении выехал легковой автомобиль со скоростью V2 км/ч. Составить прогу определяющую догонит ли легковой автомобиль грузовой через L, после своего выезда.

Ramzes, премного благодарен Люди помогаем ну плизз! Срочно надо.

[gnome]

ps Где курсач то "просеял"

Тетрадку в колледже оставил, хоП! и нет её
Ктото свиснул..

[мисс_граффити]

на консультации можно сдать обычно.
так что, если еще актуально, реши задачу математически - я напишу код.