杭州交通信息网北津学院分数线:一道pascal的题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/08 10:39:29
竞选时,要求选民在a,b,c,d四个候选人中选择（人数不限）如果选择了ABCD以外的人员示为废票。统计时输入“#”结束，请按候选人得票数从大到小顺序输出候选人及得票情况。
Program toupiao;
var
piaoshu:array['a'..'d'] of integer;
r:char;
c:set of 'a'..'d';
begin
c:=['a'..'d'];
repeat
write('Choose one from a,b,c,d:');
readln(r);
if r in c then
begin
inc(piaoshu[r]);
end
else
begin
writeln('You must choose from a,b,c,d');
end;
until r='#';
for r:='a' to 'd' do
begin
Writeln(r,':',piaoshu[r]);
end;
readln;
end.