はじめてのDelphi（その３）

Private Sub Command1_Click()
 Dim iwork As Integer
 
 ' 乱数の発生（０〜９）
 Randomize
 iwork = Rnd * 10
 
 ' 条件文１
 If iwork > 5 Then
    Call MsgBox(Str(iwork) + " は５より大きい")
 End If
 
 ' 条件文２
 If (iwork Mod 2) = 0 Then
    Call MsgBox(Str(iwork) + " は偶数")
 Else
    Call MsgBox(Str(iwork) + " は奇数")
 End If
 
 ' 条件文３
 Select Case iwork
    Case 1 To 5
        Call MsgBox(Str(iwork) + " は１〜５")
    Case 7, 9
        Call MsgBox(Str(iwork) + " は７または９")
    Case Else
        Call MsgBox(Str(iwork) + " は１〜５，７，９以外")
 End Select
 
End Sub

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  // 乱数の発生（０〜９）
  time_t t;
  srand((unsigned) time(&t));
  int iwork = rand() % 10;

  // 条件文１
  if( iwork > 5 ){
    ShowMessage( IntToStr( iwork ) + " は５より大きい" );
  }

  // 条件文２
  if( ( iwork % 2 ) == 0 ){
    ShowMessage( IntToStr( iwork ) + " は偶数" );
  }
  else{
    ShowMessage( IntToStr( iwork ) + " は奇数" );
  }

  // 条件文３
  switch( iwork ){
  case 1:
  case 2:
  case 3:
  case 4:
  case 5:
    ShowMessage( IntToStr( iwork ) + " は１〜５" );
    break;
  case 7:
  case 9:
    ShowMessage( IntToStr( iwork ) + " は７または９" );
    break;
  default:
    ShowMessage( IntToStr( iwork ) + " は１〜５，７，９以外" );
    break;
  }
}
//---------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  iwork: Integer;
begin
  // 乱数の発生（０〜９）
  Randomize;
  iwork := Random(10);

  // 条件文１
  if iwork > 5 then
  begin
     ShowMessage( IntToStr( iwork ) + ' は５より大きい');
  end;

  // 条件文２
  if ( iwork mod 2 ) = 0 then
  begin
     ShowMessage( IntToStr( iwork ) + ' は偶数');
  end
  else
  begin
     ShowMessage( IntToStr( iwork ) + ' は奇数');
  end;

  // 条件文３
  case iwork of
    1..5: ShowMessage( IntToStr( iwork ) + ' は１〜５');
    7, 9: ShowMessage( IntToStr( iwork ) + ' は７または９');
  else
     ShowMessage( IntToStr( iwork ) + ' は１〜５，７，９以外');
  end;
end;