zoukankan      html  css  js  c++  java
  • delphi 判断奇数偶数

    delphi 判断奇数偶数

    procedure TForm2.Button2Click(Sender: TObject);
    var x: Integer;
    begin
      x := 1;
      if Odd(x) then
        ShowMessage(' x  是奇数')
      else
        ShowMessage(' x  是偶数');
     
      x := 2;
      if (x mod 2)=0 then
        ShowMessage(' x  是偶数')
      else
        ShowMessage(' x  是奇数');
    end;
    
    
     
    procedure TfrmMain.Button1Click(Sender: TObject); 
    var 
      i: Integer; 
      strTemp1, strTemp2: string; 
    begin 
      strTemp1 := ''; 
      strTemp2 := ''; 
      Edit2.Text := strTemp1; 
      Edit3.Text := strTemp2; 
      for i := 1 to StrToInt(Trim(Edit1.Text)) do 
      begin 
        if i mod 2 <> 0 then 
          strTemp1 := strTemp1 + IntToStr(i) + ',' 
        else 
          strTemp2 := strTemp2 + IntToStr(i) + ','; 
      end; 
      Edit2.Text := strTemp1; 
      Edit3.Text := strTemp2; 
    end; 
    
    delphi 判断奇数偶数
    
    if x mod 2=0 then write('偶数') else write('奇数');
    
    
  • 相关阅读:
    Android开发系列之ListView用法
    自省
    fake feeling ?
    我心中的天使
    2020.6.16
    python面试题
    tcp
    Short + skip + limit
    01_pyttsx3_将文本文字转为语音播放
    mongo_Linux下不进入数据库查数据
  • 原文地址:https://www.cnblogs.com/marklove/p/13073318.html
Copyright © 2011-2022 走看看