tasks a-s

Task/Reverse-a-string/Pascal/reverse-a-string-1.pascal

@@ -0,0 +1,9 @@
+{ the result array must be at least as large as the original array }
+procedure reverse(s: array[min .. max: integer] of char, var result: array[min1 .. max1: integer] of char);
+ var
+  i, len: integer;
+ begin
+  len := max-min+1;
+  for i := 0 to len-1 do
+   result[min1 + len-1 - i] := s[min + i]
+ end;

Task/Reverse-a-string/Pascal/reverse-a-string-2.pascal

@@ -0,0 +1,10 @@
+{Copy and paste it in your program}
+function revstr(my_s:string):string;
+    var out_s:string;
+    ls,i:integer;
+    begin
+    ls:=length(my_s);
+    for i:=1 to ls do
+    out_s:=out_s+my_s[ls-i+1];
+    revstr:=out_s;
+    end;

Task/Reverse-a-string/Pascal/reverse-a-string-3.pascal

@@ -0,0 +1,12 @@
+function reverse(s:string):string;
+var i:integer;
+var tmp:char;
+begin
+    for i:=1 to length(s) div 2 do
+      begin
+       tmp:=s[i];
+       s[i]:=s[length(s)+1-i];
+       s[length(s)+1-i]:=tmp;
+       reverse:=s;
+      end;
+end;