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

Матрица. Удаление столбцов по условию

06.02.2012, 16:05. Просмотров 1034. Ответов 1
Метки нет (Все метки)

Нужно написать программу.
Ввести размеры матрицы и саму матрицу из целых чисел
Из матрицы удалить столбцы, в которых все элементы числа Фибоначчи
Обработку матрицы написать в виде процедуры.
Проверку числа написать в виде функции.
Все данные передаются через параметры.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 16:05
Ответы с готовыми решениями:

Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов
Даны натуральное число n, действительная матрица размера n х 9. Найти среднее...

Матрица, перестановка столбцов.
Здравствуйте помогите плз решить задачку,Сортировать столбцы в матрице 5х5 по...

Дана матрица из 2 строк и 10 столбцов...
Дана матрица из 2 строк и 10 столбцов. Первый элемент каждого столбца...

Матрица, определение столбцов с возрастающими элементами
В данной матрице (взять из файла .txt путь к ней E:\mat.txt) определите...

Дана матрица A, состоящая из n строк и n столбцов...
Дана матрица A, состоящая из n строк и n столбцов. Изменить матрицу, заменив...

1
PolarFoG
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
07.02.2012, 14:12 2
Лучший ответ Сообщение было отмечено sdcom как решение

Решение

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

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
program start_consol;
 
uses
  CRT;
type
  mass = array of array of integer;
  function Fiod_fu(M:mass; x,y:integer; pos: integer): boolean;
  var
    j: integer;
  begin
    setLength(M,x,y);
    for j := 2 to y - 1 do
      if M[pos, j] <> (M[pos, j - 1] + M[pos, j - 2]) then
      begin
        Result := False;
        exit;
      end
      else
        Result := True;
  end;
 
  procedure Del_pr(var M:mass; x,y:integer; pos: integer);
            var
              j,g:integer;
            begin
              for j:=0 to y-1 do
                  for g:=x-2 downto pos do begin
                    M[g,j]:=M[g+1,j];
                  end;
              dec(x);
              SetLength(M,x,y);
            end;
var
  M:mass;
  x,y,i: integer;
 begin
     x := 3;
     y := 3;
     SetLength(M, 3, 3);
  M[0, 0] := 2;
  M[0, 1] := 1;
  M[0, 2] := 1;
  M[1, 0] := 0;
  M[1, 1] := 1;
  M[1, 2] := 1;
  M[2, 0] := 3;
  M[2, 1] := 1;
  M[2, 2] := 1;
 
  for i:=0 to x-1 do
      if x>=3 then
         if Fiod_fu(M,x,y,i) then Del_pr(M,x,y,i);
            writeln(M[1,0]);
     readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 14:12

Дана матрица A, состоящая из n строк и m столбцов
Дана матрица A, состоящая из n строк и m столбцов. Получить массив х1.х2.хн по...

Удаление строк и столбцов матрицы
Дан двумерный массив. Нужно удалить строки и столбцы, на пересечении которых...

Удаление строк и столбцов с минимальным элементом
Прошу помощи с задачей на языке Паскаль. Задано массив (3х5). Получить новый...


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

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

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