Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Присваивание чисел массиву, Проблема в синтаксисе... 
:(
    Опции темы
Mick Winder
  Дата 24.11.2004, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1



Народ!
Подскажите...

Как правильно написать синтаксически следующий код:

var
ew: array [1..30] of Integer;
k, krd: Integer;


begin
...

krd:= 9;
for k:=1 to krd do
ew[k]:= (6, 7, 8, 13, 14, 20, 21, 27, 28); // ???????
...

end;


Добавлено @ 15:04
Вопрос простой. Но позабыл такое дело...
PM MAIL   Вверх
Garabar
Дата 24.11.2004, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1



Если те нужен именно массив то баюсь так не получиться, а подобным образом может получиьтся если вместо массива использовать множество, а так для массива пиши так:
ew[1]:=6; ew[2]:=7; и т. д. smile
PM MAIL   Вверх
volvo877
Дата 24.11.2004, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Mick Winder
Единственное решение, которое может тебе помочь:
Код

Const
 ew: array [1..30] of Integer = (6, 7, 8, 13, 14, 20, 21, 27, 28, ... );
 { Явно инициализируешь ВСЕ элементы массива ew (все 30 элементов; те, что тебе не нужны можешь обнулить)}

begin
...
{ Используешь ew как обычно }
...
end;


PM MAIL   Вверх
Mick Winder
Дата 24.11.2004, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1



Какая жалость!!! smile
Спасибо! Множество здесь не подойдет... Увы!
Добавлено @ 15:37
Цитата(volvo877 @ 24.11.2004, 15:31)
Mick Winder
Единственное решение, которое может тебе помочь:
Код

Const
 ew: array [1..30] of Integer = (6, 7, 8, 13, 14, 20, 21, 27, 28, ... );
 { Явно инициализируешь ВСЕ элементы массива ew (все 30 элементов; те, что тебе не нужны можешь обнулить)}

begin
...
{ Используешь ew как обычно }
...
end;

Это тоже не подойдет...
Мне нужно получить 70 массивов из разных чисел... Увы!
PM MAIL   Вверх
Garabar
Дата 24.11.2004, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1



Цитата
Мне нужно получить 70 массивов из разных чисел... Увы!

тогда пиши их в файло и от туда закачивай.))

PM MAIL   Вверх
Pakshin A. S.
Дата 24.11.2004, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Код

var
ew: array [1..30] of Integer;
k, krd: Integer;


begin
...

ew[1]:=6;
ew[2]:=7;
и т. д., и т. п.
...

end;

PM   Вверх
Mde
Дата 24.11.2004, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет



Цитата
Мне нужно получить 70 массивов из разных чисел... Увы!


Тогда совет один Изучи списки али записи
PM MAIL WWW ICQ   Вверх
Zero
Дата 24.11.2004, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Pakshin A. S., извени что перебиваю, но такой же код представлен у Garabar, а Mick Winder, сказал что ничего из этого не подходит, поэтому в соответствии, с
Цитата(Mick @ 24.11.2004, 15:35)
Это тоже не подойдет...
Мне нужно получить 70 массивов из разных чисел... Увы!

Код

program pr;
var
  num,ew1,ew2,ew3:array[1..30] of integer;
  i,k,krd:integer;
begin
  randomize;
  krd:=9;
  for i:=1 to 3 do
    for k:=1 to krd do
      begin
        ew1[k]:=random(90);
        ew2[k]:=random(90);
        ew3[k]:=random(90);
      end;
end.

Только, заместо 70 я сделал 3, но ты можеш сделать хоть 100000000000000000000000000000 smile
А разные числа получаются за счёт оператора Random
PM MAIL ICQ   Вверх
Mick Winder
Дата 25.11.2004, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1



Цитата(Mde @ 24.11.2004, 22:29)
Цитата
Мне нужно получить 70 массивов из разных чисел... Увы!


Тогда совет один Изучи списки али записи

А кто тебе сказал, что я их не знаю? smile


Мнда, народ!!! Ну, и развеселили меня! Ох, как развеселили!!!
Пожалуй, использую файл...
PM MAIL   Вверх
Pakshin A. S.
Дата 25.11.2004, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



М
 
Тогда, чтобы больше не веселился, закрываем тему...

PM   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.4365 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.