pascal中的一个疑问
vara:array[1..4,1..2]ofinteger=((1,2),(3,4),(5,6),(7,8));这句话是什么意思额?还有就是怎么用啊?尤其是那个等号,这...
var
a:array[1..4,1..2]of integer=((1,2),(3,4),(5,6),(7,8));
这句话是什么意思额?还有就是怎么用啊?尤其是那个等号,这是神马用法捏....
我只是不懂等号后面的那部分,望解答... 展开
a:array[1..4,1..2]of integer=((1,2),(3,4),(5,6),(7,8));
这句话是什么意思额?还有就是怎么用啊?尤其是那个等号,这是神马用法捏....
我只是不懂等号后面的那部分,望解答... 展开
展开全部
var后面跟着是要定义的变量,
a:array[1..4,1..2]of integer
a指定义的变量的名称,array指数组,即定义了一个1~4行,1~2列的数组,integer表示每个单元数据类型是整形。
=((1,2),(3,4),(5,6),(7,8))
表示在这里直接给数组赋值,这个用法我貌似从未用过。。。通常是用在const里面的吧。反正如果可以用,就是把整个数组复制了,外面的括号是数组,里面四个括号刚好表示四行,里面两个数就表示每行的两列的值。
分号不解释。
a:array[1..4,1..2]of integer
a指定义的变量的名称,array指数组,即定义了一个1~4行,1~2列的数组,integer表示每个单元数据类型是整形。
=((1,2),(3,4),(5,6),(7,8))
表示在这里直接给数组赋值,这个用法我貌似从未用过。。。通常是用在const里面的吧。反正如果可以用,就是把整个数组复制了,外面的括号是数组,里面四个括号刚好表示四行,里面两个数就表示每行的两列的值。
分号不解释。
展开全部
或许你不是计算机专业,计算机专业都是先开始学习c语言的。好象没有学习pascal的哦。如果你想在软件行业发展的话,还是建议学习c语言吧,其实c语言和pascal,vb一样都是面向过程的语言,都是入门一级的语言,不过,vb好象有面向对象的哦。pascal和vb的语法我认为更像一些,这两门语言我都没学过。如果学好了pascal以后可以继续学习delphi,它是面向对象的pascal。对于一个非计算机专业的学生来说的话,只需要了解编程就可以了。pascal学好了也就够了。但是如果你是计算机专业的话,那我真的要怀疑你们学校开课的问题了哦。。
你要在软件行业做的话,还是建议放弃pascal吧,学习c系列的语言。。
c、c++是做windows程序开发的。如果想更深入了解系统底层,病毒等方面的知识,可以研究一下汇编语言。
如果要做网页,网站方面的研究可以学习java、asp.net,php。
我是计算机专业。。。
你要在软件行业做的话,还是建议放弃pascal吧,学习c系列的语言。。
c、c++是做windows程序开发的。如果想更深入了解系统底层,病毒等方面的知识,可以研究一下汇编语言。
如果要做网页,网站方面的研究可以学习java、asp.net,php。
我是计算机专业。。。
追问
谢了,我是信息竞赛的...
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
声明一个为a的数组,有4列2行,这个数组为
1 3 5 7
2 4 6 8
等于号后面的意思是,第一列的两个值为1
2
第二列两个值为3
4
以此类推,明白了吗?
1 3 5 7
2 4 6 8
等于号后面的意思是,第一列的两个值为1
2
第二列两个值为3
4
以此类推,明白了吗?
追问
调用时是不是像一个常量一样, write(a[3,2]) 就直接出 6 了?
追答
对的!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-09-24
展开全部
可以直接用字符串做,看看我写的!
var
num:array[0..9] of byte;
s:string;
n,i,j:integer;
begin
readln(s);
for i:=0 to 9 do num[i]:=0;
for i:=1 to length(s) do
begin
case s[i] of
'1': num[1]:=num[1]+1;
'2': num[2]:=num[2]+1;
'3': num[3]:=num[3]+1;
'4': num[4]:=num[4]+1;
'5': num[5]:=num[5]+1;
'6': num[6]:=num[6]+1;
'7': num[7]:=num[7]+1;
'8': num[8]:=num[8]+1;
'9': num[9]:=num[9]+1;
'0': num[0]:=num[0]+1;
end;
end;
for i:=1 to 9 do
writeln(i,',',num[i]);
writeln(0,',',num[0]);
end.
var
num:array[0..9] of byte;
s:string;
n,i,j:integer;
begin
readln(s);
for i:=0 to 9 do num[i]:=0;
for i:=1 to length(s) do
begin
case s[i] of
'1': num[1]:=num[1]+1;
'2': num[2]:=num[2]+1;
'3': num[3]:=num[3]+1;
'4': num[4]:=num[4]+1;
'5': num[5]:=num[5]+1;
'6': num[6]:=num[6]+1;
'7': num[7]:=num[7]+1;
'8': num[8]:=num[8]+1;
'9': num[9]:=num[9]+1;
'0': num[0]:=num[0]+1;
end;
end;
for i:=1 to 9 do
writeln(i,',',num[i]);
writeln(0,',',num[0]);
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这是定义二维数组的同时赋初值
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询