VPF::[Pascal->C] Реализуется деление длинного числа,

rash

Дата 1.12.2006, 05:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 3.10.2006

Репутация: нет
Всего: нет

В этом коде реализуется деление длинного числа, представленного массивом цифр, на целое число. Если кто-то одинаково хорошо владеет и 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.

Это сообщение отредактировал(а) alexeis1 - 1.12.2006, 13:57

Dov

Дата 1.12.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88

Цитата(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;
}

Это сообщение отредактировал(а) Dov - 1.12.2006, 10:50

--------------------

Тут вечности запах томительный,
И свежие фрукты дешевые,
А климат у нас – изумительный,
И только соседи – #уевые.
Игорь Губерман.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »