如何实现逻辑与门，或门，表决门程序的编写，？？？

Question

与门就是几个输入事件同时发生，输出事件才发生的门。
或门是输入事件一个发生，输出事件就发生的门，
表决门是 ，输入的n个事件中，至少有r个发生，输出事件才发生？
谢谢高手指点。

Answer 1

有五个复选框：
与：
    if checkbox1.checked and checkbox2.checked and checkbox3.checked and 
       checkbox4.checked and checkbox5.checked then 
       showmessage('与门发生');
或：
    if checkbox1.checked or checkbox2.checked or checkbox3.checked or
       checkbox4.checked orcheckbox5.checked then 
       showmessage('或门发生');
表决：复杂点了..

Answer 2

表决;
var i_Count:Integer;
begin
    i_Count:=0;
    if CheckBox1.checked then
       inc(i_Count);
    if CheckBox2.checked then
       inc(i_Count);
    if CheckBox3.checked then
       inc(i_Count);
    if CheckBox4.checked then
       inc(i_Count);
    if CheckBox5.checked then
       inc(i_Count);
    if i_Count>r then
       showmessage('表决门发生');
end;

Answer 3

首先是非常谢谢你的帮助，
我这里想做的“与门”的输入是不确定的，就是说输入的事件是个变量，且输入事件是个boolean 型变量，但只要点击与门符号的话，输入的事件就增加一个，而且使得输出的结果也是boolean型的