如何獲得輸入多個char和longint在單個read（）中用空格分隔？

Question

我試過，但它給我的運行時錯誤106

var 
    a, c: char; 
    b, d: longint; 
begin 
    read(a, b, c, d); 
    write(a, ' ', b, ' ', c, ' ', d); 
end. 

輸入是

A 1 B 2 

Answer 1

由於@DavidHeffernan評價，並作爲@lurker解釋，你的代碼將無法正常工作，是。

假設你有一個知道單位Classes的TStringList類型（我想最近所有的人做）一FreePascal的版本，你可以做到以下幾點：

uses 
    Classes, SysUtils; 

procedure Test; 
var 
    a, c: Char; 
    b, d: Longint; 
    s: string; 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
    Writeln('Enter a char, a number, a char and a number again, separated by spaces:'); 
    // Read entire line 
    Readln(s); 

    // Split s into four entries in the string list 
    sl.Delimiter := ' '; 
    sl.DelimitedText := s; 
    if sl.Count >= 4 then 
    begin 
     a := sl[0][1];   // first string item, convert to char 
     b := StrToInt(sl[1]); // second string item, convert to integer 
     c := sl[2][1];   // third string item, convert to char 
     d := StrToInt(sl[3]); // fourth string item, convert to integer 
    end; 
    finally 
    sl.Free; 
    end; 
    Writeln(a, ' ', b, ' ', c, ' ', d); 
end; 

begin 
    Test; 
end. 

很可能需要添加錯誤檢查的如果輸入錯誤，可能使用TryStrToInt而不是StrToInt，但我將其作爲練習。

正如@lurker所說，在您的問題中，您正在嘗試讀取導致問題的Chars，因爲例如空格和製表符都是Chars，因此空格分隔符不能按預期的方式工作。這會弄亂整個輸入。獲取這些項目的唯一方法是讀取整個字符串，然後解析它（分割它）。

如果您的FreePascal版本有一個單位StrUtils並具有SplitString函數，您可以使用該函數代替TStringList。它使用給定的分隔符（此處爲' '）將字符串拆分爲動態數組。這可能更簡單一點，但不是很多。

Answer 2

我嘗試了這個工作，但它需要更多的未使用的變量。

var 
    a, c: char; 
    b, d: char; 
    e, f, g, h: char; // take care of space 
    p, q: char; 
    x, y: longint; 
begin 
    read(a, b, c, d, e, f, g, h); 
    p := a; 
    q := e; 
    x := ord(c) - 48; 
    y := ord(g) - 48; 
    write(p, ' ', x + 1, ' ', q, ' ', y + 1); 
end.