pascal help

[Tiko11]

юди помогите, надо сделать так, чтобы когда вводишь число которое вхоидт в треугольник оно выводило что точнка принадлежит, а если нет то непринадлежит. формула y=kx+b

програму в турбу поскале

вот сам треугольник

http://imageshack.us/photo/my-images...011174335.jpg/

[Holywar]

404 Not Found

 

nginx/0.8.37

 

gj

[jiukan]

мда

[t0rmenT]

нехуй пары проёбывать 

[Гость k1llalldjs]

как бы стандартная задача абсолютно,гугл

[t0rmenT]

непомню...но вроде что-то стороны треугольника запиши и типа там центральную точку с неё до эти стороны входит или типа того бла бла бла....потом я спать лёг на паре 

[Tiko11]

vo http://imageshack.us/photo/my-images/7/161011174335.jpg/

[f1ntick]

на какой это гавнотелефон сфотал?

[Гость]

число в системе координат?

[Tiko11]

на какой это гавнотелефон сфотал?

simens c65

[ISyaQ]

ну для начала нужно составить уравнения прямых, на которых лежат стороны треуголника

 

подсказка: одна из прямых - это x=-3

[ISyaQ]

1:  х=-3

2:  у=-2/5х+4

3:  у=х-2

 

дается некая точка А(Х;У)

для того чтобы точка находилась внутри треугольника необходимо выполнение системы условий:

|  Х>=-3

|  Y<=-2/5*X+4

|  Y>=X-2

 

 

блядопрога

 

program blyeasd;

var

  X,Y:integer;

begin

  writeln('Hello, world');

  writeln('Vvedite koordinati tochki');

  write('X= ');

  readln(X);

  writeln('Y= ');

  readln(Y);

  if X>=-3 then

    if Y<=-0.4*X+4 then

        if Y>=X-2 then

          writeln('Graz!!!  Tochka prinadlezhit treugolniku!')

        else writeln('Hui vam, a ne tochka v treugolnike!');

    else writeln('Mimo, povezet v sleduyuschiy raz :p');

  else writeln('XepoBblU Tbl sniper');

 

  writeln('GGWP ofc btw rly!!');

end.

 

[dinkelan]

:pray:  как про. хелло ворлд тащит 

[Tiko11]

спс биг.