Перенести из матрицы в одномерный массив данные удовлетворяющие условию

@n971030 · Регистрация: 23.01.2010

Студворк — интернет-сервис помощи студентам

Создать одномерный массив размерностью 48 из матрицы 6x8. короче перенести из матрица в одномерный массив данные удовлетворяющие условию 0 <=cos Aij < 0.5.
Когда данные в одномерном массиве внесены найти макс и мин и поменять местами.

Tulosba · 22.03.2014, 17:27

Сообщение от n971030

Правильно понимание?

Нет. В массив должны попасть только элементы, удовлетворяющие условию. Т.е. заранее размер массива не известен.

@n971030 · 22.03.2014, 18:58 **[ТС]**

Перенести из матрицы в одномерный массив данные удовлетворяющие условию

Сообщение от Tulosba

ет. В массив должны попасть только элементы, удовлетворяющие условию. Т.е. заранее размер массива не известен.

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

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
program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  System.SysUtils, System.Math, Winapi.Windows;
 
Const
  _SpaceLine = '                 ';
 
var
  _XmAC: array [0 .. 15 - 1] of real;
  _XmAInd, _Iteration: Integer;
  _Itx: real;
 
begin
  try
    { Лаб. работа №3 Выполненая на Delphi XE5 }
    Writeln('Has fulfilled the student: ФИО КОД ГРУППЫ!! ПОХ');
 
    Writeln;
    Writeln('    Posiotion     |   Value         ');
    Writeln('------------------+-----------------');
 
    _XmAInd := 0;
    Randomize;
    repeat
      _XmAC[_XmAInd] := RandomRange(-5000, 5000);
      Writeln(_XmAInd + 1, _SpaceLine + '|', _XmAC[_XmAInd]: 8: 2);
 
      inc(_XmAInd);
    until (_XmAInd = 14 + 1);
    for _Iteration := 0 to 14 do
    begin
      if (_XmAC[_Iteration] >= 0) then
      begin
        _Itx := _Itx + _XmAC[_Iteration];
        inc(_XmAInd);
      end;
    end;
    _Itx := _Itx / _XmAInd;
    Writeln('------------------------------------');
 
    Write('The arithmetical mean value: ' + FloatToStr(_Itx) +
      ', to exit, press enter');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
 
end.

@n971030 · 24.03.2014, 21:12 **[ТС]**

Сообщение от Tulosba

Нет. В массив должны попасть только элементы, удовлетворяющие условию. Т.е. заранее размер массива не известен.

Давайте по шагам:

1) создаем одномерный массив B размер динамический
2) создать матрицу 6*8=48 удовлетворяющих условию.

Сообщение от Tulosba

должны попасть только элементы, удовлетворяющие условию. Т.е. заранее размер массива не известен.

ДОбрый день! еще раз - короче создам массив b размерностью ????
2) создам матрицу 6x8 а как заполнить? согласно условию???? можно подробно плиз!!!

@n971030 · 08.04.2014, 21:43 **[ТС]**

Сообщение от Tulosba

ет. В массив должны попасть только элементы, удовлетворяющие условию. Т.е. заранее размер массива не известен.

Добрый вечер - а в словал можно типа создать массив Б занести согласно условию такомута x<cos...значения... Ну короче попонятние ПЛИЗ

Tulosba · 08.04.2014, 22:33

Сообщение от n971030

Ну короче попонятние ПЛИЗ

Вот это не помешало бы, точно.

C++
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
#include <iostream>
#include <iomanip>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <vector>
 
int main() {
 
    const int n = 6;
    const int m = 8;
 
    std::srand(std::time(0));
    
    std::vector<int> v;
    
    int** matrix = new int*[n];
    for( int i=0; i<n; ++i )
    {
        matrix[i] = new int[m];
        for( int j=0;j<m; ++j )
        {
            matrix[i][j] = rand() % 360;
            std::cout << std::setw(4) << matrix[i][j] << " ";
            
            double value = std::cos( matrix[i][j] * M_PI / 180 );
            
            if( 0 <= value && value < 0.5 )
            {
                v.push_back( matrix[i][j] );
            }
        }
        std::cout << '\n';
    }
    
    std::cout << "vector:\n";
    
    for( int i=0; i<v.size(); ++i )
    {
        std::cout << v[i] << " ";
    }
    std::cout << '\n';
    
    return 0;
}

Малость гибридно, но, я думаю, сойдет.
http://ideone.com/b0We0g

P.S. не забыть почистить память.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@n971030 188 / 120 / 4 Регистрация: 23.01.2010 Сообщений: 1,320

	Перенести из матрицы в одномерный массив данные удовлетворяющие условию 22.03.2014, 17:09. Показов 2668. Ответов 5 Метки нет (Все метки) Создать одномерный массив размерностью 48 из матрицы 6x8. короче перенести из матрица в одномерный массив данные удовлетворяющие условию 0 <=cos Aij < 0.5. Когда данные в одномерном массиве внесены найти макс и мин и поменять местами. Миниатюры 0

Перенести из матрицы в одномерный массив данные удовлетворяющие условию

Решение