langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Memory-layout-of-a-data-structure/Pascal/memory-layout-of-a-data-structure.pascal
+++ b/Task/Memory-layout-of-a-data-structure/Pascal/memory-layout-of-a-data-structure.pascal
@ -0,0 +1,21 @@
+program memoryLayout;
+
+type
+  T_RS232 = (
+    carrier_detect,
+    received_data,
+    transmitted_data,
+    data_terminal_ready,
+    signal_ground,
+    data_set_ready,
+    request_to_send,
+    clear_to_send,
+    ring_indicator
+  );
+
+var
+  Signal: bitpacked array[T_RS232] of boolean;
+
+begin
+  Signal[signal_ground] := true;
+end.