Форум: "Потрепаться";
Поиск по всему сайту: 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.027 c
3-32633           KaPaT                 2002-03-18 20:40  2002.04.11  
Помогите с легким вопросом!


1-32806           sammy                 2002-04-01 08:07  2002.04.11  
GetWinFlags


1-32900           Neox                  2002-03-29 21:26  2002.04.11  
Системное Время


1-32836           Goblinus              2002-03-27 21:18  2002.04.11  
Опять эмулирование клавиш...


14-32966          FLIZ                  2002-03-04 15:21  2002.04.11  
Кто сталкивался с такой проблемой после установки Офиса 2000?