arrays - 图灵字符串/整数（将它们放在同一行）

Question

这是我当前的代码：

var compMark : array 1 .. 5 of real
var name : array 1 .. 5 of string
var counter : int := -1
for i : 1 .. 5
    counter := counter + 1
    exit when (counter = 5)
    put "What is your name?"
    get name (i)
    if name (i) = "stop" then
        cls
        exit
    end if
    put "What is your mark in Computer Science?"
    get compMark (i)
    if compMark (i) < 0 or compMark (i) > 100 then
        cls
        put "Error"
        return
    end if
    put ""
end for
cls
put "Name \t\t Computer Science mark"
for i : 1 .. upper (name)
    put name (i)
end for
for j : 1 .. upper (compMark)
    put "\t\t", compMark (j)
end for

这就是输出的样子：

---

名称 计算机科学标记

姓名

姓名

姓名

75

35

98

---

我希望输出如何：

---

名称 计算机科学标记

名称 75

名称 35

名称 98

---

有人知道如何帮助我吗？

Answer 1

看起来像

for i : 1 .. upper (name)
    put name (i)
end for
for j : 1 .. upper (compMark)
    put "\t\t", compMark (j)
end for

应该：

for i : 1 .. 5
    put name (i), "\t\t", compMark (i)
end for