Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 19
1

Написать функцию, которая по заданной матрице X(M,N) определяет номера строк

08.09.2015, 19:55. Просмотров 505. Ответов 3
Метки нет (Все метки)


Написать функцию, которая по заданной матрице X(M,N) определяет номера строк, в которых наибольший элемент больше суммы всех остальных элементов. С помощью подпрограммы определить номера строк матриц A и B, в которых наибольший элемент больше суммы всех остальных элементов строки. Элементы матриц A и B рассчитываются по формуле: Aij=i*sin(3.5*j), i=1,2,...,7; j=1,2,...,15; Bij=sin(2.07*j)+i, i=1,2,...20; j=1,2,...,5.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2015, 19:55
Ответы с готовыми решениями:

Написать программу, которая определяет номера строк двумерного массива A[1.6,1.4], в которых содержится один нулевой элемент
Написать программу, которая определяет номера строк двумерного массива A, в которых содержится один...

Написать рекурсивную функцию, которая определяет степень числа
Написать рекурсивную функцию, которая определяет степень числа f(x,n) x^n n-будет натуральным.

Написать функцию, которая определяет минимальный элемент второстепенной диагонали
написать функцию которая определяет минимальный елемент второстепенной диагонали

Написать функцию, которая определяет среднее арифметическое нечётных элементов массива
написать функцию которая определяет среднее арифметическое нечётных элементов массива

3
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,693
08.09.2015, 20:02 2
Kotogonana, Что это Вас по всему форуму носит? Вам точно это нужно в простом АВС?
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 19
08.09.2015, 20:03  [ТС] 3
эту да
0
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,693
08.09.2015, 20:36 4
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
type mtr=array[1..20,1..15] of real;
     mnz=set of byte;
function nomera(x:mtr;m,n:integer):mnz;
var i,j:integer;
    mx,s:real;
    a:mnz;
begin
a:=[];
for i:=1 to m do
 begin
  mx:=x[i,1];
  s:=0;
  for j:=1 to n do
   begin
    if x[i,j]>mx then mx:=x[i,j];
    s:=s+x[i,j];
   end;
  if mx>s-mx then a:=a+[i];
 end;
result:=a;
end;
var a,b:mtr;
    i,j:integer;
    str:mnz;
begin
randomize;
writeln('Матрица А:');
for i:=1 to 7 do
 begin
  for j:=1 to 15 do
   begin
    a[i,j]:=i*sin(3.5*j);
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
str:=nomera(a,7,15);
if str=[] then writeln('Нет строк с максимальным большим суммы остальных')
else
 begin
  writeln('Номера строк с максимальным большим суммы остальных');
  for i:=1 to 7 do
  if i in str then write(i:3);
  writeln;
 end;
writeln('Нажмите Enter');
readln;
writeln('Матрица B:');
for i:=1 to 20 do
 begin
  for j:=1 to 5 do
   begin
    b[i,j]:=sin(2.07*j)+i;
    write(b[i,j]:5:1);
   end;
  writeln;
 end;
str:=nomera(b,20,5);
if str=[] then writeln('Нет строк с максимальным большим суммы остальных')
else
 begin
  writeln('Номера строк с максимальным большим суммы остальных');
  for i:=1 to 20 do
  if i in str then write(i:3);
  writeln;
 end;
end.
Посмотрите в тех темах, там вроде тоже размеры заданы и вводить их не нужно, если что, поправьте, мне уже лень...

Добавлено через 3 минуты
Да в задаче про умножение матриц размеры заданы, если не сможете поменять чуть код, пишите...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.09.2015, 20:36

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

Написать функцию, которая по номеру n определяет соответствующее название дня недели
Написати функцию, которая по номеру n определяет соответствующее название дня недели. type день...

Написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T
По таблице написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в...

Написать функцию, которая определяет номера столбцов и строк матрицы по заданному условию
Написать функцию, которая определяет номера столбцов и строк матрицы X(M,N), в которых есть...

Написать и протестировать функцию, которая определяет, совпадают ли в заданной строке первая и последняя буквы
Написать и протестировать функцию, которая определяет, совпадают ли в заданной строке первая и...

Написать функцию, которая определяет, все ли слова в заданной символьной строке длине 3 букв
#include<stdio.h> #include<string.h> #include<conio.h> void str (char mas) //написать и...

Написать функцию case_sensitive, которая определяет все ли символы в заданной строке являются прописными и
# Написать функцию case_sensitive, которая определяет все ли символы # в заданной строке являются...


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

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

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