1. 程式人生 > >1010:平均績點 分數: 1

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.