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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2011, 11:37   #1
CAMOBAP
Форумчанин
 
Регистрация: 07.12.2010
Сообщений: 115
По умолчанию Массивы (delphi)

С массивами никогда не работал. Но появилась некоторая идея, которую хотелось бы реализовать. Представление о структуре массивов есть.
Вообще задача в том что бы создать случайное количество массивов с пятью случайными переменными в нем. Далее добавить(либо отнять) к нескольким переменным в случайных массивах случайное число. Затем в конце удалить массивы переменные которых ниже определенного уровня.

к примеру есть 2 массива a и b

а: 1,2,3,4,5 {числа в данному случае переменные в массиве }
b: 0,9,8,7,6

далее добавляем к ним случайно числа.

a: 25, 56, 45, 92, 87
b: 43, 32, 67, 74, 0

и затем удалить массив у которого переменная № 2 меньше чем у другого. в данном случае b
CAMOBAP вне форума Ответить с цитированием
Старый 06.02.2011, 12:04   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
создать случайное количество массивов с пятью случайными переменными в нем
Код:
var
 a:array of array of integer;
begin
 SetLength(a,random(10),5);
  { TODO -oUser -cConsole Main : Insert code here }
end.
Цитата:
Далее добавить(либо отнять) к нескольким переменным в случайных массивах случайное число
Ну а это уже в цикле по массивам
Код:
 for i:=low(a) to high(a) do
  for j:=low(a[i]) to high(a[i]) do
    a[i,j]:=a[i,j]+50-random(100);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
массивы delphi Blue Sky Помощь студентам 2 13.01.2011 12:35
Массивы (delphi 7) Rondo Помощь студентам 1 12.12.2010 20:25
delphi-массивы RsGoLd Помощь студентам 7 10.12.2010 18:24
delphi массивы 1nd1g0 Помощь студентам 9 05.06.2010 15:20