圖靈字符串/ INT（把它們放在同一行）

-1

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

任何人都知道如何幫助我？

來源

2016-03-02 Noctis

它看起來像

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

來源

2016-03-02 20:43:13

太感謝你了，我想這樣做類似的東西，但失敗了，幸好我想我現在就買下。這是主題，但你能給我一些關於如何計算所有學生的平均分數的提示嗎？遇到了一些麻煩 – Noctis

@Noctis計算所有分數的總和，然後除以計數（在你的情況爲5） –

計算總和是我卡在的地方，我目前有這個：對於我：1 .. 5 put name （i），「\ t \ t」，compMark（i） total：= total + compMark（i） avg：= total/counter end for put「」 put「The class of the class is」，平均值：0：2，「％」。 – Noctis

圖靈字符串/ INT（把它們放在同一行）

回答

相關問題