0

ex1、ex2、ex3など（整数）のように、番号順に並べられた変数がいくつかあります。「1」が入力された場合、プログラムは ex1 に +1 を追加し、2 が入力された場合、プログラムは ex2- に +1 を追加するような方法で、ユーザーが数字の文字を入力した回数を数えたいと思います。 on (演習では禁止されているため、配列は使用できません)。たとえば、ユーザーに 1 から 15 までの 15 個の数字を入力するように求め、それぞれの数字が何回入力されたかをカウントしたい場合、考えているコードは次のようなものになります。

for i:=1 to 15 do
    read(number);
    if number = i then
    Begin
        exi := exi + 1;
    End

明らかにそれはうまくいきませんでした。同様のことを行う変数を再定義することは可能ですか?.

4

1 に答える 1

1

配列をまったく使用できない場合は、いくつかの選択肢しかありません。

ケースステートメント

for i := 1 to 15 do
begin
  Read(number);
  case number of
    1: ex1 := ex1 + number;
    2: ex2 := ex2 + number;
    // rest of possible values and variables
  else
    // Handle number that doesn't have a variable
  end;
end;

if..else ステートメント

for i := 1 to 15 do
begin
  Read(number);
  if number = 1 then
    ex1 := ex1 + number
  else if number = 2 then
    ex2 := ex2 + number
  else if   // rest of possible values and variables

  else     // Handle number that doesn't have a variable

  end;
end;
于 2013-09-16T01:28:18.147 に答える