0 / 0 / 0
Регистрация: 20.10.2019
Сообщений: 17
1

Найти минимум модуля произведения элементов с четными номерами и модуля произведения элементов с нечетными номерами

21.10.2019, 21:26. Показов 438. Ответов 6
Метки нет (Все метки)

В массиве t=(t1,t2, ...., tn) t=(t1,t2, ...., tn) найти меньшую из двух величин: модуля произведения элементов с четными номерами и модуля произведения элементов с нечетными номерами.
Помогите сделать, пожалуйста
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2019, 21:26
Ответы с готовыми решениями:

Все элементы массива с четными номерами заменить средним арифметическим элементов с нечетными значениями
1)Дан одномерный массив Yn. Удалить первые три элемента массива. Все элементы с четными номерами...

Найти максимальный элемент из его элементов с нечетными номерами
Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3,...

Найти сумму положительных элементов массива с нечетными номерами
а задача такая: в одномерном массиве состоящем из n вещественных чисел найти: сумму положительных...

Найти максимальный элемент массива из его элементов с нечетными номерами
пожалуйста дан массив A размера N. Найти максимальный элемент из его элементов с нечетными...

6
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
22.10.2019, 06:22 2
Цитата Сообщение от Anvak20 Посмотреть сообщение
сделать
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
VAR
t:array of Integer;
p1,p2,n,i:integer;
begin
Memo1.Clear;
randomize;
n := StrToInt(Edit1.Text);
SetLength(t, n);
p1 := 1; //произведение нечетных
p2 := 1; //произведение четных
for i := 0 to n-1 do begin
    t[i] := 10 - Random(21);
    StringGrid1.Cells[0,i] := IntToStr(t[i]);
    if odd(i) then p1 := p1 * t[i] else p2 := p2 * t[i];
    end;
Memo1.Lines.Add('Произведение четных: ' + IntToStr(p2));
Memo1.Lines.Add('Произведение нечетных: ' + IntToStr(p1));
if ABS(p1) > ABS(p2) then
Memo1.Lines.Add('Модуль произведения элементов с нечетными номерами больше модуля произведения элементов с четными номерами')
else Memo1.Lines.Add('Модуль произведения элементов с четными номерами больше модуля произведения элементов с нечетными номерами');
end;
0
Миниатюры
Найти минимум модуля произведения элементов с четными номерами и модуля произведения элементов с нечетными номерами  
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
22.10.2019, 07:59 3
лучше так, хотя такое врядли произойдет
Delphi
1
2
3
4
5
if ABS(p1) > ABS(p2) then
Memo1.Lines.Add('Модуль произведения элементов с нечетными номерами больше модуля произведения элементов с четными номерами')
else if ABS(p2) > ABS(p1) then
Memo1.Lines.Add('Модуль произведения элементов с четными номерами больше модуля произведения элементов с нечетными номерами')
else Memo1.Lines.Add('Модуль произведения элементов с четными номерами и модуль произведения элементов с нечетными номерами равны');
0
0 / 0 / 0
Регистрация: 20.10.2019
Сообщений: 17
22.10.2019, 23:15  [ТС] 4
AHBAR, в какой программе делал?
0
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
23.10.2019, 06:30 5
Anvak20, по скриншоту во вложении видно, что это Delphi 7
0
0 / 0 / 0
Регистрация: 20.10.2019
Сообщений: 17
24.10.2019, 18:18  [ТС] 6
AHBAR, спросили тип '"почему всего 5 значений получилось, где остальные?"
0
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
25.10.2019, 05:32 7
Anvak20, сорян, забыл указать после 9 строки
Delphi
1
StringGrid1.RowCount := n;
Добавлено через 52 секунды
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
VAR
t:array of Integer;
p1,p2,n,i:integer;
begin
Memo1.Clear;
randomize;
n := StrToInt(Edit1.Text);
StringGrid1.RowCount := n;
SetLength(t, n);
p1 := 1; //произведение нечетных
p2 := 1; //произведение четных
for i := 0 to n-1 do begin
    t[i] := 10 - Random(21);
    StringGrid1.Cells[0,i] := IntToStr(t[i]);
    if odd(i) then p1 := p1 * t[i] else p2 := p2 * t[i];
    end;
Memo1.Lines.Add('Произведение четных: ' + IntToStr(p2));
Memo1.Lines.Add('Произведение нечетных: ' + IntToStr(p1));
if ABS(p1) > ABS(p2) then
Memo1.Lines.Add('Модуль произведения элементов с нечетными номерами больше модуля произведения элементов с четными номерами')
else if ABS(p2) > ABS(p1) then
Memo1.Lines.Add('Модуль произведения элементов с четными номерами больше модуля произведения элементов с нечетными номерами')
else Memo1.Lines.Add('Модуль произведения элементов с четными номерами и модуль произведения элементов с нечетными номерами равны');
end;
Добавлено через 2 минуты

Не по теме:

Блин, я только сейчас осознал всю боль импортзамещения и "развития" отечественного ПО

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2019, 05:32

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ...
Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4,...

Произведение элементов массива с четными номерами
помогите сделать дана целочисленная квадратная матрица вычислить: произведение элементов массива с...

Вычислить произведение элементов массива с четными номерами
В одномерном массиве, состоящем из n целых элементов вычислить: 1. произведение элементов массива...

Массив: Получить сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: • сумму элементов массива...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.