Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 1
Регистрация: 20.09.2013
Сообщений: 103
1

Выполнить декартово произведение

11.10.2013, 17:02. Показов 1308. Ответов 3
Метки нет (Все метки)

Вобщем имеем масив Х={1,2,3,4,5}(одномерный)
дальше мы должны выполнить декартово произведение
Х х Х={(1.1)(1,2)(1,3)(1,4)(1,5)(2,1)(2,2)(2,3)(2,4)(2,5)(3,1)(3 ,2)(3,3)(3,4)(3,5)(4,1)(4,2)(4,3)(4,5)(5,1)(5,2)(5,3)(5,4)(5 ,5)} получивший массив - двумерный

C
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
using System;
using System.Linq;
 
namespace ConsoleApplication11
{
    class Program
    {
        static void Main()
        {
            var a = new[] { 1, 2, 3, 4, 5 };
            var b = from x in a
                    select new {A = 
                        from y in a
                        select new { X = x, Y = y }
                    };
            foreach (var v in b)
            {
                foreach (var p in v.A)
                    Console.Write("({0},{1}) ",p.X,p.Y);
                Console.WriteLine();
            }
            Console.ReadKey();
        }
    }
}
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2013, 17:02
Ответы с готовыми решениями:

Выполнить декартово произведение (исправить код)
Вобщем имеем масив Х={1,2,3,4,5}(одномерный) дальше мы должны выполнить декартово произведение Х...

декартово произведение
AxB=? A={пустое множество} B={{a},c}

Декартово произведение
Если есть некоторое множество элементов и мне надо вычислить количество подмножеств данного...

Декартово произведение
A = {a,b,c} B={a,b,{c}} Я знаю, как декартово произведение множеств находится, но когда во...

3
Модератор
1626 / 1081 / 485
Регистрация: 17.07.2012
Сообщений: 5,326
11.10.2013, 18:11 2
Цитата Сообщение от drwho94 Посмотреть сообщение
из с++ в паскаль
Ты будешь смеяться,это С#.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31090 / 20313 / 7910
Регистрация: 22.10.2011
Сообщений: 35,220
Записей в блоге: 6
11.10.2013, 18:29 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

drwho94, чего надо-то? Такую же матрицу напечатать, как печатает Шарповый код?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses SysUtils;
var
  X : array[1 .. 5] of integer = (1, 2, 3, 4, 5);
 
  px, py : Integer;
begin
  for px in X do
  begin
    for py in X do
      write(Format('(%d,%d)', [px, py]));
    writeln;
  end;
end.
(компилятор - FPC 2.6.2)
1
Новичок
11.10.2013, 18:36     Выполнить декартово произведение
  #4

Не по теме:

Цитата Сообщение от UI Посмотреть сообщение
Format('(%d,%d)'
Спецификаторы прям как в С++.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2013, 18:36
Привет! Вот еще темы с ответами:

Декартово произведение
Добрый день помогите разобраться с задачей. " Вычислить координаты всех восьми соседей заданной...

Декартово произведение множеств
Посчитайте |(A\times B)\backslash (C\times...

Декартово произведение графов
Объясните пожалуйста декартово произведение графов(маленький пример). Перелопатил инет, расходятся...

Составьте декартово произведение
Пусть X = {"уксус";"укус";"лук";"ласка"}, Y = {а; к; л; с; у}. Составьте декартово...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.