![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() Маленький Принц ![]() Группа: Почетный форумчанин Сообщений: 2279 Регистрация: 5.1.2007 Вставить ник Цитата Из: Украина, Киев Пользователь №: 3475 Страна: ![]() Пол: ![]() ![]() |
Люди, я туплю страшно. Помогите :?
Вообщем задача: Умножить два длинных числа (длинная арифметика). Дано: Два файла: 1й: 1я строка- длинна 1го числа;2я строка- длинная 2го числа; 3я строка- 1е число; 4я строка- 2е число. 2й: в нем результат умножения. Числа заносятся в массивы. перемножаются, и со сдвигом записываются в двумерный массив. Числа с двумерного массива сумируются, и результат заносится в обычный массив. (Вообщем как в столбик, через массивы). Воть, если что несовсем понятно - спрашивайте. А процедурка нужна поскорее. Ибо последнюю лабу могу завалить :?: :idea: ЗЫ в инэте смотрел, то что нужно не нашел. -------------------- Бу!
![]() |
|
|
![]() |
![]()
Сообщение
#2
|
|
![]() Избранный ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Форумчанин Сообщений: 2430 Регистрация: 3.5.2006 Вставить ник Цитата Из: Варшава Пользователь №: 2491 Страна: ![]() Пол: ![]() ![]() |
А с этим кодом что?
(eternalko) program arraysum; var tosum: array [1...,1...] of Integer; //Почему он должен быть определен?? Вдруг числа оч. большие:))) actualwidth,actualheight,colsum,k,l: Integer; aresult: array [1..100] of Integer; begin for i := actualwidth downto 1 do begin while colsum do begin l:=k; aresult[l]:=aresult[l]+colsum mod 10; colsum:=colsum div 10 l:=l+1; end; k:=k+1; for j:= actualheight downto 1 do begin colsum:=colsum+tosum[j,i]; end; end; end; |
|
|
![]() ![]() |
![]() |
Текстовая версия Архив форума | Сейчас: 29.7.2025, 4:13 |
![]() |
![]() |