Nhờ anh em giúp 1 bài về lập trình pascal,gấp lắm ạ ^^

[nguyengoctu]

giả sử có 1 vòng lặp như sau

for i:=1 to m do
for j:=1 to n do
begin
.....
end;
...

làm thế nào để chuyển vòng lặp đôi đó thành thủ tục đệ quy???
cảm ơn anh em



//cái ddth vắng tanh, post cả ngày rồi mà ko có ai reply,ae thông cảm

[Lugiavn]

Nói chung là bài tập này hơi nhảm.
Ko biết pascal, viết bằng C

PHP Code:

for_i(1);

void for_i(int i)
{
if (i <= m)
{
     for_j(1);
     for_i(i + 1);
}
}

void for_j(int j)
{
if (j <= n)
{
     ....
     ....
     for_j(j + 1);
}
} 


[nguyengoctu]

Originally Posted by Lugiavn

Nói chung là bài tập này hơi nhảm.
Ko biết pascal, viết bằng C

PHP Code:

for_i(1);

void for_i(int i)
{
if (i <= m)
{
     for_j(1);
     for_i(i + 1);
}
}

void for_j(int j)
{
if (j <= n)
{
     ....
     ....
     for_j(j + 1);
}
} 


có thể đưa về 1 thủ tục đc ko ạ

up

[Lugiavn]

Thì bỏ 1 vòng for ra thôi.
Ví dụ

PHP Code:

for (int i = 1 to m)
       for_j(1);

void for_j(int j)
{
if (j <= n)
{
     ....
     ....
     for_j(j + 1);
}
} 


[nguyengoctu]

Originally Posted by Lugiavn

Thì bỏ 1 vòng for ra thôi.
Ví dụ

PHP Code:

for (int i = 1 to m)
       for_j(1);

void for_j(int j)
{
if (j <= n)
{
     ....
     ....
     for_j(j + 1);
}
} 


ngon rồi, thank bác

[bacpp]

Thế này dc ko?

procedure for_ij(i,j:interger)
begin
 ....
 if i<=m then
  begin
   if j<=n then for_ij(i,j+1);
  end;
 else for_ij(i+1,1);
end;

gọi for_ij(1,1)