Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
BaselTarik
0 / 0 / 0
Регистрация: 10.10.2012
Сообщений: 16
1

Функции: вычислить сумму ряда произведений

29.10.2012, 00:32. Просмотров 909. Ответов 1
Метки нет (Все метки)

type matr = array [1..n,1..m] of real.
Составить программу, используя функцию SUM (A), которая вычисляет,

где x i -есть максимальный элемент i-строки матрицы А.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2012, 00:32
Ответы с готовыми решениями:

Вычислить сумму ряда с использованием функции
Ссылка не сторонний ресурс удалена. Задан вещественный вектор х(5). Вычислить...

Вычислить сумму произведений
Дано натуральное число n. Вычислить сумму вида ...

Вычислить сумму произведений
Помогите пожалуйста новичку решить задачку по программированию на цикл с...

Вычислить сумму произведений всех пар соседних чисел
2.Вычислить сумму произведений всех пар соседних чисел.

Для двух массивов вычислить сумму произведений элементов с одинаковыми индексами
2. Дан массив a целых чисел из 100 элементов и массив b из 100 элементов....

1
Puporev
Модератор
55074 / 42335 / 29237
Регистрация: 18.05.2008
Сообщений: 100,035
29.10.2012, 08:43 2
Лучший ответ Сообщение было отмечено BaselTarik как решение

Решение

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
uses crt;
const n=6;
      m=8;
type matr=array[1..n,1..m] of real;
function Sum(a:matr):real;
var s:real;
    i,j:byte;
    x:array[1..n] of real;
begin
for i:=1 to n do
 begin
  x[i]:=a[i,1];
  for j:=1 to m do
  if a[i,j]>x[i] then x[i]:=a[i,j];
 end;
s:=0;
for i:=1 to n do
s:=s+x[i]*x[n-i+1];
Sum:=s;
end;
var a:matr;
    i,j:byte;
begin
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
write('Сумма произведений по условию=',Sum(a):0:2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2012, 08:43

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

Вычислить сумму ряда с точностью до числа ряда меньшего экспонентой
Вычислить сумму данного ряда с точностью до числа ряда меньшего ...

Циклы. Вычислить сумму всех произведений значения элемента на его порядковый номер в последовательности
Пожалуйста помогите решить задачи. Все задачи на тему: "Циклы". Условие задач в...


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

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

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