作业帮pascal 字符串编程练习题
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/09/14 11:32:31
pascal 字符串编程练习题
4. 在许多单词游戏中，单词中的每个字母根据其点值计分，它与英语单词中的频率成反比。在Scrabble™中，点数分配如表8-1所示。
表8-1 游戏点数分配
1 A, E, I, L, N, O, R, S, T, U
2 D, G
3 B, C, M, P
4 F, H, V, W, Y
5 K
8 j, X
10 Q, Z
例如，Scrabble单词“FARM”值9个点。F值4点，A和R各值1点，M值3点。输入入几个组单词，依次打印出在Scrabble中的点数。计算分数的时候不分大小写。
4. 在许多单词游戏中，单词中的每个字母根据其点值计分，它与英语单词中的频率成反比。在Scrabble™中，点数分配如表8-1所示。
表8-1 游戏点数分配
1 A, E, I, L, N, O, R, S, T, U
2 D, G
3 B, C, M, P
4 F, H, V, W, Y
5 K
8 j, X
10 Q, Z
例如，Scrabble单词“FARM”值9个点。F值4点，A和R各值1点，M值3点。输入入几个组单词，依次打印出在Scrabble中的点数。计算分数的时候不分大小写。
const
a:array ['A'..'Z'] of integer=(1,3,3,2,1,4,2,4,1,8,5,1,3,1,1,3,10,1,1,1,1,4,4,8,4,10);
var
ans:array [1..100] of integer;
s:string;
n,i,j:integer;
begin
readln(n);
fillchar(ans,sizeof(ans),0);
for j:=1 to n do
begin
readln(s);
for i:=1 to length(s) do
inc(ans[j],a[s[i]]);
end;
for i:=1 to n do
writeln(ans[i]);
readln;
end.
a:array ['A'..'Z'] of integer=(1,3,3,2,1,4,2,4,1,8,5,1,3,1,1,3,10,1,1,1,1,4,4,8,4,10);
var
ans:array [1..100] of integer;
s:string;
n,i,j:integer;
begin
readln(n);
fillchar(ans,sizeof(ans),0);
for j:=1 to n do
begin
readln(s);
for i:=1 to length(s) do
inc(ans[j],a[s[i]]);
end;
for i:=1 to n do
writeln(ans[i]);
readln;
end.