|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
04.05.2011, 17:51 | #1 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Умножение длинного числа на короткое (Турбо Паскаль).
[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] |
04.05.2011, 17:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам пролистать данные темы, в них наверняка много полезного Помогите составить программу на турбо паскаль Расчет производной на языке турбо паскаль Паскаль. Сумма цифр числа Турбо Паскаль |
05.05.2011, 16:25 | #3 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|