Умножение длинного числа на короткое (Турбо Паскаль)

[IvaIlga]

Здравствуйте! Задали написать программу, но довести ее до работоспособного состояния не получается. Пожалуйста, исправьте ошибки и укажите мне на них. Вот сама задача: "Умножение длинного числа на короткое. Под коротким понимается целое число типа LongInt". Вот то,что у меня получилось:

 Program Multiplication_of_long_numbers;
type Tlong=record n:longint;
procedure Mul(Const A : TLong; Const K : Longlnt; Var C : TLong);
Var i : Integer;
Begin
FillChar (С, SizeOf(С), 0);
if K = 0 Then Inc(С[0])
else begin
For i:= l To A[0] Do
begin
C[i+l] := (LongInt(A[i]) * K + C[i]) Div Osn;
C[i] := (LongInt(A[i])* K + C[i]) Mod Osn
end;
iIf C[A[0]+1] > 0 Then C[0]:= A[0] + 1
else C[0]:= A[0]
end;
end;
var
s, t, r : longint;
begin
writeln('Vvedite chislo 1:');
readln(s);
writeln('Vvedite chislo 2:');
readln(t);
multLong(s,t,r);
writeln('Rezyltat:', r);
end.

[mss]

Под коротким понимается целое число типа LongInt

А под длинным у тебя вообще хз что понимается.
Пока не определишься с этим - дальнейшие твои потуги бессмысленны.

For i:= l To A[0] Do

A[0] - это что вообще за бред, если параметр A не строка и не массив, а запись ?

[Serge_Bliznykov]

1) у Вас тип record не закрыт словом end (да и вообще, это не RECORD!)

2) TLong - у Вас тоже Longint

3) а с чего Вы взяли, что длинные числа (судя по описанию типа TLong - это longint??!

длинные числа, это, например 1000 десятичных знаков:

type TLong = array[1..1000] of byte;

p.s. на форуме были пример на длинную арифметику, посмотрите, как там записываются длинные числа...

[Utkin]

Да, кажись в разделе Обсуждение программ
По данной теме есть статья (в двух частях) в журнале ПРОграммист, адрес найдете сами.
И если вам интересно - по моему очень скромному опыту написания длинной арифметики - гонять основания чисел в каждой операции для чисел с неизвестным числом разрядов, как минимум медленно. Проще их все сразу при получении переводить в определенную систему счисления, проводить операции, и уже потом возвращать число в нужной системе счисления. Касательно самого умножения - разложите задачу на составляющие - сначала реализуйте процедуру умножения длинного числа на один разряд (на одну цифру). А потом полноценное умножение.

[IvaIlga]

Проблема в том,что я новичок в Турбо Паскале (но специалист по web-дизайну, верстке сайтов..это мне легко дается. В этой сфере я с радостью подсказываю и помогаю решить ту или иную задачу), а тему длинная арифметика поняла не полностью, точнее принцип работы с длинными числами. Программу,код которой я указала, собрала из из разных кусочков. Постаралась подогнать под свою,но она все равно выдает ошибку. Буду очень благодарна,если вы поможете исправить код.

[Serge_Bliznykov]

Буду очень благодарна,если вы поможете исправить код

Так Вам уже три сообщения подряд твердят, что Ваш код нельзя исправить - его надо полностью переписывать!

[IvaIlga]

Сообщение от Serge_Bliznykov

Так Вам уже три сообщения подряд твердят, что Ваш код нельзя исправить - его надо полностью переписывать!

Понятно. Я нашла код программы умножающий два длинных числа - более менее поняла его (Создается два массива для двух чисел,каждая цифра которого хранится отдельно в ячейке. А результат сохранятся в первый массив,в тот же,в котором хранится первое число). Что нужно изменить,чтобы длинное число умножить на короткое? я пробовала уменьшить длину второго массива,но тогда результат выводится с нулями.

program Mult;
uses crt;
var 
    row  : array[1..20000] of byte;
    col  : array[1..10000] of byte;
    nr,nc,dp : integer;
    c : char;
 procedure PrintResult;
begin
     write('Rezultat ');
     while (dp<=high(row)) do begin
        write(char(row[dp]+ord('0')));
        inc(dp);
     end;
     writeln;
end;
procedure Multiplying;
var i,j,cr,cc:integer;
    carry,sum:longint;
begin
    dp:=high(row); cr:=nr; cc:=nc;
    carry := 0;
    while (cc>0) do begin
        i:=cr; j:=cc; sum:=carry;
        while (i<=nr) and (j>=1) do begin
           sum:=sum+row[i]*col[j];
           inc(i); dec(j);
        end;
        row[dp]:=sum mod 10; dec(dp);
        carry:=sum div 10;
        if cr>1 then dec(cr) else dec(cc);
    end;
    while (carry<>0) do begin
        row[dp]:=carry mod 10;
        carry:=carry div 10;
        dec(dp);
    end;
    inc(dp);
end;
 begin
     fillchar(row,sizeof(row),0); fillchar(col,sizeof(col),0);
     writeln('Vvedite 1 chislo:');
     c:=#0;
     while NOT(c in ['0'..'9']) do c:=readkey;
     nr:=0;
     while (c in ['0'..'9']) do begin
        write(c);
        inc(nr); row[nr]:=ord(c)-ord('0');
        c:=readkey;
     end;
     writeln;
     writeln('Vvedite 2 chislo:');
     while NOT(c in ['0'..'9']) do c:=readkey;
     nc:=0;
     while (c in ['0'..'9']) do begin
        write(c);
        inc(nc); col[nc]:=ord(c)-ord('0');
        c:=readkey;
     end;
     writeln;
     Multiplying; 
PrintResult;
readkey;
end.