ページの中央に単語を表示 - Pascal

Question

私は非常に簡単な質問があります。 Pascalで書かれている私のコードを見てのt：

Program Example; 
Begin 
Writeln('Question'); 
Readln; 
End. 

私はそれを行うにはどのように、ページの真ん中に「質問」単語を表示したいですか？このような

Answer 1

おそらく何か（私はあなたが実際にDelphiや互換性のあるものを使用していると仮定）は：

var 
    csbi: TConsoleScreenBufferInfo; 
    crd: TCoord; 
    h: THandle; 

const 
    S = 'Hello World!'; 

begin 
    h := GetStdHandle(STD_OUTPUT_HANDLE); 
    GetConsoleScreenBufferInfo(h, csbi); 
    crd.Y := csbi.dwSize.Y div 2; 
    crd.X := (csbi.dwSize.X - length(S)) div 2; 
    SetConsoleCursorPosition(h, crd); 
    Write(S); 
    Readln; 

Answer 2

あなたは私のConsoleユニットを試みることができます。それはこれといくつかのことをもっと行います。それは機能を表示する簡単なデモが付属しています。

Answer 3

コンソールモードを80列×25行（ライン）で使用している場合は、さらに簡単に行うことができます。空想的なコードは必要ありません.12行目を仮定します（25 div 2は12.5なので、私は12を使用します）。私はこのためにBorland Pascalを使用していることに注意してください。

Uses CRT; 

Const 
    YourText = 'Hello World!'; 

Begin 
    GotoXY(40 - Length(YourText) div 2, 12); 
    WriteLn(YourText); 
End. 

希望に役立ちます。