4.
function Exam1: Char;
Var
A, B: array [0..2] of char;
Begin
A := ‘ABC’;
B := A;
B[1] := ‘D’;
Result := A[1];
End;
请问Exam1返回什么值( )，为什么？
A.‘A’ B.‘B’ C.‘C’ D.‘D’ E. B[1]赋值时出错
5.
function Exam1: Char;
Var
A, B: string;
Begin
A := ‘ABC’;
B := A;
B[1] := ‘D’;
Result := A[1];
End;
请问Exam1返回什么值( )，为什么？
A.‘A’ B.‘B’ C.‘C’ D.‘D’ E. B[1]赋值时出错
6.
function Exam1: Char;
Var
A, B: pchar;
Begin
A := ‘ABC’;
B := A;
B[1] := ‘D’;
Result := A[1];
End;
请问Exam1返回什么值( )，为什么？
A.‘A’ B.‘B’ C.‘C’ D.‘D’ E. B[1]赋值时出错


4，B 5，A，6，E

自己调试一下不就知道了^
前两个 都是把 A的值 给B 不管B 怎么改 A 肯定不变
另 string 是从 1 开始
第三个是指针, 用法完全就错了. 肯定报错

楼上是高手