تابع Odd در پاسکال
تابع Odd در پاسکال : از این تابع برای برسی فرد بودن یک عدد استفاده میشود
شکل
function Odd (X : Longint):Boolean;
توضیحات : پارامتر X باید یک عبارت یا متغییر عددی از نوع longint باشد
حاصل این تابع از نوع Boolean خواهد بود
در صورتی که پارامتر X عددی فرد باشد
تابع Odd دارای حاصل Ture و در غیراین صورت حاصل False خواهد بود
مثال :
Var
A:Integer;
begin
ReadLn(A);
if Odd (A);
the WriteLn ('Odd')
else WriteLn ('Even');
end.
برنامه فوق عددی را از کاربر دریافت نموده و سپس فرد بودن آن را مورد برسی قرار میدهد
در صورتی که عدد وارد شده فرد باشد کلمه Odd نمایش داده خواهد شد
و در غیر این صورت کلمه Even نمایش داده خواهد شد
[adinserter block="1"]
