高考问答张国荣粉丝:用Turbo Povscal来编这些题
来源：百度文库 编辑：高考问答 时间：2024/05/03 16:41:59
读入一串字符(长度<256个字符),将它们从小到大排序后输出。
(源文件名为22_1.pas；输入文件名为22_1.in；输出文件名为22_1.out)
输入 输出
一串字符 字符的排序结果
样例：
输入 输出
fhgertkapiu aefghikprtu
22_2 统计选票
选举班长，有6人参加竞选，其编号分别是1,2,3,4,5,6。同学们共有n人参加投票，每人只能投一票。现请你编程统计6个人的得票情况。(使用数组记票)
(源文件名为22_2.pas；输入文件名为22_2.in；输出文件名为22_2.out)
输入： 输出：
第一行为投票人数n 统计后的排序结果
第二行为投票数据
输入样例：
20
1 3 5 6 2 1 3 5 6 5 4 3 5 6 2 1 1 4 6 5
输出样例：
5)5
1)4
6)4
3)3
2)2
4)2
23_1 求组合数 （其中n,m为自然数，且n≥m）。(用函数写源程序名为23_1a.pas；用过程写源程序名为23_1b.pas)
分析：由组合知识知 计算公式为：
输入示例(23_1a.in或23_1b.in)：
4 2
输出示例(23_1a.out或23_1b.out)：
6
23_2金蝉素数
某古寺的一块石碑上依稀刻有一些三位与四位的神秘自然数。专家研究发现：这些数是素数，且从低位去掉一位，或两位，……后都仍为素数，从高位去掉一位，或两位，……后也都仍为素数，更奇妙的是同时去掉它的最高位与最低位数字后还是素数。因此，人们把这些神秘的素数称为金蝉素数，喻意金蝉脱壳之后仍为美丽的金蝉。
试求出石碑上的金蝉素数。
(源程序名为23_2.pas；输出文件名为23_2.out)
输出：
373
……
3797
全的我追加50分！·！！！！！~~#·￥#·￥—%*%（……——）*——+（
参考答案她不久就要超脱于尘世风雨之外了，精神已挣扎着要脱离它物质的居所，而当它终于解脱出来之后，将会飞到哪里去呢？
我没有Turbo Pascal那古董了（目前不想去找）
我用FreePascal写的，连信息学奥赛都不用TP了
{-------------22_1-------------}
Var a:String;
procedure sort(l,r:integer);
var
i,j:integer;
x,y:char;
begin
i:=l;j:=r;x:=a[(l+r) div 2];
repeat
while a[i]<x do i:=i+1;
while x<a[j] do j:=j-1;
if i<=j then begin
y:=a[i];a[i]:=a[j];a[j]:=y;
i:=i+1;j:=j-1;
end;
until i>j;
if l<j then sort(l,j);
if l<r then sort(i,r);
end;
Begin
Assign(input,'22_1.in');
Assign(output,'22_1.out');
Reset(input);Rewrite(output);
Readln(a);
sort(1,length(a));
Writeln(a);
Close(input);
Close(output);
End.
先写一道，如果继续要的话发邮件好了，这样写太累
文件你自己加没兴趣。。。。
Var
I,J:Byte;
C:Char;
S:String;
Begin
Readln(S);
For I:=1 To Length(S) Do
For J:=I+1 To Length(S) Do
If Ord(S[I])>Ord(S[J]) Then
Begin
C:=S[I];
S[I]:=S[J];
S[J]:=C;
End;
Writeln(S);
End.
才200*200而已，用快排吗？？？
main()
{
char a[100];
int n,i,j;
gets(a);
n=strlen(a);
for(i=0;i<n;i++)
{for(j=i+1;j<n;j++)
if(a[i]<a[j]){t=a[i];a[i]=a[j];a[j]=t;}
}
puts(a);
}
OI的题目？