Input/Output for lines of text: Difference between revisions
Content added Content deleted
(Added FreeBASIC) |
(Added Algol W) |
||
| Line 45: | Line 45: | ||
OD |
OD |
||
</lang> |
</lang> |
||
=={{header|ALGOL W}}== |
|||
<lang algolw>begin |
|||
% outputs line plus a newline % |
|||
procedure showLine ( string(80) value line ); write( line ); |
|||
string(80) line; |
|||
integer lineCount; |
|||
read( lineCount ); |
|||
for lineNumber := 1 until lineCount do begin |
|||
read( line ); |
|||
showLine( line ) |
|||
end for_lineNumber |
|||
end.</lang> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |
||