主题：有几道pascai的题，大家帮帮忙
kh456
[专家分：0] 发布于 2008-07-25 12:08:00
题1：写一个程序,要求输入一个整数,当它为偶数时,输出TRUE,当它为奇数时,输出FALSE
题2：用勾股定理，已知a,b求c
题3：从键盘输入一个小写字母，打印对应的大写字母，其中A的ASCⅡ值为65，a的ASCⅡ值为97。
写完整的给我，谢谢大家
回复列表 （共4个回复）
沙发
kh456 [专家分：0] 发布于 2008-07-25 12:33:00
帮帮忙啊，我QQ404266304
板凳
pascal玩家 [专家分：280] 发布于 2008-07-25 17:31:00
大哥你的问题好菜哈
第一题
program t1;
var a:integer;
begin
read(a);
if a mod 2=0 then writeln('true')
else writeln('false');
end.
第二题
program t2;
var a,b,c,d:real;
begin
read(a,b);
d:=sqrt(a*a+b*b);
writeln(d:10:5);
end.
第三题
program T3;
var a:char;
i:integer;
begin
read(a);
i:=ord(a);
i:=i-\32;
a:=chr(i);
writeln(a);
end.
3 楼
我的确很忙 [专家分：0] 发布于 2008-08-04 22:54:00
题1：
begin zdw(input,output);
var a:integet;
begin
read(a);
if (a mod 2)=0 then
writeln(true) else
writeln(false);
end.
题2：
begin zdw(input,output);
var a,b,c:integer;
begin
read(a,b);
c:=a*a+b*b;
write(c);
end.
4 楼
mxalbert1996 [专家分：780] 发布于 2008-08-05 09:25:00
第一题最简单的方法：
program t1;
var a:integer;
begin
readln(a);
writeln(not odd(a));
end.
我来回复
您所在位置：