標準入力からの入力を標準出力にコピーする

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう >

標準入力からの入力を標準出力にコピーする

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure main();

var

    s: String;

begin

    while (not Eof) do

    begin

        readln(s);

        writeln(s);

    end;

end;
begin

    main;

end.

実行結果

S:\>lesson067\Project1.exe

Hello,

Hello,

World!

World!

^Z