神马品牌网侣行过堰塞湖的音乐:请Turbo Pascal高手帮忙!
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 00:41:09
[问题描述]
经过紧张而又激烈的PK，2006届少儿英语卡拉OK大奖赛已经进入了决赛阶段！
共有12位评委给每位参赛小选手打分。按照惯例，选手的 最后得分位去掉一
个最高分、去掉一个最低分，再将剩余10位评委的打分和除以10，作为该位
选手的最后得分（精确到0.01）。每位评委的打分f的范围为0.00≤f≤10.00。
请你位本届比赛设计一个程序，对于输入的12个分数，输出该位选手的最后得
分。
输入文件
输入文件award.in包括一行数据，表示12位评委的打分，用空格隔开。
输出文件
输出文件award.ou包括一行，这一行之包含一个数字，输出该位选手的最后得分。
字符加密（password.pas)
问题描述
加密规则是将输入的英文字母下推K个顺序后输出。加密工作直至输入一个非英文字母为止。
输入文件
输入文件password.in包括两行数据，第一行包含一个数据，即为k的值，第二行包含若干个英文字母，最后一个为非英文字母，用空格隔。
输出文件
输出文件password.ou包括一行，即为加密后的若干英文字母，用空格隔开。
第一题
program award_pas;
var
s:array[1..12] of real;
res:real;
i,max,min:integer;
ins,outs:text;
begin
assign(ins,'award.in');
assign(outs,'award.out');
reset(ins);
rewrite(outs);
for i:=1 to 12 do read(ins,s[i]);
max:=1;
min:=1;
for i:=2 to 12 do
begin
if s[i]>s[max] then max:=i;
if s[i]<s[min] then min:=i;
end;
res:=0;
for i:=1 to 12 do
begin
if ((i<>max) and (i<>min)) then res:=res+s[i];
end;
res:=res/10;
writeln(outs,res:0:2);
close(ins);
close(outs);
end.
第二题
program password_pas;
var
str:string;
k,i,L:integer;
ins,outs:text;
ch:char;
label
ends;
function isalpha(n:char):boolean;
begin
if((n>='a')and(n<='z'))or((n>='A')and(n<='Z')) then isalpha:=true else isalpha:=false;
end;
begin
assign(ins,'password.in');
assign(outs,'password.out');
reset(ins);
rewrite(outs);
readln(ins,k);
while true do
begin
read(ins,ch);
if isalpha(ch) then write(outs,chr(ord(ch)+k))
else if ch=' ' then write(outs,' ')
else goto ends;
end;
ends:
close(ins);
close(outs);
end.