帕斯卡将线分割为实数和字符串

Question

我知道这种语言几年前就已经消失了，但我们国家的大多数学校仍然需要 -.- 我得到了包含数据的文件，如下所示：

• 行数 姓名
• 姓氏（真实类型数字）（另一个真实类型数字）

例如

• 2
• Brat Sunbather 5.66 55.4
• Bart Simpson 55.7 45.4

我需要创建结果文件，如下所示：

• 姓名（之前给出的真实数字相乘）
• 总计

例如

• Brat Sunbather 313.56
• Bart Simpson 2528.78
• 总计：2842.34

我一直试图将行拆分为字符串和实数，即使在我在示例中给出的书中，所有数据都在单独的行上：

• String
• Digit
• String
• Digit

我在网上找不到任何内容希望你能帮助我。先感谢您。

Answer 1

这应该可以帮助您开始 - 我已经阅读了文件，分割了行，并将字符串转换为实数：

Program Test;

var
    fileVar: Text;
    l: string[81];
    inputFilename: string[14];
    lCount: Integer;
    i: Integer;
    code: Integer;

    spacePos: Integer;

    firstName: string[100];
    secondName: string[100];

    num1: real;
    num2: real;
    product: real;

    s: string[100];

begin
    inputFilename := 'input.txt';
    Assign(fileVar, inputFilename);
    Reset(fileVar);

    Readln(fileVar, l);
    Val(l, lCount);

    Writeln('l count=', lCount);

    for i := 1 to lCount do
    begin
        Readln(fileVar, l);
        spacePos := Pos(' ', l);
        firstName := Copy(l, 0, spacePos);
        Delete(l, 1, spacePos);

        spacePos := Pos(' ', l);
        secondName := Copy(l, 0, spacePos);
        Delete(l, 1, spacePos);

        spacePos := Pos(' ', l);
        s := Copy(l, 0, spacePos - 1);
        Val(s, num1, code);
        Delete(l, 1, spacePos);

        Val(l, num2, code);

        WriteLn(firstName);
        Writeln(secondName);
        Writeln(num1);
        Writeln(num2);
    end;

    Close(fileVar);
end.