ايران ويج

ايران ويج > برنامه نویسی > دلفی > جمع اعداد فرد یا زوج یک تا صد
نسخه‌ی کامل: جمع اعداد فرد یا زوج یک تا صد
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

Admiral

۲۶-اردیبهشت-۱۳۸۹, ۰۱:۲۴:۱۶
سلام
استادم گفته یک برنامه باید با دلفی نوشته شود که جمع اعداد فرد یا زوج 1 تا 100 را بدهد.
بدون استفاده از for، while، goto ، repeat.
AngryAngry
گفته 5 نمره دارد اگر کسی این را انجام بدهد.
تورو خدا یکی کمک کند.
043043SadSad
033033033033033033Sad

The.Ghost

۲۶-اردیبهشت-۱۳۸۹, ۱۴:۵۵:۴۳
سلام دوست عزیز:
این کار فقط با اسمبلی می شود، یعنی باید اسمبلی را در دلفی بنویسی.
کد:
Function Sum_Zooj:Byte;
Var
SUM:Byte;
LABEL L1, K2, N1;
Const
  KGB:Byte=2;
Begin
  ASM
    MOV BL,1
    MOV SUM,0
    MOV CX,100
      L1:
        CMP CX,0
        JE N1
        MOV AL,BL
        MOV AH,0
        DIV KGB

        CMP AH,0
        JNE K2
         ADD SUM,BL

        K2:

        INC BL

    LOOP L1

    N1:

    MOV AL,SUM
    MOV @Result,AL
  END;
End;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Sum_Zooj));
end;

HoseinVig

۲۶-اردیبهشت-۱۳۸۹, ۱۵:۰۸:۰۷
از این فرمول استفاده کن
کد:
(n(n-1))/2
بجای n بزار 100
البته این برای اعداد 1تا 100 هست فکر کنم اگه نصفشونو بخای باید یه تقسیم بر دو بکنی
ايران ويج > برنامه نویسی > دلفی > جمع اعداد فرد یا زوج یک تا صد