Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 77
1

Найти произведение элементов массива расположенных на нечетных местах и выбрать большее из них

02.02.2011, 09:13. Просмотров 1459. Ответов 4
Метки нет (Все метки)

В каждом из массивов T(14) и D(9) найти произведение элементов расположеных на нечетных местах и выбрать большее из них
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.02.2011, 09:13
Ответы с готовыми решениями:

Найти произведение элементов расположенных на нечетных местах массива и выбрать большее из них
решить с помощью функции... В каждом из массивов T(14) и D(9) найти произведение элементов...

Найти произведение положительных элементов массива, расположенных на нечётных местах
Дан двумерный массив. Найти произведение положительных элементов массива, расположенных на нечётных...

Функция которая находит произведение элементов массива расположенных на НЕчетных местах
С помощью указателей, написать функцию которая находит произведение элементов массива расположенных...

Вычислить произведение нечетных элементов одномерного массива, расположенных на четных местах
1. Вычислить произведение нечетных элементов одномерного массива, расположенных на четных местах....

4
22 / 22 / 7
Регистрация: 05.08.2010
Сообщений: 95
02.02.2011, 12:20 2
Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38

uses crt;
const
   n=6;
var
   i:byte;
   t, d:array[1..n] of real;
   rResT, rResD:real;
 
begin
clrscr;
for i:=1 to n do
begin
write('Введите ', i, 'й элемент массива T: ');
readln(t[i]);
end;
for i:=1 to n do
begin
write('Введите ', i, 'й элемент массива D: ');
readln(d[i]);
end;
 
rResT:=1; rResD:=1;i:=0;
while i<n do
begin
i:=i+1;
rResT:=rResT*t[i];
rResD:=rResD*d[i];
end;
writeln('Произведение нечетных элементов масива T= ', rResT:5:2);
writeln('Произведение нечетных элементов масива D= ', rResD:5:2);
if rResD>rResT then
writeln('Максимальное произведение - произведение массива D и равно ', rResD:5:2);
if rResT>rResD then
writeln('Максимальное произведение - произведение массива T и равно ', rResT:5:2);
if rResD=rResT then
writeln('Произведения нечетных элементов массивов D и T равны и составляют ', rResD:5:2);
readln;
end.
если в скобках указаны размеры массивов:
Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

uses crt;
var
   i:byte;
   t:array[1..14] of real;
   d:array[1..9] of real;
   rResT, rResD:real;
 
begin
clrscr;
for i:=1 to 14 do
begin
write('Введите ', i, 'й элемент массива T: ');
readln(t[i]);
end;
for i:=1 to 9 do
begin
write('Введите ', i, 'й элемент массива D: ');
readln(d[i]);
end;
 
rResT:=1; rResD:=1;i:=0;
while i<14 do
begin
i:=i+1;
rResT:=rResT*t[i];
end;
while i<9 do
begin
i:=i+1;
rResD:=rResD*d[i];
end;
 
writeln('Произведение нечетных элементов масива T= ', rResT:5:2);
writeln('Произведение нечетных элементов масива D= ', rResD:5:2);
if rResD>rResT then
writeln('Максимальное произведение - произведение массива D и равно ', rResD:5:2);
if rResT>rResD then
writeln('Максимальное произведение - произведение массива T и равно ', rResT:5:2);
if rResD=rResT then
writeln('Произведения нечетных элементов массивов D и T равны и составляют ', rResD:5:2);
readln;
end.
скорее всего можно и попроще
0
36 / 36 / 9
Регистрация: 11.02.2009
Сообщений: 84
02.02.2011, 12:31 3
Цитата Сообщение от Dj Burkikhan Посмотреть сообщение
расположеных на нечетных местах


Цитата Сообщение от greendale Посмотреть сообщение
rResT:=1; rResD:=1;i:=0; while i<n do begin i:=i+1; rResT:=rResT*t[i]; rResD:=rResD*d[i]; end;
здесь получается произведение всех элиментов масива
анологично во втором коде



Цитата Сообщение от greendale Посмотреть сообщение
rResT:=1; rResD:=1;i:=0; while i<14 do begin i:=i+1; rResT:=rResT*t[i]; end; while i<9 do begin i:=i+1; rResD:=rResD*d[i]; end;

