Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

Ответ
 
Опции темы
Старый 16.04.2018, 19:45   #1
Ильгизар102
 
Регистрация: 16.04.2018
Сообщений: 6
Репутация: 10
По умолчанию Pascal- .Создание матрицы, у которой все элементы различны.

Как создать матрицу у которой все элементы будут разными, без повторений.
Не могу понять, каким образом это сделать, в интернете смотрел, там только одномерный массив таким образом заполняют. Помогите, пожалуйста
Ильгизар102 вне форума   Ответить с цитированием
Старый 16.04.2018, 20:10   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,080
Репутация: 6385
По умолчанию

а чем двумерный от одномерного отличается? Только еще один вложенный цикл. Можно если сильно хочется и одним циклом заполнить
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 16.04.2018, 21:39   #3
Ильгизар102
 
Регистрация: 16.04.2018
Сообщений: 6
Репутация: 10
По умолчанию

Я пробовал так делать, но не получалось, числа некоторые совпадали.
Если вы знаете, как выполнить, уделите время пожалуйста.
Ильгизар102 вне форума   Ответить с цитированием
Старый 16.04.2018, 21:48   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,080
Репутация: 6385
По умолчанию

Покажи как делаешь для одномерного массива
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 16.04.2018, 22:06   #5
Ильгизар102
 
Регистрация: 16.04.2018
Сообщений: 6
Репутация: 10
По умолчанию

label z;
const
n = 10;

var
m: array [1..n] of integer;
i, k: integer;

begin
randomize;
for i := 1 to n do
begin
z: m[i] := random(1, 10);
for k := 1 to i - 1 do
if m[k] = m[i] then goto z;
end;

for i := 1 to n do
write(m[i]:3);
end.
Ильгизар102 вне форума   Ответить с цитированием
Старый 16.04.2018, 22:50   #6
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,080
Репутация: 6385
По умолчанию

Код:

const n = 10;
var m: array [1..n,1..n] of Integer;
    i,j,k,i1,i2,j1,j2: Integer;
...
  Randomize;
  //заполнили от числами от 1 до n*n
  for i:=1 to n do
    for j:=1 to n do m[i,j]:=(i-1)*n+j;
  //Перемешали случайно
  for i:=1 to n*n do begin
    i1:=Random(n)+1; j1:=Random(n)+1;
    i2:=Random(n)+1; j2:=Random(n)+1;
    k:=m[i1,j1];
    m[i1,j1]:=m[i2,j2];
    m[i2,j2]:=k;
  end;

Цитата:
random(1, 10)
это в каком паскале?
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 16.04.2018 в 22:56.
Аватар вне форума   Ответить с цитированием
Старый 16.04.2018, 22:58   #7
Ильгизар102
 
Регистрация: 16.04.2018
Сообщений: 6
Репутация: 10
По умолчанию

Pascal ABC
Ильгизар102 вне форума   Ответить с цитированием
Старый 16.04.2018, 23:04   #8
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,080
Репутация: 6385
По умолчанию

не уверен, пусть будет так ))
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 16.04.2018, 23:07   #9
Ильгизар102
 
Регистрация: 16.04.2018
Сообщений: 6
Репутация: 10
По умолчанию

Спасибо за помощь, всё работает!
Ильгизар102 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана действительная матрица А (n,m) все элементы которой различны. Код Visual Basic (VBA) VBA. Microsoft Office Excel 1 01.05.2016 10:08
Найти и закрасить строки матрицы, все элементы которых различны Kate1414 Общие вопросы Delphi 1 11.06.2014 13:18
проверить все ли элементы в массиве различны. Proskurina Помощь студентам 7 08.09.2012 23:36
Перестановкой из n элементов называется последовательность длины n, все элементы которой различны. Получить перестановки (Паскаль) Pa s Помощь студентам 3 24.05.2012 13:06
Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается эл bayker Помощь студентам 5 30.05.2010 21:32


17:08.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru