![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
NEFFboy |
![]() ![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
Нужно, составить программу для умножения многозначных чисел.
Заранее спасибо! -------------------- не дня без строчки кода.
|
Lapp |
![]()
Сообщение
#2
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Нужно, составить программу для умножения многозначных чисел. Каким образом заданы эти числа? Как массив цифр? Реализуй алгоритм умножения "в столбик". -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Bard |
![]()
Сообщение
#3
|
![]() Учиться, учиться еще раз учиться ![]() ![]() ![]() Группа: Пользователи Сообщений: 158 Пол: Мужской Реальное имя: Яшар Репутация: ![]() ![]() ![]() |
вот тебе прога для умножения 2 многозначных чисел
![]()
type
long=array[1..100] of real;
var c,d,x,y,z:long;
i,j,l,n,m,nz,nx,ny,k,w:integer;
f,g,h:text;
{***********************************************************}
Procedure Multiple(var x,y,z:long; var nx,ny,nz:integer);
var
k,i:integer;
Begin
for k:=1 to ny+1 do
For i:=1 to nx+1 do
z[i+k-1]:=z[i+k-1]+x[i]*y[k];
end;
{***********************************************************}
begin
assign(f,'in1.txt');
reset(f);
readln(f,n);
for k:=1 to n+1 do readln(f,x[k]);
close(f);
l:=0;
for i:=1 to n+1 do d[i]:=x[i];
for i:=1 to n+1 do x[i]:=d[(n+1)-i+1];
assign(g,'in2.txt');
reset(g);
readln(g,m);
for i:=1 to m+1 do readln(g,y[i]);
close(g);
j:=0;
for i:=1 to m+1 do c[i]:=y[i];
for i:=1 to m+1 do y[i]:=c[(m+1)-i+1];
nx:=n;
ny:=m;
nz:=nx+ny;
assign(h,'out.txt');
rewrite(h);
Multiple(x,y,z,nx,ny,nz);
writeln(h,nz);
For k:=nz+1 downto 1 do Write(h,z[k]:0:0,' ');
close(h);
end.
-------------------- Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Тысячу раз проверенные способы из FAQ: Длинная арифметика
надо проигнорировать, но написать свой (оттестированный вообще или нет - это я в БОЛЬШИХ сомнениях, но уж НИКАК не прошедший столько тестов, как способ, приведенный в FAQ-е за 3(!!!) года) метод, да? |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 10:19 |