ForNext

054. 暗黙の初期化

VBScript

JScript

Perl

$fx;

sub func
{
    $sx;
    my $ax;
    printf("%3d%3d%3d\n", $ax, $sx, $fx);
}

&func;

L:\>perl lesson_06_054.pl
  0  0  0

PHP

<?php
$fx;

function func()
{
    global $fx;
    global $sx;
    $ax;
    printf("%3d%3d%3d\n", $ax, $sx, $fx);
}

func();
?>

L:\>php lesson_06_054.php
  0  0  0

Python

Ruby

PowerShell

Scala

F#

C

#include <stdio.h>

int fx = 0;

void func(void)
{
    static int sx;
    int        ax;
    printf("%3d%3d%3d\n", ax, sx, fx);
}

int main(int argc, char* argv[])
{
    func();
}

R:\>lesson054\project1.exe
8802932  0  0

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    fx: Integer;

procedure func();
const
//  sx: integer;  初期値を指定しなければいけない
    sx: Integer = 0;
var
    ax: Integer;
begin
    writeln(format('%3d%3d%3d', [ax, sx, fx]));
end;

begin
    func;
end.

S:\>lesson054\project1.exe
2147348480  0  0

Ada

PL/SQL

T-SQL