1010:平均績點 分數: 1
阿新 • • 發佈:2019-01-09
題目描述
輸入格式
輸出
樣例輸入
樣例輸出
每門課的成績分為A、B、C、D、F五個等級,為了計算平均績點,規定A、B、C、D、F分別代表4分、3分、2分、1分、0分。
輸入格式
有多組測試樣例。每組輸入資料佔一行,由一個或多個大寫字母組成,字母之間由空格分隔。
輸出
每組輸出結果佔一行。如果輸入的大寫字母都在集合{A,B,C,D,F}中,則輸出對應的平均績點,結果保留兩位小數。否則,輸出“Unknown”。
樣例輸入
A B C D F
B F F C C A
D C E F
樣例輸出
2.00
1.83
Unknown
program p1010;
var ch:char; st:string;
s:real;
i,j,k:longint;
y:boolean;
begin
while not eof do
begin
readln(st); s:=0; y:=true;
while pos(' ',st)<>0 do
delete(st,pos(' ',st),1);
for i:=1 to length(st) do
case st[i] of
'A':s:=s+4;
'B':s:=s+3;
'C':s:=s+2;
'D':s:=s+1;
'F':s:=s+0
else
y:=false;
end;
if y then writeln((s/length(st)):0:2) else writeln('Unknown');
end;
end.