Input/Output for lines of text: Difference between revisions
Added Delphi example
(Added Wren) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 143:
doStuff(readln.idup);
}</lang>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
<lang Delphi>
program Output_for_Lines_of_Text;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
function QueryIntNumber(): Integer;
var
val: string;
begin
Result := 0;
repeat
Writeln('Digite a number(Enter to confirm):');
Readln(val);
if not TryStrToInt(val, Result) then
begin
Writeln('"', val, '" is not a valid number.');
Continue;
end;
if Result <= 0 then
begin
Writeln('"', val, '" must be greater then 0');
Continue;
end;
until Result > 0;
end;
var
n_lines, i: integer;
lines, line: string;
begin
lines := '';
n_lines := QueryIntNumber;
for i := 1 to n_lines do
begin
Readln(line);
if i > 1 then
lines := lines + #10;
lines := lines + line;
end;
Writeln(lines);
Readln;
end.</lang>
{{out}}
<pre>
Digite a number(Enter to confirm):
3
hello
hello world
Pack my Box with 5 dozen liquor jugs
hello
hello world
Pack my Box with 5 dozen liquor jugs
</pre>
=={{header|Factor}}==
| |||