主题：重大问题，不看后悔
kh456
[专家分：0] 发布于 2008-07-25 12:14:00
题1：写一个程序,要求输入一个整数,当它为偶数时,输出TRUE,当它为奇数时,输出FALSE
题2：用勾股定理，已知a,b求c
题3：从键盘输入一个小写字母，打印对应的大写字母，其中A的ASCⅡ值为65，a的ASCⅡ值为97。
写完整的给我，谢谢大家
回复列表 （共6个回复）
沙发
小田甜 [专家分：3910] 发布于 2008-07-28 11:16:00
var a:integer;
begin
readln(a);
writeln(not odd(a));
end.
var a,b,c:real;
begin
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c:0:2);
end.
var c:char;
begin
readln(c);
writeln(upcase(c));
end.
不过这个问题也不是"重大"嘛.
另外ASCII不是ASC2
板凳
黄叶纷飞 [专家分：0] 发布于 2008-08-06 17:02:00
楼上的解法不错
我也编了几个，
var
a:integer;
begin
read(a);
if a mod 2=0 then writeln('ture')
else writeln('false')
end.
var
a,b,c:real;
begin
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
楼上的方法很好，但我还有一种解法
var
ch:char;
begin
read(ch);
writeln(chr(ord(ch)-32);
end.
思路是每个小写的字母与大写的ASSCII差 32 利用几个函数就OK 了！
3 楼
古生界诞生37 [专家分：0] 发布于 2008-11-22 17:46:00
var a:integer;
begin
readln(a);
writeln(not odd(a));
end.
var a,b,c:real;
begin
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c:0:2);
end.
var c:char;
begin
readln(c);
writeln(upcase(c));
end. 太简单了
4 楼
1000000 [专家分：0] 发布于 2009-01-24 17:13:00
program p1;
var
a:integer;
begin
readln(a);
if a (mod 2)=0 then writeln('true')
else writeln('false');
{readln;}
end.
program p2;
var
a,b,c:longint;
d:real;
readln(a,b);
c:=a*a+b*b;
d:=sqrt(c);
writeln(d{:10:10});
{readln;}
end.
program p3;
var
a,b:char;
c,d:integer;
begin
readln(a);
val(a,c);
d:=c+32;
｛如何把数值转化成与ASCII代码对应的字符？｝
end.
5 楼
jyz8125226 [专家分：50] 发布于 2009-01-24 23:03:00
回应四楼的
用 chr(x) 注：x为整型且大于等于0，小于等于255（好像是255,记不太清了）
6 楼
小小DAVID [专家分：300] 发布于 2010-02-06 18:31:00
这还重大，把问题搞大了
我来回复
您所在位置：