ForNext

052. 識別子の有効範囲を確認する

VBScript

JScript

Perl

$x = 700;

sub print_x
{
    print "$x\n";
}

sub main
{
    my $x = 800;

    &print_x;               # 700
    print "$x\n";           # 800

    for (1..4)
    {
        my $x = $_ * 100;
        print "$x\n";       # 100 〜 400
    }

    print "$x\n"            # 800
}

&main;

L:\>perl lesson_06_052.pl
700
800
100
200
300
400
800

PHP

<?php
$x = 700;

function print_x()
{
    global $x;
    print "$x \n";
}

function main()
{
    $x = 800;
    print_x();              # 700
    print "$x\n";           # 800

    for ($i = 1; $i < 5; $i++)
    {
        $x = $i * 100;
        print "$x\n";       # 100 〜 400
    }

    print "$x\n";           # 400
}

main();
?>

L:\>php lesson_06_052.php
700
800
100
200
300
400
400

Python

x = 700

def print_x():
    global x
    print  x

def main():
    x = 800
    print_x()               # 700
    print x                 # 800

    for i in range(1, 5, 1):
        x = i * 100
        print x             # 100 - 400

    print x                 # 400

main()

N:\>python lesson_06_052.py
700
800
100
200
300
400
400

Ruby

$x = 700

def print_x
    print "#{$x}\n"
end

def main
    x = 800

    print_x                  # 700
    print "#{x}\n"           # 800

    for i in 1..4
        x = i * 100
        print "#{x}\n"       # 100 〜 400
    end

    print "#{x}\n"            # 400
end

main

L:\>ruby  l:\lesson_06_052.rb
700
800
100
200
300
400
400

PowerShell

Scala

F#

C

#include <stdio.h>

int x = 700;

void print_x(void)
{
    printf("%d\n", x);
}

int main(int argc, char* argv[])
{
    int x = 800;

    print_x();              /* 700 */
    printf("%d\n", x);      /* 800 */

    int i;
    for (i = 1; i < 5; i++)
    {
        int x = i * 100;
        printf("%d\n", x);  /* 100 〜 400 */
    }

    printf("%d\n", x);      /* 800 */

    return 0;
}

R:\>lesson052\project1.exe
700
800
100
200
300
400
800

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

Ada

PL/SQL

T-SQL