主题：ＰＡＳＣＡＬ重大问题
xm94
[专家分：0] 发布于 2006-11-28 22:25:00
1.输入3个字母，按字母表顺序从小到大输出这3个字母。
2.输入一个1000以内的任意一个数，如果这个数中至少有一位数字是5，则输出“yes”，否则输出“no”。
3.输入一个三位的数，判断该数是否为水仙花数，是则输出“flower”。（水仙花数：若三位数abc，a^3+b^3+c^3=abc ,则称该数为水仙花数）
4.输入一个1000以内的数，判断该数是否为守行数（若某数的平方，其低位与该数本身相同，则称该数为守行数。例如25，252=625，62=36，平方值的低位与原数相同，25、6为守行数）。
这些题目我都不会做,麻烦写一下程序,我才刚学,谢谢啦!
回复列表 （共10个回复）
沙发
angwuy [专家分：2280] 发布于 2006-11-29 08:29:00
你出的这4道题都不需要编程。我看完你的帖子后能随口把答案说出来。
前两题没啥说的。
第3题：153、370、371、407。
第4题：(如果0不算的话)1、5、6、25、76、376、625。(这些数能口算得出，我以前在帖子上说过。)
板凳
zjsyzhong [专家分：520] 发布于 2006-11-29 12:18:00
主要是要编 又不是要答案 2楼
[em13]
3 楼
编程黑客 [专家分：1660] 发布于 2006-11-29 22:27:00
第一题中字符可以直接比较大小,所以用一个IF语句就可以了
第二题是用个循环,然后分解每个数字,再判断
4 楼
xm94 [专家分：0] 发布于 2006-12-01 20:40:00
程序写一下,OK?
5 楼
bigchen [专家分：1940] 发布于 2006-12-02 13:35:00
2:
var
a,i,l:integer;
s:string;
begin
readln(a);str(a,s);l:=length(s);
for i:=1 to l do
if s[i]='5' then
begin
writeln('yes');exit;
end;
writeln('no');
end.
6 楼
bigchen [专家分：1940] 发布于 2006-12-02 13:50:00
1:
var
b:char;i,j:integer;
a:array[1..3] of char;
begin
readln(a[1],s[2],s[3]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
b:=a[i];a[i]:=a[j];a[j]:=b;
end;
writeln(a[1],a[2],a[3]);
end.
7 楼
sss333 [专家分：340] 发布于 2006-12-02 15:35:00
!@#$%%^^&**(()_+_++
太简单了点
8 楼
风神少年 [专家分：730] 发布于 2006-12-05 16:59:00
你来编编看，sss333.你的水平我清楚!!别开玩笑拉！不觉得丢脸吗？
[em12][em12][em1][em1]
9 楼
zjsyzhong [专家分：520] 发布于 2006-12-05 16:59:00
[em1][em1]和风神一样 有同感啊~~~[em9]
10 楼
zhangyuan [专家分：630] 发布于 2006-12-05 19:21:00
1:begin
for i:=1 to 99999999999999999999999999999999 do
begin
i:=1*2*3*4*5*6*7*8*9*10;
wirte(i*i*i*i*i*i*i);
end.
2:program ----;
var j:real;
function i(h:real):real;
begin
i:=h*h*h;
end;
begin
j:=5823792578475873429874397238475963285736895687628976792763849752;
wirte(i(j));
end.
我来回复
您所在位置：