Из списка сформировать новый список по следующему правилу

@NOCaut · Регистрация: 18.06.2009

Студворк — интернет-сервис помощи студентам

Всем доброе время суток! Не могли бы вы помочь в написании программы?

Данные вводить с клавиатуры.
Дано список, элементами которого являются списки длины n действительных чисел. Составить программу, которая из этого списка формирует новый список по следующему правилу: n-й элемент список исходного списка содержит n-не числа элементов-списков данного списка. Например, если входным списком является [[1, 2, 3], [4, 5, 6], [7, 8, 9], [10,11,12]], то исходным списком должен быть такой список: [[ 1, 4, 7, 10], [2, 5, 8, 11], [3, 6, 9, 12].

Добавлено через 10 часов 4 минуты
Спасибо уже написал

@Nazz · 01.04.2010, 10:14

естли можно, то выложите скрипт,.. может кому ещё пригодиться))

@NOCaut · 06.04.2010, 10:55 **[ТС]**

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
domains
  list=real*
  list2=list*
predicates
  input_n(integer)
  input_nn(integer)
  inputmain(list2,integer,integer)
  outputmain(list2)
  outputlist(list)
 
inputlist(list,integer)
trans(list2, list2, integer)
trans(list2, list2, integer, integer)
get_nth(integer, list, real)
nondeterm get_nth_nd(list2, integer, real)
nondeterm member(list, list2)
 
clauses
  input_n(N):-write("Input list count in the list"),readint(N).
  input_nn(N):-write("Input element count in the list"),readint(N).
 
 inputmain([List|MainList],ListN,ElemN):-
     ListN>0,NewListN=ListN-1,
     inputlist(List,ElemN),nl,
     inputmain(MainList,NewListN,ElemN).
  inputmain([],_,_).
 
  inputlist([Element|List],ElemN):-
     ElemN>0,NewElemN=ElemN-1,
     write("Element:"),readreal(Element),
     inputlist(List,NewElemN).
  inputlist([],_).  
 
  outputmain([]).
  outputmain([List|MainList]):-
     write(" [ "),
     outputlist(List),
     write("] "),
     outputmain(MainList).
     
  outputlist([]).
  outputlist([H|T]):-
     write(H),write(" "),
     outputlist(T).
 
 
get_nth(1,[A|_],A):- !.
get_nth(N,[_|L],A):- N1=N-1,get_nth(N1,L,A).
 
get_nth_nd(LL, N, A):- member(L, LL), get_nth(N, L, A).
 
member(A, [A|_]).
member(A, [_|L]):- member(A, L).
 
trans(LL, LL1, N):- trans(LL, LL1, 1, N).
 
trans(LL,[L1|LL1],C,N):-
    C<=N, 
    !,
    findall(X, get_nth_nd(LL, C, X), L1),
    C1=C+1,
    trans(LL,LL1,C1,N).
trans(_,[],_,_).
 
goal
  makewindow(1,2,3,"",0,0,25,80),
  input_n(List_n),input_nn(Element_n),
  inputmain(List,List_n,Element_n),
  write("[ "), outputmain(List), write(" ]"), nl,nl,
  trans(List,ListT,Element_n),
  write("[ "), outputmain(ListT), write(" ]"), nl,nl.

@Aselek · 10.04.2010, 22:53

можете решить эту задачу?
3.2. Имеется список, каждый элемент которого, в свою очередь является списком. Отсортировать список верхнего уровня (по возрастанию сумм элементов-списков второго уровня).

можете скинуть прогу на почту lessya255@mail.ru

я уже спать не могу из-за этой проги, она у меня никак не получается.....

@NOCaut · 11.04.2010, 15:47 **[ТС]**

Дле етого нужно создать новую тему. И думаю вам помогут

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@NOCaut 3 / 3 / 0 Регистрация: 18.06.2009 Сообщений: 37

	Из списка сформировать новый список по следующему правилу 01.04.2010, 10:13. Показов 1640. Ответов 4 Метки нет (Все метки) Всем доброе время суток! Не могли бы вы помочь в написании программы? Данные вводить с клавиатуры. Дано список, элементами которого являются списки длины n действительных чисел. Составить программу, которая из этого списка формирует новый список по следующему правилу: n-й элемент список исходного списка содержит n-не числа элементов-списков данного списка. Например, если входным списком является [[1, 2, 3], [4, 5, 6], [7, 8, 9], [10,11,12]], то исходным списком должен быть такой список: [[ 1, 4, 7, 10], [2, 5, 8, 11], [3, 6, 9, 12]. Добавлено через 10 часов 4 минуты Спасибо уже написал 0

@Nazz 898 / 729 / 80 Регистрация: 12.03.2009 Сообщений: 2,804 Записей в блоге: 2
	01.04.2010, 10:14
	естли можно, то выложите скрипт,.. может кому ещё пригодиться)) 0

@Aselek 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 5
	10.04.2010, 22:53
	можете решить эту задачу? 3.2. Имеется список, каждый элемент которого, в свою очередь является списком. Отсортировать список верхнего уровня (по возрастанию сумм элементов-списков второго уровня). можете скинуть прогу на почту lessya255@mail.ru я уже спать не могу из-за этой проги, она у меня никак не получается..... 0

@NOCaut 3 / 3 / 0 Регистрация: 18.06.2009 Сообщений: 37
	11.04.2010, 15:47 [ТС]
	Дле етого нужно создать новую тему. И думаю вам помогут 1

Опции темы