Помогите решить задачу за 9 касс по информатике.

+ 0 -

Onishko11

25 сент. 2013 г., 18:18:46 (10 лет назад)

Реализовано целочисленное умножение произвольной точности.

const
  n = 100;{максимальное количество цифр в числе}

type
  big = record
    v: array[1..n] of byte; {массив с цифрами числа}
    m: integer {количество цифр в числе}
  end;

function TruncBig(a: big): big;
{Усекает незначащие нули}
var
  i, p, n: integer;

begin
  n := a.m;
  p := 0;
  while (p < n) and (a.v[p + 1] = 0) do p := p + 1;
  for i := 1 to n - p do Result.v[i] := a.v[i + p];
  Result.m := n - p
end;

function Str2Big(s: string): big;
{Переводит строковое представление в big}
var
  i, n, k, err: integer;

begin
  n := Length(s);
  Result.m := n;
  for i := 1 to n do
  begin
    Val(s[i], k, err);
    Result.v[i] := k
  end
end;

function Big2Str(p: big; truncation: boolean := false): string;
{Переводит представление big в строковое}
var
  i, n: integer;
  c, s: string;

begin
  s := '';
  n := p.m;
  for i := 1 to n do
  begin
    Str(p.v[i], c);
    s := s + c
  end;
  if truncation then begin
    i := 0;
    while (s[i + 1] = '0') and (i < n) do i := i + 1;
    if i > 0 then s := Copy(s, i + 1, n - i)
  end;
  Result := s
end;

function MultBig(a, b: big): big;
{Возвращает произведение чисел типа big}
var
  i, j, k, m, n, s: integer;

begin
  m := a.m; n := b.m;
  for i := m to m + n do Result.v[i] := 0;
  Result.m := m + n;
  for j := n downto 1 do
  begin
    if b.v[j] = 0 then Result.v[j + m + n - 1] := 0
    else begin
      k := 0;
      for i := m downto 1 do
      begin
        s := a.v[i] * b.v[j] + Result.v[i + j] + k;
        Result.v[i + j] := s mod 10;
        k := s div 10
      end;   
      Result.v[j] := k
    end
  end;
  Result := TruncBig(Result);
end;

var
  a, b: big;
  s: string;
  i: integer;

begin
  s := '101';
  a := Str2Big(s);
  i := 103;
  while i <= 150 do
  begin
    Str(i, s);
    b := Str2Big(s);
    a := MultBig(a, b);
    i := i + 2
  end;
  Writeln(Big2Str(a))
end.

Результат выполнения:
22366756668201709645820891817450061318871259559453125

**** Если точность не нужна ****

var
  p: double;
  i: integer;

begin
  i := 103; p := 101;
  while i <= 150 do
  begin
    p := p * i;
    i := i + 2
  end;
  Writeln(p)
end.

Результат выполнения:
2.23667566682017E+52

+ 0 -

Anderson8

25 сент. 2013 г., 19:48:54 (10 лет назад)

Т.е. все же программу написать? Или Вы будете по ней вручную 25 чисел перемножать? Там получается ответ 22366756668201709645820891817450061318871259559453125 и с этой точностью он непредставим в компьютере при использовании обычных средств арифметики.

+ 0 -

LomtikA

25 сент. 2013 г., 20:19:43 (10 лет назад)

Напишите программу если не сложно..

+ 0 -

Ooolllyyyaaa

25 сент. 2013 г., 22:45:14 (10 лет назад)

Вы меня не поняли? Нельзя в машине даже в 16 байтах (это максимальная разрядность целых чисел) представить такой результат. А с плавающей точкой результат будет ограничен точностью в 16-17 цифр

+ 0 -

Qweeck

25 сент. 2013 г., 23:16:56 (10 лет назад)

Вместо того, что я написал выше, получится 2.23667566682017E+52

+ 0 -

656870781

26 сент. 2013 г., 1:56:50 (10 лет назад)

Устроит?