Middle three digits: Difference between revisions
Content added Content deleted
Jazzedpineda (talk | contribs) (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}}== |