fork(1) download
copy 
  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. 	a := false;
  15. 	b := false;
  16. 	c := false;
  17. 	d := false;
  18. 	writeln('a b c d F');
  19. 	for a:= false to true do
  20. 		for b:=false to true do
  21. 			writeln('a = ', a);
  22. 	//writeln(F(a, b, c, d));
  23. 	writeln(ord(true));
  24. end.
Success #stdin #stdout 0s 5244KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
a b c d F
a = FALSE
a = FALSE
a = TRUE
a = TRUE
1
https://ideone.com/byzafd
language:
Pascal (fpc 3.0.4)
created:
4 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!