26-09-2016, 03:14 AM
(آخر تعديل لهذه المشاركة: 26-09-2016, 09:44 PM بواسطة أبو معاذ.
تعديل السبب: استعمال الوسم كود.
)
اخي دلفي يستطيع الحساب عادي و دا حل لك ، فقط ماهو هدا RIP و فيما يستعمل ؟
------------------
-----------
------------------
كود :
PROGRAM CCP;
{$APPTYPE CONSOLE}
USES
WINDOWS,SYSUTILS,CLASSES;
VAR
CCP_NUM,RIP : CARDINAL;
CCP_STR,EXIT_STR : STRING;
CONST
ELF : STRING = #13 + #10;
BEGIN
WRITELN ('WRITE CCP NUMBER' + ELF);
READLN (CCP_STR);
IF TRYSTRTOINT(CCP_STR,INTEGER(CCP_NUM)) THEN
BEGIN
IF CCP_NUM <= 9999999 THEN
BEGIN
RIP := CCP_NUM * 100; //1
RIP := RIP MOD 97; //2
RIP := RIP + 58; //3
IF RIP >= 97 THEN
RIP := RIP - 97; //4
RIP := 97 - RIP; //5
WRITELN ('RIP CODE IS : ' + ELF + INTTOSTR(RIP) + ELF);
END
ELSE
WRITELN ('ERROR : CCP CODE MAX 7 CHIFFRES' + ELF);
END
ELSE
WRITELN ('ERROR : CCP CODE EST SAUF NUMUREUX ' + ELF);
READLN(EXIT_STR );
END.-----------