Задача на Delphi (умножение)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Задача на Delphi (умножение) - 2007-05-11 07:50:38.773333
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
Помогите написать, программу на Delphi, для умножения многозначных чисел.
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-11 08:50:35.366666
|
|
|
j0ker_
Сообщений: 609
Оценки: 0
Присоединился: 2005-03-07 15:09:25
|
А в чем собственно проблемма то?
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-11 09:27:58.336666
|
|
|
Hack_
Сообщений: 180
Оценки: 0
Присоединился: 2007-04-20 11:03:24.856666
|
Не вижу никакой проблемы! a:= b * c; Используйте для переменной а соответствующий тип, может unsignet long int подойдет. Или у Вас другая проблема? опишите подробнее…
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-13 18:02:55.120000
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
quote:
ORIGINAL: Hack_ Не вижу никакой проблемы! a:= b * c; уж слишком всё просто, тоже самое, что на экзамене по математике будет задание "вывести формулу умножения двух чисел"
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-13 20:28:10.473333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
asm
mov eax, 55
mov ecx, 75
imul eax, ecx
end;
:))))))))))))))
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-16 16:26:12.543333
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
у меня есть подозрения, что числа должны быть представлены массивом цифр.
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-16 17:31:35.833333
|
|
|
Le_Flaw
Сообщений: 49
Оценки: 0
Присоединился: 2006-05-26 13:12:43
|
имхо, вряд ли этот алгоритм будет отличаться от просто умножения столбиком
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-16 17:53:14.530000
|
|
|
NightmareZz
Сообщений: 1087
Оценки: 0
Присоединился: 2006-10-15 11:16:16.833333
|
quote:
ORIGINAL: NEFFboy у меня есть подозрения, что числа должны быть представлены массивом цифр. 20$ icq: 95-96-93
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-16 19:23:40.876666
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
quote:
ORIGINAL: NightmareZz 20$ icq: 95-96-93 из-за таких, как ты, у нас скоро не останется программистов.
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-31 16:18:42.420000
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
разобрался и сделал сам, вот что получилось:
program z1;
uses crt;
var a,b:string;
i,j,k,m:integer; c,d,x:array[1..253] of integer;
begin
clrscr;
readln(a);
readln(b);
j:=length(a);
for i:=1 to length(a) do
begin
val(a[i],c[j],m); j:=j-1;
end;
j:=length(b);
for i:=1 to length(b) do
begin
val(b[i],d[j],m); j:=j-1;
end;
k:=length(a)+length(b);
for i:=1 to k do
x[i]:=0;
for i:=1 to length(a) do
for j:=1 to length(b) do
x[i+j-1]:=c[j]*d[i]+x[i+j-1];
for i:=1 to k do
begin
x[i+1]:=x[i+1]+x[i] div 10;
x[i]:=x[i] mod 10;
end;
while x[k]=0 do k:=k-1;
for i:=k downto 1 do write(x[i]);
readkey;
end.
пользуйтесь ;)
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-31 16:55:34.496666
|
|
|
NightmareZz
Сообщений: 1087
Оценки: 0
Присоединился: 2006-10-15 11:16:16.833333
|
quote:
ORIGINAL: NEFFboy пользуйтесь ;) Нахер кому твой убогий код нужен?
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-31 17:02:17.686666
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
quote:
ORIGINAL: NightmareZz Нахер кому твой убогий код нужен? что бы ты продал его камому нибуть лоху за 20 wmz.
|
|
|
RE: Задача на Delphi (умножение) - 2007-05-31 17:30:23.480000
|
|
|
NightmareZz
Сообщений: 1087
Оценки: 0
Присоединился: 2006-10-15 11:16:16.833333
|
quote:
ORIGINAL: NEFFboy quote:
ORIGINAL: NightmareZz Нахер кому твой убогий код нужен? что бы ты продал его камому нибуть лоху за 20 wmz. Не, ну по поводу увеличения моих финансов за счёт лохов можешь не волноваться ;)
|
|
|
RE: Задача на Delphi (умножение) - 2007-06-05 11:46:17.930000
|
|
|
Шарлотан
Сообщений: 3
Оценки: 0
Присоединился: 2007-06-05 11:02:05.570000
|
quote:
ORIGINAL: NightmareZz quote:
ORIGINAL: NEFFboy пользуйтесь ;) Нахер кому твой убогий код нужен? Это, вообще- то, ещё не длинные числа. Ессесно, строками их не считывают. Там же, насколько я помню, 255 символов. Правильней было бы считать посимвольно числа из файла и в каждую ячейку массива складывать по десять таких, реализовать такой алгоритм, мне кажется, будет несколько сложнее…
|
|
|
RE: Задача на Delphi (умножение) - 2007-06-05 16:27:39.166666
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
quote:
20$ icq: 95-96-93 Вы, батенька, капиталист [sm=bq.gif]
|
|
|
|
|