1010:平均绩点 分数: 1

题目描述

每门课的成绩分为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.