Умножение длинного числа на короткое (Турбо Паскаль).
Здравствуйте! Задали написать программу, но довести ее до работоспособного состояния не получается. Пожалуйста, исправьте ошибки и укажите мне на них. Вот сама задача: "Умножение длинного числа на короткое. Под коротким понимается целое число типа 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[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. [/PASCAL] |
Сразу видно что человек с Cyberforum.ru жаль но тега [PASCAL] здесь нет
|
Цитата:
|
Часовой пояс GMT +4, время: 18:01. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.