- お知らせ -
  • 当wikiのプログラムコードの表示を直してみました(ついでに長い行があると全体が下にぶっ飛ぶのも修正)。不具合があればBBSまでご連絡下さい。

D Edit

外側の変数にアクセスできるところがポイント。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void main(char [][] argv)
{
  int foo;
  
  void bar(int xyzzy)
  {
    foo += xyzzy;
  }

  foo = 10;
  printf("%d\n", foo);
  
  bar(1000);
  printf("%d\n", foo);
}

出力例

10
1010

Delphi Edit

Delphiも外側の変数にアクセス可能。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program main;

{$APPTYPE CONSOLE}
procedure Foo;
var
  Bar: Integer;

  procedure Xyzzy(value: Integer);
  begin
    Inc(Bar, value);
  end;
begin
  Bar := 10;
  Writeln(Bar);
  
  Xyzzy(1000);
  Writeln(Bar);
end;

begin
  Foo;
end.

出力例

10
1010



Front page   Edit Freeze Diff Backup Upload Copy Rename Reload   New Pages Search Recent changes   Help   RSS of recent changes
Last-modified: 2005-07-03 Sun 19:52:21 JST (5273d)