Задача в паскале.определить входит ли в треугольник с заданными координатами начало координат. Опции

[serg]

Собственно в теме написано,помогите,желательно без функций.

[sheka]

Сумма площадей 3х треугольников, основы которых стороны заданого, а вершина - т(0;0) должна быть равной площади заданого. Почему без функций? с ними намного короче! Один раз вбили Герона и Пифагора - и все.

Сообщение отредактировано: sheka - 23.11.2009 22:20

[Unconnected]

Наверное, ты хотел написать > Задача в паскале.определить входит ли в треугольник с заданными координатами В начало координат.?

И я не совсем понял, а это как? Типа лежит ли одна его вершина в координате 0,0?

[sheka]

И я не совсем понял, а это как?

Сообщение отредактировано: sheka - 23.11.2009 22:52

[serg]

ну без функций потомучто препод потом спросит как я это делал)а я не знаю,картинку правильно нарисовал,можешь прогу написать?а то я с паскалем не дружу(

[sheka]

Ну до функций ты ведь знаешь? Вот и пиши. Если потом вдруг помирюсь с паскалем - напишу.

[serg]

ну надеюс твой способ с площадями верный)постораюсь решить,спасибо.Но если сам сделаешь её напиши пожалуйста)

[sheka]

Сделаю сразу же после того как твой вариант увижу.

[Unconnected]

Вот оно, воплощение извращения))

var koor:array[1..6] of integer;
    i,s:byte;

function chet(x,y:integer):byte;
begin
  if (x>0) and (y>0) then chet:=1;
  if (x>0) and (y<0) then chet:=2;
  if (x<0) and (y<0) then chet:=3;
  if (x<0) and (y>0) then chet:=4;
end;

begin
  writeln('Vvedite koordinati vershini #1');
  readln(koor[1],koor[2]);
  writeln('Vvedite koordinati vershini #2');
  readln(koor[3],koor[4]);
  writeln('Vvedite koordinati vershini #3');
  readln(koor[5],koor[6]);
  if (chet(koor[1],koor[2])<>chet(koor[3],koor[4])) and
  (chet(koor[3],koor[4])<>chet(koor[5],koor[6])) and
  (chet(koor[1],koor[2])<>chet(koor[5],koor[6])) then writeln('YES, of course')
                                                 else writeln('NO, it isn"t');
  readln;
end.

Без функций не получилось:)

Сообщение отредактировано: Unconnected - 23.11.2009 22:51

[serg]

ух...спасибо.попробую,работает?)))

[Unconnected]

Ну да, тут за неработающее ругают) Только по логике моей программы если сторона лежит на оси координат, то начало координат не лежит в треугольнике..

[sheka]

Вот оно, воплощение извращения))

А я не согласен!
При таком варианте там намного больше условий должно быть!

[Unconnected]

Блиииин я забыл, сейчас переделаю..

[sheka]

Ну да, тут за неработающее ругают)

Исправляй пока никто не видел!

[Unconnected]

Извращение, v.1.02

var koor:array[1..6] of integer;
    i,s:byte;

function chet(x,y:integer):byte;
begin
  if (x>0) and (y>0) then chet:=1;
  if (x>0) and (y<0) then chet:=2;
  if (x<0) and (y<0) then chet:=3;
  if (x<0) and (y>0) then chet:=4;
end;

begin
  writeln('Vvedite koordinati vershini #',1);
  readln(koor[1],koor[2]);
  writeln('Vvedite koordinati vershini #',2);
  readln(koor[3],koor[4]);
  writeln('Vvedite koordinati vershini #',3);
  readln(koor[5],koor[6]);
  if (chet(koor[1],koor[2])<>chet(koor[3],koor[4])) and
  (chet(koor[3],koor[4])<>chet(koor[5],koor[6])) and
  (chet(koor[1],koor[2])<>chet(koor[5],koor[6])) then writeln('YES, of course')
  else
    if (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=5)
    or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=7)
    or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=8)
    or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=10)
    then writeln('YES, of course')
    else writeln('NO,it isn"t...');
  readln;
end.

Только у меня четверти расположены не как в тригонометрическом круге, а традиционно, по часовой:)

Сообщение отредактировано: Unconnected - 23.11.2009 23:15

[sheka]

or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=7)

Сообщение отредактировано: sheka - 23.11.2009 23:30

[Unconnected]

всё, сдаюсь, Героны рулят))

[serg]

ну напишите хотябы через функцию но рабочуюю блин!))

[sheka]

всё, сдаюсь, Героны рулят))

Пифагоров забыл!


Добавлено через 1 мин.

ну напишите хотябы через функцию но рабочуюю блин!))

ну напишите хотябы не через функцию но самостоятельно блин!))

[Unconnected]

FATALITY!

var koor:array[1..6] of integer;
    i,s:byte;

function chet(x,y:integer):byte;
begin
  if (x>0) and (y>0) then chet:=1;
  if (x>0) and (y<0) then chet:=2;
  if (x<0) and (y<0) then chet:=3;
  if (x<0) and (y>0) then chet:=4;
end;

begin
  writeln('Vvedite koordinati vershini #',1);
  readln(koor[1],koor[2]);
  writeln('Vvedite koordinati vershini #',2);
  readln(koor[3],koor[4]);
  writeln('Vvedite koordinati vershini #',3);
  readln(koor[5],koor[6]);
  if (chet(koor[1],koor[2])<>chet(koor[3],koor[4])) and
  (chet(koor[3],koor[4])<>chet(koor[5],koor[6])) and
  (chet(koor[1],koor[2])<>chet(koor[5],koor[6])) then writeln('YES, of course')
  else
    if (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=5)
    or ((chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=7)
    and (chet(koor[1],koor[2])=1) or (chet(koor[3],koor[4])=1))
    or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=8)
    or ((chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=10)
    and (chet(koor[1],koor[2])=4) or (chet(koor[3],koor[4])=4))
    then writeln('YES, of course')
    else writeln('NO,it isn"t...');
    readln;
end.