IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> операции над разреженными векторами, представленными в виде списков
сообщение
Сообщение #1


Гость






Пмогите пожалуйста. Никак не получается реализовать в виде списков внешнее произведение векторов:
(c1c2c3c4...cn2)=(a1a2a3a4..an)(b1b2b3b4..bn)=(a1b1,a1b2,a1b3,a1b4,..anbn-1,anbn)

тип список(sp) описан так:
type
sp=^s;
s=record
info:integer;
link:sp;
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Никак не получается
, значит, попытки были? Так покажи, чего ты пытался сделать. В частности, интересует заполнение списков, а то потом начнешь говорить, что наше решение "не работает". Знаем уже, было неоднократно...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






"Никак не получается" - значит, что я никак не могу придумать, как это сделать со списками.
Цитата
В частности, интересует заполнение списков

я не очень понял, что ты имеешь в виду, но списки вводятся так:
write('vvedite dlinnu vectorov:'); read(l);
write('vvedite elementi vectora a:');
a:=nil;
for i:=1 to l do begin
New(q);
q^.link:=a;
read(s);
q^.info:=s;
a:=q;
end;

точно так-же вводится и вектор b
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Произведение
(a1, a2, a3, a4, a5) X (b1, b2, b3, b4, b5)
полностью распиши (БЕЗ многоточий. Я думаю, тебя не устроит, если я в программе на самом интересном для тебя месте поставлю <...>)?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






(a1, a2, a3, a4, a5) X (b1, b2, b3, b4, b5) =(a1b1, a1b2, a1b3, a1b4, a1b5, a2b1, a2b2, a2b3, a2b3, a2b4, a2b5, a3b1, a3b2, a3b3, a3b4, a3b5, a4b1, a4b2, a4b3, a4b4, a4b5, a5b1, a5b2, a5b3, a5b4, a5b5)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Тогда - вот так:
{ Ввод списков A, B }
c := nil;
q := a;
while q <> nil do begin

r := b;
while r <> nil do begin
New(T);
T^.link := c;
T^.info := q^.info * r^.info;
c := T;

r := r^.link;
end;
q := q^.link;
end;
{ Вывод списка C }
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






volvo, спасибо тебе огромное.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.08.2017 22:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"