Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Maks-i
0 / 0 / 0
Регистрация: 06.01.2013
Сообщений: 50
1

Количество компонент матрицы совпадающих по абсолютному значению с максимумом

07.03.2013, 16:38. Просмотров 247. Ответов 0
Метки нет (Все метки)

Ребята помогите найти: 1. Количество компонент матрицы совпадающих по абсолютному значению с максимумом
2. Записать в одномерный массив значения:-1, если сумма индексов максимальной по абсолютному значению компоненты матрицы m[n,k] является нечетным числом, и 1-если четным числом.
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
  Program zadanie;
 Uses crt;
 const
digits=1;
 Type matrix = Array [1..10, 1..10] of real;
 massiv = Array [1..10] of Integer;
 Var m: matrix;
  max:real;
 v: massiv;
 imax,n, k, i, j, a, b,p1, p2, min,imin,s,t: Integer;
 Begin
 Write ('Введите количество строк матрицы n');
 WriteLN (' не менее 2 и не более 10');
 ReadLN (n);
 If (n<2) Or (n>10) Then
 Begin
 Write ('Вы ввели неправильное количество строк меньше 2 или');
 Write (' больше 10, поэтому принят');
 WriteLN (' максимальный размер, т.е. n=10');
 n:=10;
 End;
 Write ('Введите количество столбцов матрицы k');
 WriteLN (' не менее 2 и не более 10');
 ReadLN (k);
 If (k<2) Or (k>10) Then
 Begin
 Write ('Вы ввели неправильное количество столбцов меньше 2 или');
 Write (' больше 10, поэтому принят');
 WriteLN (' максимальный размер, т.е. k=10');
 k:=10;
 End;
 Write ('Введите левую а и правую b границы диапазона');
 WriteLN (' значений компонент матрицы');
 Write ('a='); ReadLN (a);
 Write ('b='); ReadLN (b);
 If a>b Then
 Begin
 p1:=a; a:=b; b:=p1;
 End;
 If a=b Then
 Begin
 p1:=0; p2:=b;
 End
 Else If b=0 Then
 Begin
 p1:=a; p2:=0;
 End
 Else
 Begin
 p1:=b-a; p2:=a;
 End;
 Randomize;
 s:=0;
 For j:=1 To k Do
 For i:=1 To n Do
 Begin
  m[i,j]:=p2+random(p1+1);
  End;
  begin
 For i:=1 To n Do
 Begin
 For j:=1 To k Do Write (m[i,j]:6:digits);
 WriteLN;
 End;
   writeln;
    imax:=1;
    max:=m[i,j];
    for i:=1 to N do
     for j:=1 to k do
    if max<abs(m[i,j]) then
    begin
    max:=abs(m[i,j]);
    imax:=i;
    imax:=j;
    end;
    writeln('Максимальное абсолютное значение: max=',max:5:digits);
    write('Индекс max ');
    For i:=1 to n do
    For j:=1 to k do
   If abs(m[i,j])=max Then
   Write('[',i,';',j,']');
    end;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 16:38
Ответы с готовыми решениями:

Найти среднее арифметическое S элементов, не превышающих 15 по абсолютному значению и их количество К
Найти: Среднее арифметическое S элементов, не превышающих 15 по абсолютному...

Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01.
Член ряда с номером n определяется выражением n/(n^3+n^2-3).Вычислить сумму...

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

Одномерный массив. Вычислить разность C= A-B, где А-произведение положительных элементов, а В- сумма элементов по абсолютному значению массива
Вычислить разность C= A-B, где А-произведение положительных элементов, а В-...

Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел, меньших по абсолютному значению квадрата порядкового номера вводим
Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 16:38

Найти в векторе количество отрицательных компонент среди компонент с нечётными номерами
Для заданного вектора a= найти количество отрицательных компонент среди...

Найти количество совпадающих элементов
Найти количество совпадающих элементов двух массивов, запомнить и вывести их...

Количество столбцов совпадающих с первым
Составьте программу для нахождения количества столбцов, совпадающих с первым.


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

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

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