после прохождения первого цикла i будет равна 14 ,и во второй цикл она непоадет
1
22 / 22 / 7
Регистрация: 05.08.2010
Сообщений: 95
02.02.2011, 14:17 4
здесь получается произведение всех элиментов масива
анологично во втором коде
упсс... я сначала на цикле for построить хотел... тут-то да - нужно
Pascal
1

i:=i+2;
после прохождения первого цикла i будет равна 14 ,и во второй цикл она непоадет
что-то я невнимателен(( на ходу менял (задумка сначала другая была), пожалуй так
Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

uses crt;
var
   i:byte;
   t:array[1..14] of real;
   d:array[1..9] of real;
   rResT, rResD:real;
 
begin
clrscr;
for i:=1 to 14 do
begin
write('Введите ', i, 'й элемент массива T: ');
readln(t[i]);
end;
for i:=1 to 9 do
begin
write('Введите ', i, 'й элемент массива D: ');
readln(d[i]);
end;
 
rResT:=1; rResD:=1;i:=0;
while i<14 do
begin
i:=i+2;
rResT:=rResT*t[i];
end;
i:=1;
while i<=9 do
begin
i:=i+2;
rResD:=rResD*d[i];
end;
 
writeln('Произведение нечетных элементов масива T= ', rResT:5:2);
writeln('Произведение нечетных элементов масива D= ', rResD:5:2);
if rResD>rResT then
writeln('Максимальное произведение - произведение массива D и равно ', rResD:5:2);
if rResT>rResD then
writeln('Максимальное произведение - произведение массива T и равно ', rResT:5:2);
if rResD=rResT then
writeln('Произведения нечетных элементов массивов D и T равны и составляют ', rResD:5:2);
readln;
end.
ps. и условие неправильно написал сразу((( надо и равно учитывать:
Код
while i<=9 do
0
36 / 36 / 9
Регистрация: 11.02.2009
Сообщений: 84
02.02.2011, 16:56 5
Цитата Сообщение от greendale Посмотреть сообщение
упсс... я сначала на цикле for построить хотел... тут-то да - нужно
Pascal
1

i:=i+2;
что-то я невнимателен(( на ходу менял (задумка сначала другая была), пожалуй так
Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

uses crt;
var
   i:byte;
   t:array[1..14] of real;
   d:array[1..9] of real;
   rResT, rResD:real;
 
begin
clrscr;
for i:=1 to 14 do
begin
write('Введите ', i, 'й элемент массива T: ');
readln(t[i]);
end;
for i:=1 to 9 do
begin
write('Введите ', i, 'й элемент массива D: ');
readln(d[i]);
end;
 
rResT:=1; rResD:=1;i:=0;
while i<14 do
begin
i:=i+2;
rResT:=rResT*t[i];
end;
i:=1;
while i<=9 do
begin
i:=i+2;
rResD:=rResD*d[i];
end;
 
writeln('Произведение нечетных элементов масива T= ', rResT:5:2);
writeln('Произведение нечетных элементов масива D= ', rResD:5:2);
if rResD>rResT then
writeln('Максимальное произведение - произведение массива D и равно ', rResD:5:2);
if rResT>rResD then
writeln('Максимальное произведение - произведение массива T и равно ', rResT:5:2);
if rResD=rResT then
writeln('Произведения нечетных элементов массивов D и T равны и составляют ', rResD:5:2);
readln;
end.
ps. и условие неправильно написал сразу((( надо и равно учитывать:
Код
while i<=9 do
ну насамом деле не нада,теперь у тебя получается что в первом цикле идет произведение всех четных елиментов, а во втором выход за приделы масива + первый елимент неумножается , вроде доложно быть примерно так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12

rResT:=1; rResD:=1;i:=1;
while i<=14 do
begin
rResT:=rResT*t[i];
i:=i+2;
end;
i:=1;
while i<=9 do
begin
rResD:=rResD*d[i];
i:=i+2;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 02.02.2011, 16:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти минимальный элемент из элементов массива, расположенных на нечетных местах
Доброго времени суток! Вообщем возник очередной вопрос по одномерным массива. Нужно составить...

Найти сумму элементов массива, расположенных после минимального и стоящих на нечетных местах
В массиве К из 15 элементов, найти сумму элементов, расположенных после минимального и стоящих на...

Найти произведение элементов массива, стоящих на нечетных местах
Задать случайным образом одномерный массив из 17 целочисленных элементов, принадлежащих отрезку ....

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


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

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

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