问题是最后a的值是多少.
var a,b:integer;
ch:char;
begin
b:=5;
a:=0;
for ch='x' to 'z' do
begin
if odd(b)then
a:=a+b;
b:=b+1;
end;
end;
var a,b:integer;
ch:char;
begin
b:=5;
a:=0;
for ch='x' to 'z' do
begin
if odd(b)then
a:=a+b;
b:=b+1;
end;
end;
解决方案 »
- ++++++++ 在线的兄弟,帮忙给投上一票,多谢!++++++++
- 怎样在DBGridEh中显示数据库没有的字段?要求可以手动设置该字段的值。
- 谁知道FoxMail的那个工具栏是用什么控件做的?
- 在线等:关于TXMLDocument的用法
- Access中sql类型转换?
- indy的UDP组件的问题
- 急:怎样在Delphi中显示GIF动画?越简单越好!
- 低价出售二手口香糖
- 大家赶快来分享一下
- 如何得到Delphi的RTL(RunTime Library)?什么地方能下载?马上给分!
- 串口问题,VC版无人能解,诚征高人参与。
- 問一個菜鳥問題﹕type 類型定義﹕dicom_types = (unknown, i8, i16, i32, ui8, ui16, ui32, _string );
for ch='x' to 'z' do
这个语句是如何循环的?下一个ch的值是不是y?
可不可以这样用字符做循环条件?在我这里编译通不过.就是这句错了
[Error] Unit1.pas(34): For loop control variable must be simple local variable书上的答案是221
另外,这不是Object Pascal,程序修改语法错误后在tp7下可以运行通过。
for ch:='x' to 'z' do其实等价与for i:=1 to 3 do
我猜这个程序是用于说明char性质的