PL/SQLの数値の奇数桁と偶数桁をカウントします

正の整数の桁が与えられ、タスクはPL/SQLを使用して数値の奇数桁と偶数桁の数を計算することです。

PL / SQLは、SQLとプログラミング言語の手続き型機能を組み合わせたものです。これは、SQLの機能を強化するために90年代初頭にOracleCorporationによって開発されました。

PL / SQLは、SQL自体およびJavaとともに、Oracleデータベースに組み込まれている3つの主要なプログラミング言語の1つです。

入力 −int番号=23146579

出力

count of odd digits in a number are : 5
count of even digits in a number are : 3

説明 −与えられた数では、偶数桁として2、4、6があるため、数の偶数桁の数は3であり、奇数桁として3、1、5、7、および9があるため、番号は5です。

入力 −int番号=4567228

出力

count of odd digits in a number are : 2
count of even digits in a number are : 5

説明 −与えられた数では、奇数として5と7があるため、数の奇数の数は2であり、偶数の場合は4、6、2、2、8であるため、数の偶数の数は次のようになります。 5.

以下のプログラムで使用されているアプローチは次のとおりです

• PL/SQLで使用されるデータ型NUMBERの整数型変数に数値を入力します。

• 格納できる最大サイズの長さを表すVARCHAR（50）型の長さを取ります。

• 2つの変数を奇数桁のカウントと偶数桁のカウントとして取り、最初にそれらを0に設定します

• ループを開始し、1から長さまで数値を渡します

• ループ内で、長さをsubstr（number、i、1）として設定します

• ここで、長さ2のmodが0に等しくないことを確認してから、数値の奇数桁のカウントを増やします

• それ以外の場合は、数値の偶数桁の数を増やします

• 結果を印刷します。

例

DECLARE
   digits NUMBER := 23146579;
   length VARCHAR2(50);
   count_odd NUMBER(10) := 0;
   count_even NUMBER(10) := 0;
BEGIN
   FOR i IN 1..Length(digits)
   LOOP
      length := Substr(digits, i, 1);
      IF mod(length, 2) != 0 THEN
         count_odd := count_odd + 1;
      ELSE
         count_even := count_even + 1;
      END IF;
   END LOOP;
   dbms_output.Put_line('count of odd digits in a number are : ' || count_odd);
   dbms_output.Put_line('count of even digits in a number are : ' || count_even);
END;

出力

上記のコードを実行すると、次の出力が生成されます-

count of odd digits in a number are : 5
count of even digits in a number are : 3