Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.59/63: Рейтинг темы: голосов - 63, средняя оценка - 4.59
2 / 2 / 0
Регистрация: 07.05.2010
Сообщений: 33
1

Составить программу вычисления произведения нечетных элементов массива

17.05.2010, 21:22. Просмотров 11677. Ответов 10
Метки нет (Все метки)


1) Составить программу вычисления произведения нечетных элементов массива С, если массив состоит из 11 элементов, введенных с клавиатуры.

2) Составьте программу нахождения максимального значения одномерного массива К(N) (элементы массива подсчитываются по формуле К(N)=cos(N)*N) и сумму элементов, стоящих после максимального. Сформируйте новый массив В(N), состоящий из элементов массива K(N), стоящих до максимального элемента массива.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2010, 21:22
Ответы с готовыми решениями:

Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечно-...

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

Составьте программу вычисления произведения нечетных элементов одномерного массива
Составьте программу вычисления произведения нечетных элементов одномерного массива A(N), заполнив...

Программирование модуля вычисления произведения нечетных элементов массива
Разработать модуль, содержащий основные процедуры и функции по работе с одномерными массивами :...

10
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
17.05.2010, 21:31 2
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program proz;
 const
  n=11;
  var
   a: array[1..n] of real;
    i:byte;
     p:real;
 BEGIN
 writeln('заполните массив:');
  for i:=1 to n do
   begin writeln('введите ', i,' - ый элемент массива');
            readln(a[i]); end;
            
  writeln;
  p:=1;
  
  for i:=1 to n do
   if odd(i) then p:=p*a[i];
   
   writeln('p= ', p:8:3);
   
   END.
1
2 / 2 / 0
Регистрация: 07.05.2010
Сообщений: 33
18.05.2010, 21:19  [ТС] 3
А второе задание помогите сделать....

Добавлено через 3 часа 17 минут
люди пожалуйста...
0
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
18.05.2010, 21:46 4
er777, там у Вас формула по которой заполнять массив непонятная.
0
2 / 2 / 0
Регистрация: 07.05.2010
Сообщений: 33
18.05.2010, 21:49  [ТС] 5
там К(N)=cos(N)*N вроде так...
0
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
18.05.2010, 21:52 6
Ну и что такое N? Размерность массива? Номер элемента?
0
2 / 2 / 0
Регистрация: 07.05.2010
Сообщений: 33
18.05.2010, 21:57  [ТС] 7
Составьте программу нахождения максимального значения одномерного массива К(i) (элементы массива подсчитываются по формуле К(i)=cos(i)*i и сумму элементов, стоящих после максимального. Сформируйте новый массив В(i), состоящий из элементов массива K(i), стоящих до максимального элемента массива.

а так понятно? i- это индекс.
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 12
18.05.2010, 21:58 8
Помогите решить!В двумерном массиве поменять местами в каждой строке первый отрицательный и последний положительный элемент.
0
2 / 2 / 0
Регистрация: 07.05.2010
Сообщений: 33
18.05.2010, 22:04  [ТС] 9
Nick31, ну ты ваащщеее!!!
0
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
18.05.2010, 22:35 10
Вобщем я так понял, что нормального условия ждать бесполезно, как понял так и написал.
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
program hz;
 const
  n=100;
   var
   a,b:array[1..n] of real;
    i,max,nmax:byte;
    s:real;
    BEGIN
  repeat
   writeln('введите размерность массива:');
    readln(nmax);
          until nmax in [1..n];  //razmernost
 
   for i:=1 to nmax do   //zapolniaem massiv
    a[i]:=i*cos(i);
 
   writeln('Получившийся массив:');      // vvivodim massiv
    writeln;
    for i:=1 to n do writeln(a[i]:8:5);
    
    max:=1;                    // ishem maximum
    for i:=2 to nmax do
     if a[i]>a[max] then max:=i;
     
     writeln(' Максимальный элемент:', a[max]:8:5);
     s:=0; // ishem summy;
     for i:=max to nmax do
      s:= s+a[i];
      
     writeln('Сумма элементов после максимального:', s:8:3);
 
      for i:=1 to max do    // formiruem noviy massiv (zachem???)
       b[i]:=a[i];
       
     writeln('Массив B:');  // vivodim noviy massiv
      writeln;
      for i:=1 to max do
       writeln(b[i]:8:5);
       
       END.
0
Milkis
05.12.2010, 16:55 11
можете написать программу?


Проверить присутствие нечетных отрицательных элементов в массиве целых чисел.
Ограничения:
- число элементов в массиве не более 10-ти.
Порядок ввода исходных данных:
- число элементов в массиве,
- элементы массива.
Порядок вывода результатов:
- сообщение "Элемент найден" или "Элементы не найдены".
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2010, 16:55

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

Составить программу вычисления произведения элементов по строкам матрицы
Всем здравствуйте, помогите пожалуйста: 1.Составить программу вычисления суммы отрицательных...

Составить программу вычисления суммы/произведения элементов бесконечного ряда
Прошу, помогите пожалуйста составить программу в Pascal ABC, вычисляющую сумму и произведение N...

Составить программу вычисления количества нечетных элементов
Составьте блок-схему алгоритма и программу вычисления количества нечетных элементов массива А(10),...

Составить программу вычисления и выдачи на печать произведения N элементов бесконечного числового ряда.
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного...


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

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

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