IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Инверсия массива
Vitamin
сообщение 10.12.2012 21:59
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


Здравсвуйте мне дали вот такое задание:
Заполнить массив из 12 элементов случайными числами в интервале от -12 до 12 и выполнить инверсию для каждой 3-ти массива.
Никак не могу понять как это сделать.
Подскажите пожалуйста.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
@nto$ka
сообщение 11.12.2012 9:45
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской

Репутация: -  0  +


Случайные числа:

В паскале есть функция random.

Если написать x:=random; то в икс будет занесено случайное дробное значение от нуля до единицы.

Но т.к. тебе нужны целые, то для этого служит функция random(a) которая возвращяет целое значение от нуля до a

Чтобы получить некоторое целое значение от a до b воспользуйся формулой a+random(b-a+1); В твоем случае это выглядит как -12+random(12+12+1);

Чтобы функция random работала правильно в самом начале программы вызывают процедуру randomize;

Инверсия:

Для каждой трети массива - это по 4 чисел.

Сделай внешний цикл i:=0 to 2 и внутренний цикл j:=1 to 2

Таким образом, тебе нужно будет поменять местами m[j+2*i] и m[5-(j+2*i)]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Vitamin
сообщение 19.12.2012 19:35
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


Сори я нейчано написал от гостя
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 14:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"