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

Сформировать матрицу из элементов одномерного массива

26.04.2015, 22:40. Показов 1214. Ответов 3
Метки нет (Все метки)

сформировать случайный одномерный массив А из 6 элементов. переслать все числа из одномерного массива А в двумерный массив В[2,3] Полученный двумерный массив вывести на экран как таблицу 2*3.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2015, 22:40
Ответы с готовыми решениями:

Из элементов произвольно заданного одномерного массива сформировать массив
Из элементов произвольно заданного одномерного массива сформировать массив, в котором вначале...

Из одномерного массива сформировать матрицу
Здравствуйте, форумчане, выручите пожалуйста. Вот такое задание по информатике: Задан массив из...

Сформировать матрицу из элементов массива
Описать процедуру ArrayToMatrRow(A, K, M, N, B), формирующую по вещественному массиву A размера K...

из одномерного массива сформировать двумерный
из одномерного массива (1 2 3 4 5) сформировать двумерный (1 2 3 4 5) (2 3 4 5 1) (3 4 5 1 2) и...

3
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
27.04.2015, 02:06 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
    n = 3;
var
    a: Array[1..2 * n] Of ShortInt;
    b: Array[1..2, 1..n] Of ShortInt;
    i, j: 0..2 * n;
begin
    Randomize;
    for i := 1 to 2 * n do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        b[Ord(i > 3) + 1, i - Ord(i > 3) * n] := a[i];
    end;
    WriteLn; WriteLn;
    for i := 1 to 2 do
    begin
        for j := 1 to n do
            Write(b[i, j]:4);
        WriteLn;
    end;
end.

Не по теме:

чёт я сегодня простых путей не ищу...

1
Эксперт Pascal/Delphi
2375 / 1289 / 1489
Регистрация: 29.08.2014
Сообщений: 4,620
27.04.2015, 10:18 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

тоже в рамках программы 9 класса
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
var
  a:array[1..6] of integer;
  b:array[1..2,1..3] of integer;
  i,j:integer;
begin
  randomize;
  write('A:[');
  {заполняем одномерный массив, печатаем его}
  for j:=1 to 6 do begin
    a[j]:=random(199)-99;
    write(a[j]:4);
  end;
  writeln(']');
  {заполняем двумерный массив, печатаем его}
  writeln('Новый массив:');
  for i:=1 to 2 do begin
    for j:=1 to 3 do begin
      b[i,j]:=a[j+(i-1)*3];
      write(b[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,630
Записей в блоге: 7
27.04.2015, 13:17 4
Ну, это смотря какой 9-ый класс, какая у него программа. Я не думаю, что приведение типов, которое рассматривается на первых страницах учебников, в 9-ом классе недоступно или слишком сложно:
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
type
  vec = array [1 .. 6] of integer;
  mx = array[1 .. 2, 1 .. 3] of integer;
var
  a:vec;
  b:mx;
  i,j:integer;
begin
  randomize;
  write('A:[');
  for j:=1 to 6 do begin
    a[j]:=random(199)-99;
    write(a[j]:4);
  end;
  writeln(']');
  writeln('Матрица:');
  b := mx(a); // Размеры типов vec и mx одинаковы, можно сделать так
  for i:=1 to 2 do begin
    for j:=1 to 3 do begin
      write(b[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2015, 13:17

С произвольного одномерного массива вещественных чисел М1 сформировать массив М2
С произвольного одномерного массива вещественных чисел М1 сформировать массив М2, который состоит...

Из одномерного массива [Xi] i = 1,64 получить ДЕЙСТВИТЕЛЬНУЮ квадратную матрицу 8*8, согласно вот этой схемы
Добрый вечер. Необходимо из одномерного массива i = 1,64 получить ДЕЙСТВИТЕЛЬНУЮ квадратную...

Вставка в матрицу заданного одномерного массива на k-ю строку, со сдвигом следующих строк вниз
вставка в массив заданного одномерного массива на k-ю строку со сдвигом k-й, (k+1)-й,(k+2)-й т.д....

Сформировать матрицу из элементов вектора
Дан вектор А. Если сумма первых 15 элементов вектора больше суммы последних 15 элементов, то из...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru