Одномерный массив в Lazarus

@Antoffa · Регистрация: 31.03.2016

Студворк — интернет-сервис помощи студентам

1. Заменить первый элемент массива, кратный 5, нулем.

2. Заменить элементы массива с нечетными номерами на квадраты их номеров.

3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле A_i= D_i^2, а если нечетный, то по формуле A_i = D_i / i.

@Puporev · 04.04.2016, 11:02

Поправил текст.

@ПраПрапорщик · 05.04.2016, 17:14

1.

Delphi

1
2
3

for i := 0 to Length(MyArray) - 1 do
if MyArray[i] mod 5 = 0 // если элемент кратен 5 (то есть делится на 5 без остатка (операция mod возвращает остаток))
then MyArray[i] := 0;

2.

Delphi

1
2
3

for i := 0 to Length(MyArray) - 1 do
if (i mod 2) > 0 // если номер элемента нечетный
then MyArray[i] := i*i;

3.

Delphi

1
2
3

for i := 0 to Length(MyArray) - 1 do
if (i mod 2) > 0 then A[i] := D[i] / i else
A[i] := D[i]*2;

Но, чтобы не возникла ошибка деления, лучше провести операции над 0 и 1-ым элементами вручную

Добавлено через 16 минут
Вернее, 0-й элемент по-любому будет 0, а 1-й равняться самому себе, поэтому можно просто начать со 2-го

Delphi

1	for i := 2 to Length(D) - 1 do

@Joy · 06.04.2016, 12:02

ПраПрапорщик, п.1. нужно заменить только первый элемент, а не все.
п.3. - ... :

Сообщение от ПраПрапорщик

A[i] := D[i]*2;

заменить на

Delphi

1	A[i] := sqr(D[i]);

Сообщение от ПраПрапорщик

Но, чтобы не возникла ошибка деления, лучше провести операции над 0 и 1-ым элементами вручную

ошибки деления не возникнет, т.к. 0 - четное число

@Antoffa 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 37
		1
	Одномерный массив в Lazarus 31.03.2016, 21:28. Показов 1652. Ответов 3 Метки нет (Все метки) 1. Заменить первый элемент массива, кратный 5, нулем. 2. Заменить элементы массива с нечетными номерами на квадраты их номеров. 3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле A_i= D_i^2, а если нечетный, то по формуле A_i = D_i / i. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	04.04.2016, 11:02	2
	Поправил текст. 0

Опции темы