delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback



Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi








Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (0)


Modulo for huge numbersFormat this article printer-friendly!Bookmark function is only available for registered users!
Product:
Delphi all versions
Category:
Algorithm
Skill Level:
Scoring:
Last Update:
10/29/2002
Search Keys:
delphi delphi3000 article borland vcl code-snippet mod modulo StringModulo
Times Scored:
2
Visits:
3621
Uploader: Andreas Schmidt
Company:
Reference: N/A
 
Question/Problem/Abstract:
how to calc 1882882323243435345 mod 29
Answer:



It is possible to calculate the result of a modulo operation
digit by digit:


function StringModulo(const s:string; modarg:Integer):Integer;
var
   i : Integer;
begin
   Result := 0;
   for i := 1 to length(s) do
   begin
      // security check
      if not (s[i] in ['0'..'9']) then
         raise Exception.CreateFmt('StringModulo(%s, %d)'#13'Invalid Number !',
            [s, modarg]);
      Result := Result * 10 + ord(s[i])-Ord('0');
      Result := Result mod modarg;
   end;
end;

// Test cases to prove the function works properly
// 85391 mod 7 = 5
// 166199371 mod 13 = 0





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment













 
Sign up to consume product discounts for Bronze memberships !

read more


   


  Community Ad of
M. Maes
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)