fork(1) download
  1. program ideone;
  2. var a, b, c, d: boolean;
  3.  
  4. function F(a, b, c, d: boolean): boolean;
  5. //var p, q: boolean;
  6. begin
  7. //p := not (a or b) or c;
  8. //q := ((a and b) or c) = (d xor a);
  9. //F := not p or q;
  10. F := a or b or c or d;
  11. end;
  12.  
  13. begin
  14.  
  15. writeln('a b c d F');
  16. for a:= false to true do
  17. for b:=false to true do
  18. for c:=false to true do
  19. for d:=false to true do
  20. begin
  21. writeln(ord(a),' ',ord(b),' ',ord(c),' ',ord(d),' ',ord(F( a,b,c,d)));
  22. end;
  23. //writeln(F(a, b, c, d));
  24. end.
Success #stdin #stdout 0.01s 5308KB
stdin
Standard input is empty
stdout
a b c d F
0 0 0 0 0
0 0 0 1 1
0 0 1 0 1
0 0 1 1 1
0 1 0 0 1
0 1 0 1 1
0 1 1 0 1
0 1 1 1 1
1 0 0 0 1
1 0 0 1 1
1 0 1 0 1
1 0 1 1 1
1 1 0 0 1
1 1 0 1 1
1 1 1 0 1
1 1 1 1 1