ForNext

069. 文字列を格納する配列

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

#include <stdio.h>


int main(int argc, char* argv[])
{
    char str1[4];

    str1[0] = 'A';
    str1[1] = 'B';
    str1[2] = 'C';
    str1[3] = '\0';

    printf("str1 = %s\n", str1);

    char str2[] = {'A', 'B', 'C', '\0'};
    printf("str2 = %s\n", str2);

    char str3[] = "ABC";
    printf("str3 = %s\n", str3);

    char str4[4];
/*  str4 = {'A', 'B', 'C', '\0'};   エラー！    */
/*  str4 = "ABC";                   エラー！    */

    return 0;
}

R:\>lesson069\Project1.exe
str1 = ABC
str2 = ABC
str3 = ABC

C++

C++Builder

VC++

C#

Java

import java.util.Scanner;

class Lesson069 {
    public static void main(String[] args) {
        char[] str1 = new char[4];
        str1[0] = 'A';
        str1[1] = 'B';
        str1[2] = 'C';
        str1[3] = '\0';
        System.out.printf("str1 = %s\n", String.valueOf(str1));

        char[] str2 = {'A', 'B', 'C', '\0'};
        System.out.printf("str2 = %s\n", new String(str2));
    }
}

L:\>java Lesson069
str1 = ABC
str2 = ABC

Objective-C

D

VB

VB.NET

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    str1: String = 'ABC';

procedure main();
var
    str2: String;
    str3: String;
begin
    Writeln(Format('str1 = %s', [str1]));

    str2 := 'ABC';
    Writeln(Format('str2 = %s', [str2]));

    SetLength(str3, 3);
    str3[1] := 'A';
    str3[2] := 'B';
    str3[3] := 'C';
    Writeln(Format('str3 = %s', [str3]));
end;

begin
    main;
end.

S:\>lesson069\Project1.exe
str1 = ABC
str2 = ABC
str3 = ABC

Ada

PL/SQL

T-SQL