AND&OR

← →
Blackweber (2002-03-03 01:25) [0]

Тех кто особо разбирается в AND&OR прошу помочь. Вот нужно сделать лабу двумя методами.Суть определить вхождение точки в фигуру.
<img src= http://delphi.mastak.ru/download/347.JPG>
Через OR я сделал, а вот про AND вначале думал надо 13 вариантов, а теперь думаю это вообще нельзя сделать.

Кому интересно вот код на Паскале с OR:

uses crt;
var x,y:real;n:integer;
begin
clrscr;
Writeln("ЏаЁ ўлЎ®аҐ 1-®Ј® ў аЁ в § ¤ з Ўг¤Ґв аҐиҐ ЇаЁ Ї®¬®йЁ OR, 2-®Ј® ў аЁ в - AND");
readln(n);
case N of
1: begin
write("‚ўҐ¤ЁвҐ X: ");
readln(x);
write("‚ўҐ¤ЁвҐ Y: ");
readln(y);
if (sqr(x-4)+sqr(y-4))<9 then
begin
if (y>19-3*x)or(y<13-3*x)or(y>3*x-5)or(y<3*x-11)
then writeln("’®зЄ ЇаЁ ¤«Ґ¦Ёв дЁЈгаҐ.")
else writeln("’®зЄ Ґ ЇаЁ ¤«Ґ¦Ёв дЁЈгаҐ.")
end else writeln("’®зЄ Ґ ЇаЁ ¤«Ґ¦Ёв дЁЈгаҐ.")
end;
2: begin
writeln("Not ready!")
end;
end;
readln
end.

AND&OR Найти похожие ветки