Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal->C] Реализуется деление длинного числа,

Автор: rash 1.12.2006, 05:27

В этом коде реализуется деление длинного числа, представленного массивом цифр, на целое число. Если кто-то одинаково хорошо владеет и Pascal и C, переведите, пожалуйста, этот код.

Код


{$APPTYPE CONSOLE}
var
   m:array[0..60001]of byte;
   i,j,mlen:word;
   n,rem:longint;
   ch:char;

begin

   mlen:=0;
   while not eoln do begin
      read(ch);
      inc(mlen);
      m[mlen]:=ord(ch)-ord('0');
   end;
   readln(n);
   i:=1;
   j:=mlen;
   while i<j do begin
      m[0]:=m[i];
      m[i]:=m[j];
      m[j]:=m[0];
      inc(i);
      dec(j);
   end;
   rem:=0;
   for i:=mlen downto 1 do begin
      rem:=rem*10+m[i];
      m[i]:=rem div n;
      rem:=rem mod n;
   end;
   for i:=mlen downto 1 do
      if m[i]<>0 then
         break;
   for i:=i downto 1 do
      write(m[i]);
   writeln;
   writeln(rem);
   readln;
end.

Автор: Dov 1.12.2006, 10:46

Цитата(rash @ 1.12.2006, 04:27

)

Если кто-то одинаково хорошо владеет и Pascal и C

Паскалем не владею, но переводить пытаюсь smile

Код

#include <stdio.h>
#include <conio.h> 

int main()
{
    int  m[60001] = {0};
    int  i, j, mlen = 0;
    int  n, rem = 0;
    char ch;

    while((ch = getchar()) != '\n')
        m[++mlen] = ch - '0';

    scanf("%d", &n);
    
    for(i = 1, j = mlen; i < j; i++, j--)
    {
        m[0] = m[i];
        m[i] = m[j];
        m[j] = m[0];        
    }

    for(i = mlen; i; i--)
    {
        rem   = rem * 10 + m[i];
        m[i]  = rem / n;
        rem  %= n;
    }

    for(i = mlen; i; i--)
        if(m[i])
            break;

    while(i)
        printf("%d", m[i--]);

    putchar('\n');

    printf("rem = %d\n", rem);

    getch();

    return 0;
}