S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
非常菜的问题：请把下面的C翻译成Pascal
double d1[4][3]={{-1,0,1},{-1,0,0},{0,0,0},{0,0,1}};
double d1[4][3]={{-1,0,1},{-1,0,0},{0,0,0},{0,0,1}};
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
L
lha
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
type TCube = array[0..1, 0..1, 0..1] of Integer;
const Maze: TCube = (((0, 1), (2, 3)), ((4, 5), (6,7)));
L
luyear
Unregistered / Unconfirmed
GUEST, unregistred user!
Var d1: array[1..4,1..3] of integer；
一个一个赋值；
一个一个赋值；
L
lha
Unregistered / Unconfirmed
GUEST, unregistred user!
我再贴：
代码:
type
TDigitalFilter=array[0..2,0..2]of SmallInt;
BlurFilter:TDigitalFilter=(
( -1, -1, -1),
( -1, 1, -1),
( -1, -1, -1));
T
tinytao
Unregistered / Unconfirmed
GUEST, unregistred user!
const
d1: array [0..3,0..2] of real = ((-1,0,1),(-1,0,0),(0,0,0),(0,0,1));
d1: array [0..3,0..2] of real = ((-1,0,1),(-1,0,0),(0,0,0),(0,0,1));
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
不是常量，是变量赋初值！
L
luyear
Unregistered / Unconfirmed
GUEST, unregistred user!
我的写法就是变量！一个一个赋值
pascal里面的变量的定义和赋值要分开
pascal里面的变量的定义和赋值要分开
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
一个一个赋值谁不会啊，难道没有精练一点的写法吗？
Y
yvtong
Unregistered / Unconfirmed
GUEST, unregistred user!
从ObjectPascal的语法解释来看，不支持数组定义时初始化。看来只能一个赋值了。
ConstSection -> CONST (ConstantDecl ';')...
ConstantDecl -> Ident '=' ConstExpr
-> Ident ':' TypeId '=' TypedConstant
VarSection -> VAR (VarDecl ';')...
VarDecl -> IdentList ':' Type [(ABSOLUTE (Ident | ConstExpr)) | '=' ConstExpr]
ConstExpr -> <constant-expression>
ConstSection -> CONST (ConstantDecl ';')...
ConstantDecl -> Ident '=' ConstExpr
-> Ident ':' TypeId '=' TypedConstant
VarSection -> VAR (VarDecl ';')...
VarDecl -> IdentList ':' Type [(ABSOLUTE (Ident | ConstExpr)) | '=' ConstExpr]
ConstExpr -> <constant-expression>
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
那么怎样给数组赋值呢，非要一个一个地赋值吗？那多累呀！
E
ew9980
Unregistered / Unconfirmed
GUEST, unregistred user!
這個問題一直困著我!
T
tinytao
Unregistered / Unconfirmed
GUEST, unregistred user!
const
d1: array [0..3,0..2] of real = ((-1,0,1),(-1,0,0),(0,24,0),(0,0,1));
var
i, j:integer;
d2: array [0..3,0..2] of real;
begin
for i:=0 to high(D1) do
For j:=0 to high(D1) do
D2[i,j]:=D1[i,j];
end;
这样你满意了吧， 你个函数很难吗。才10分。
d1: array [0..3,0..2] of real = ((-1,0,1),(-1,0,0),(0,24,0),(0,0,1));
var
i, j:integer;
d2: array [0..3,0..2] of real;
begin
for i:=0 to high(D1) do
For j:=0 to high(D1) do
D2[i,j]:=D1[i,j];
end;
这样你满意了吧， 你个函数很难吗。才10分。
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
不满意，太绕弯了
难道Pascal连这点事也没办法吗？
难道Pascal连这点事也没办法吗？
小
小人物
Unregistered / Unconfirmed
GUEST, unregistred user!
不知道你要问什么！
E
ew9980
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TArr = array [0..3,0..2] of real;
const
d1: TArr = ((-1,0,1),(-1,0,0),(0,24,0),(0,0,1));
var
d2: TArr;
begin
d2 := d1;
end;
TArr = array [0..3,0..2] of real;
const
d1: TArr = ((-1,0,1),(-1,0,0),(0,24,0),(0,0,1));
var
d2: TArr;
begin
d2 := d1;
end;
L
liangtianyi
Unregistered / Unconfirmed
GUEST, unregistred user!
先定义一个type arr1=array[1..x,1..y] of integer;
var a1,a2:arr1;
begin
a1:=a2;
end.
var a1,a2:arr1;
begin
a1:=a2;
end.
L
liangdewei
Unregistered / Unconfirmed
GUEST, unregistred user!
谁说Pascal做不来，都懒得理你这种动不动就扣帽子的人。C好呀，还来研究什么Pascal呀，
靠！
靠！
M
mahongxi
Unregistered / Unconfirmed
GUEST, unregistred user!
我看只能这样了：
progam My1;
type
myarr:array [0..2,0..2] of integer;
const
conArr1:myarr=((1,2,3),(4,5,6),(7,8,9));
var
arr1:myarr;
begin
arr1:=conArr1;
end.
progam My1;
type
myarr:array [0..2,0..2] of integer;
const
conArr1:myarr=((1,2,3),(4,5,6),(7,8,9));
var
arr1:myarr;
begin
arr1:=conArr1;
end.
C
compux
Unregistered / Unconfirmed
GUEST, unregistred user!
var
d1: array[1..4,1..3] of integer = ((-1,0,1),(-1,0,0),(0,0,0),(0,0,1));
不过在Unit里d1需要定义为全局变量
d1: array[1..4,1..3] of integer = ((-1,0,1),(-1,0,0),(0,0,0),(0,0,1));
不过在Unit里d1需要定义为全局变量
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢compux，可为什么必须定义为全局变量呢？另加50分继续讨论！
Similar threads
- 回复
- 4
- 查看
- 4K