Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

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.



Donal_Graeme   (2002-03-03 03:07) [1]

A OR B = NOT (NOT (A) AND NOT (B))

надеюсь, поможет :-)



Blackweber   (2002-03-03 14:13) [2]

Вы картинку видели?
Нужно с помощью AND решить ту же самую задачу.



Anatoly Podgoretsky   (2002-03-03 15:21) [3]

У тебя вопрос про картинку или про OR/AND



Blackweber   (2002-03-03 21:40) [4]

У меня вопрос: можно ли решить задачу(на картинке) через AND



Anatoly Podgoretsky   (2002-03-03 21:48) [5]

Ну тебе же дали формулу преобразования



Mbo   (2002-03-04 06:40) [6]

ты обдумай логику решения, и запиши ее по английски, вот и будет счастье.
если (входит в круг) и не [(ниже одной прямой)и (ниже второй)
и (выше 3-ей прямой)и (выше 4-ой)]
[] -вхождение в ромб



Blackweber   (2002-03-04 21:45) [7]

TNX




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
1-32903           PlaZZma               2002-03-29 16:52  2002.04.11  
Как избавиться от мигания Image?


7-32998           gurin                 2002-01-18 05:18  2002.04.11  
Virtual drive


14-32948          Pete                  2002-03-04 09:33  2002.04.11  
New Component...


7-32994           А.Х.                  2002-01-15 18:34  2002.04.11  
Почему получаются каракули ?


3-32672           grabovsky             2002-03-20 16:33  2002.04.11  
увеличение строк в StringGrid