Phrase reversals: Difference between revisions
Content added Content deleted
m (added a Task (bold) header.) |
No edit summary |
||
Line 497: | Line 497: | ||
"attesor edoc esarhp lasrever" |
"attesor edoc esarhp lasrever" |
||
"reversal phrase code rosetta"</pre> |
"reversal phrase code rosetta"</pre> |
||
=={{header|COBOL}}== |
|||
<lang COBOL> |
|||
program-id. phra-rev. |
|||
data division. |
|||
working-storage section. |
|||
1 phrase pic x(28) value "rosetta code phrase reversal". |
|||
1 wk-str pic x(16). |
|||
1 binary. |
|||
2 phrase-len pic 9(4). |
|||
2 pos pic 9(4). |
|||
2 cnt pic 9(4). |
|||
procedure division. |
|||
compute phrase-len = function length (phrase) |
|||
display phrase |
|||
display function reverse (phrase) |
|||
perform display-words |
|||
move function reverse (phrase) to phrase |
|||
perform display-words |
|||
stop run |
|||
. |
|||
display-words. |
|||
move 1 to pos |
|||
perform until pos > phrase-len |
|||
unstring phrase delimited space |
|||
into wk-str count in cnt |
|||
with pointer pos |
|||
end-unstring |
|||
display function reverse (wk-str (1:cnt)) |
|||
with no advancing |
|||
if pos < phrase-len |
|||
display space with no advancing |
|||
end-if |
|||
end-perform |
|||
display space |
|||
. |
|||
end program phra-rev. |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
rosetta code phrase reversal |
|||
lasrever esarhp edoc attesor |
|||
attesor edoc esarhp lasrever |
|||
reversal phrase code rosetta |
|||
</pre> |
|||
=={{header|D}}== |
=={{header|D}}== |