Умножение длинного числа на короткое (Турбо Паскаль).
Здравствуйте! Задали написать программу, но довести ее до работоспособного состояния не получается. Пожалуйста, исправьте ошибки и укажите мне на них. Вот сама задача: "Умножение длинного числа на короткое. Под коротким понимается целое число типа LongInt". Вот то,что у меня получилось:
[PASCAL]
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) * K + C) Div Osn;
C := (LongInt(A)* K + C) 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.
[/PASCAL]
Здравствуйте! Задали написать программу, но довести ее до работоспособного состояния не получается. Пожалуйста, исправьте ошибки и укажите мне на них. Вот сама задача: "Умножение длинного числа на короткое. Под коротким понимается целое число типа LongInt". Вот то,что у меня получилось:
[PASCAL]
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) * K + C) Div Osn;
C := (LongInt(A)* K + C) 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.
[/PASCAL]