Middle three digits: Difference between revisions

Content added Content deleted
(Added EasyLang implementation)
Line 2,357: Line 2,357:
=={{header|Delphi}}==
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Middle_three_digits#Pascal Pascal].
See [https://rosettacode.org/wiki/Middle_three_digits#Pascal Pascal].

=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
func midThreeDigits num . result$ .
trueNumber$ = abs num
if (len trueNumber$ < 3) or (len trueNumber$ mod 2 = 0)
result$ = "error"
else
result$ = substr trueNumber$ ((len trueNumber$ - 3) / 2 + 1) 3
.
.
numbers[] = [ 123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345 1 2 -1 -10 2002 -2002 0 ]
for i in numbers[]
call midThreeDigits i result$
print result$
.
</syntaxhighlight>
{{out}}
<pre>
123
234
345
654
000
000
123
100
100
234
error
error
error
error
error
error
error
</pre>


=={{header|Eiffel}}==
=={{header|Eiffel}}==