Initial data commit

Task/Short-circuit-evaluation/Pascal/short-circuit-evaluation-1.pas

@@ -0,0 +1,41 @@
+program shortcircuit(output);
+
+function a(value: boolean): boolean;
+ begin
+  writeln('a(', value, ')');
+  a := value
+ end;
+
+function b(value:boolean): boolean;
+ begin
+  writeln('b(', value, ')');
+  b := value
+ end;
+
+procedure scandor(value1, value2: boolean);
+ var
+  result: boolean;
+ begin
+  {and}
+  if a(value1)
+   then
+    result := b(value2)
+   else
+    result := false;
+  writeln(value1, ' and ', value2, ' = ', result);
+
+  {or}
+  if a(value1)
+   then
+    result := true
+   else
+    result := b(value2)
+  writeln(value1, ' or ', value2, ' = ', result);
+ end;
+
+begin
+ scandor(false, false);
+ scandor(false, true);
+ scandor(true, false);
+ scandor(true, true);
+end.

Task/Short-circuit-evaluation/Pascal/short-circuit-evaluation-2.pas

@@ -0,0 +1,32 @@
+program shortcircuit;
+
+function a(value: boolean): boolean;
+ begin
+  writeln('a(', value, ')');
+  a := value;
+ end;
+
+function b(value:boolean): boolean;
+ begin
+  writeln('b(', value, ')');
+  b := value;
+ end;
+
+{$B-} {enable short circuit evaluation}
+procedure scandor(value1, value2: boolean);
+ var
+  result: boolean;
+ begin
+  result :=  a(value1) and b(value);
+  writeln(value1, ' and ', value2, ' = ', result);
+
+  result := a(value1) or b(value2);
+  writeln(value1, ' or ', value2, ' = ', result);
+ end;
+
+begin
+ scandor(false, false);
+ scandor(false, true);
+ scandor(true, false);
+ scandor(true, true);
+end.

Task/Short-circuit-evaluation/Pascal/short-circuit-evaluation-3.pas

@@ -0,0 +1,31 @@
+program shortcircuit(output);
+
+function a(value: boolean): boolean;
+ begin
+  writeln('a(', value, ')');
+  a := value
+ end;
+
+function b(value:boolean): boolean;
+ begin
+  writeln('b(', value, ')');
+  b := value
+ end;
+
+procedure scandor(value1, value2: boolean);
+ var
+  result: integer;
+ begin
+  result :=  a(value1) and_then b(value)
+  writeln(value1, ' and ', value2, ' = ', result);
+
+  result := a(value1) or_else b(value2);
+  writeln(value1, ' or ', value2, ' = ', result)
+ end;
+
+begin
+ scandor(false, false);
+ scandor(false, true);
+ scandor(true, false);
+ scandor(true, true);
+end.