Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2011, 23:04   #1
некрон
Новичок
Джуниор
 
Регистрация: 09.06.2011
Сообщений: 1
Стрелка курсовой проект-умножить два целых числа произвольной длины, представленных однонаправленными связаными списками

Напишите на языке Pascal программу multnum, умножающую два целых числа произвольной длинны, представленных однонаправленными связаными списками.


что здесь не так?

Код:
program multnum;
type pe=^element1;
element1=record
x:integer;
nexte;
end;
var q,ch1,ch2e;
l1,l2,i,n1,n2,w:integer;
kon:longint;
s1,s2,sq:string;
begin
randomize;
ch1:=nil;
ch2:=nil;
l1:=random(10)+1;
l2:=random(10)+1;
new(ch1);{sozdanie spiskov}
ch1^.x:=random(8)+1;
ch1^.next:=nil;
new(ch2);
ch2^.x:=random(8)+1;
ch2^.next:=nil;
for i:=1 to l1 do{zapolnenie spiskov}
begin
new(q);
q^.x:=random(8)+1;
q^.next:=ch1;
ch1:=q;
end;
for i:=1 to l2 do
begin
new(q);
q^.x:=random(8)+1;
q^.next:=ch2;
ch2:=q;
end;
for i:=1 to l1 do{chtenie dannyh iz spiskov}
begin
str(ch1^.x,sq);
s1:=s1+sq;
ch1:=ch1^.next;
end;
for i:=1 to l2 do
begin
str(ch2^.x,sq);
s2:=s2+sq;
ch2:=ch2^.next;
end;
val(s1,n1,w);
val(s2,n2,w);
kon:=n1*n2;
writeln(abs(kon));
end.


_________
А не так здесь следующее:

1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 10.06.2011 в 09:34.
некрон вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод с клавиатуры два целых числа без знака и вывод на экран их сумму. gelya_17 Помощь студентам 5 18.10.2010 10:31
Функция, которая сравнивает два целых числа. ~Az@liya~ Помощь студентам 6 15.06.2010 11:09
Умножение двух длинных целых чисел, представленных двунаправленными связанными списками Rifler Паскаль, Turbo Pascal, PascalABC.NET 0 28.05.2010 19:31
сложение чисел произвольной длины Ferza Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 24.06.2009 11:16
Как округлять числа до целых и как оставить два знака после запятой. bles Помощь студентам 9 19.02.2008 21:53