all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Tokenize-a-string/Pascal/tokenize-a-string.pascal
+++ b/Task/Tokenize-a-string/Pascal/tokenize-a-string.pascal
@ -0,0 +1,17 @@
+program TokenizeString;
+
+{$mode objfpc}{$H+}
+
+const
+  CHelloStr = 'Hello,How,Are,You,Today';
+var
+  I: Integer;
+  VResult: string = '';
+begin
+  for I := 1 to Length(CHelloStr) do
+    if CHelloStr[I] = ',' then
+      VResult += LineEnding
+    else
+      VResult += CHelloStr[I];
+  WriteLn(VResult);
+end.