Pascal语法方面需要你的帮助，谢谢(20分)

C

cfVictoria

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #1

1，指出字符串的值：
（1）Copy('23456',2,3)+Copy( '12345678',4,5)
问题：（1）的值只是‘345+45678’的简单相加吗？
（2）（'XYZ'< 'XYZO')and('XYZ'<'XYZ')
问题：先抛开他的值为true or False不说，怎莫来判断XYZ与XYZO 的大小关系？还有比如abc与abcd的大小关系又是怎回事？ 我很模糊。。
2。 假定下列付值语句中的标识符都是变量，欲使其合法，变量可以属于那些数据类型？
（1）Ratio := A/B;
(2)WeekDays :=Succ(Sunday);
(3)S :=T + 'DEF';
(4) label1.Caption :=Edit1.Text + Infor

3.假定有整型全程变量的声明如下：
var
IntVar: Integer = 2;
LintVar: Longint = -10;
X: Cardinal = 20;
Y: Cardinal = 20;
求下面过程语句对应的赋值语句和执行该例程后变量的值
（1）Inc(IntVar,5);
(2) Dec(Y,5);　
帮忙解释下！大家辛苦了！

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #2

1、（1）当然不是，而是：34545678（是字符串连接）；（2）应该是转化成ASCII码比较；
2、这个写起来太多，太麻烦。建议用Pascal编译器编译测试一下就会有答案的；
3、（1）是7，（2）是15；
怎么感觉像是大学的考试题呢？呵呵：）

 

杯

杯中水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #3

1.(1)是的
(2)根据ASCII表的先后顺序 xyz>xyzo abc>abcd
2.(1)浮点和整数类型都可以
(2)集合类型
(3)字符串
(4)字符串
3.(1)7
(2)15

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #4

楼上的你的说法不对！
1、（1）不是简单的相加！而应该是字符串连接。
2、（1）情况比较复杂（并不是你所说的：浮点和整数类型都可以）。比如以下程序段就是通不过编译的：
procedure TForm1.btn1Click(Sender: TObject);
var
I: Integer;
begin
I := 15/17;
I := 12.7/29.86;
end;
所以我说情况比较复杂，建议楼主去具体写写程序看...

 

杯

杯中水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #5

改正一下
2.（2）枚举类型

另外楼上：字符串连接和相加有什么区别吗？还请指教，呵呵

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #6

to 杯中水：
请看清楚：楼主（1）中写的是“：（1）的值只是‘345+45678’的简单相加吗？”应该是整数相加的意思，并不是字符串相加（不是‘345’＋‘45678’这样才是字符串相加的意思。你可以说他是在做文字游戏，但是大学考试中这是常有的事情，所以我问楼主是不是大学考试题？呵呵）！他的意思是问结果是不是：‘46023’

 

杯

杯中水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #7

2(1)我忽略了被赋值对象，被赋值对象一定得是浮点类型，赋值对象可以两种都是

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #8

to: 杯中水：
你的说法不全：比如：2（1）下面的程序段也是可以通过编译的（尽管有可能初看起来有的似乎没有实绩意义，你也可以说其实它们最后还都是化成浮点数运算的。不错！但是毕竟它们还都是Pascal中独立的数据类型，应该单独列出）
procedure TForm1.btn1Click(Sender: TObject);
var
I: Currency;
J: TDatetime;
begin
I := 5 / 3;
J := Now / Now;
end;
你要是想要圆满的回答问题2，恐怕不是一、两句话能够说清楚的...

 

杯

杯中水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #9

哦，知道了！
看来我还得好好学习啊！
考虑问题太简单，谢谢Johnny_du

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #10

呵呵：）不客气

 

C

cfVictoria

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #11

谢谢二位的耐心和细心，其实我不是参加考试，刚学习，好多东西摸不着头目和线索。Johnny_du建议用Pascal编译器编译测试一下就会有答案的，我不太明白，写程序能有答案吗？听起来很傻吧，但我真的不明白.

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #12

我倒不是这个意思，而是说你通过写程序可以通过编译器来验证哪些数据类型对于你的表达式来说是可行的那些是不可行的。要是我在这里写出来哪些可以哪些不可以的话，你其实印象并不会很深刻，况且即使记住了也只是“死记”（有些措辞不是很妥当，请楼主原谅：）呵呵），不能很好地理解。要是你通过自己写程序掌握了就会在以后编程时运用自如的...所谓“授人以鱼，不如授人以渔”便是这个道理^_^

 

C

cfVictoria

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #13

非常谢谢，我知道了。

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #14

呵呵：）既然如此，楼主放分吧？

 

C

cfVictoria

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #15

你可真幽默，说实话，我自学这些简直快没有信心了， 你们真的又给了我信心，如果可能我到愿意给你加1000分。

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-30

• #16

呵呵：）不必悲观，如果不嫌我的水平差，可以找我^_^
至于分数嘛，我只要我该得的，无功之禄受之有愧