文字列内の数字の出現回数を数える

明解Ｃ言語入門編 > 9. 文字列の基本 >

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure main();

var

    i, j: Integer;

    str:  String;

    cnt:  array[0..9] of Integer;

begin

    str := '3.1415926535897932846';
    for i := 0 to 9 do

        cnt[i] := 0;
    for i := 1 to Length(str) do

    begin

        if ('0' <= str[i]) and (str[i] <= '9') then

        begin

            j := Integer(str[i]) - Integer('0');

            Inc(cnt[j]);

        end;

    end;
    for i := 0 to 9 do

        Writeln(Format('"%d" : %d', [i, cnt[i]]));

end;
begin

    main;

end.

実行結果



S:\>lesson074\Project1.exe

"0" : 0

"1" : 2

"2" : 2

"3" : 3

"4" : 2

"5" : 3

"6" : 2

"7" : 1

"8" : 2

"9" : 3