Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
arsalan
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 42
1

Обнулить элементы матрицы, отмеченные зеленым фоном

08.12.2011, 16:33. Просмотров 1677. Ответов 3
Метки нет (Все метки)

Помогите плз написать программу чёт ваще не как не получается

Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10,10] и вывести ее на экран. Обнулить элементы, отмеченные зеленым фоном, и вывести полученную матрицу на экран.
x x x 0 x x x
x x 0 0 0 x x
x 0 0 0 0 0 x
0 0 0 0 0 0 0
x 0 0 0 0 0 x
x x 0 0 0 x x
x x x 0 x x x
где "x" это случайное число.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 16:33
Ответы с готовыми решениями:

Обнулить элементы матрицы x, которых нет в массиве z и запомнить обнуленный элементы
Даны целочисленная матрица X целочисленный массив Z обнулить элементы матрицы...

Обнулить все элементы строки и столбца матрицы, на пересечении которых находится максимальный элемент матрицы
Определить максимальный элемент в произвольно заданной матрице Z размером m x n...

Обнулить элементы матрицы выше главной диагонали
Случайным образом заполнить двумерный массив А ; Обнулить элементы массива...

Обнулить отрицательные элементы нечетных столбцов матрицы
Обнулите отрицательные элементы массива стоящие в нечетных столбцах Program...

Обнулить отрицательные элементы всех чётных столбцов матрицы
Составить программу, которая в двумерном массиве случайных чисел отрицательные...

3
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,332
08.12.2011, 17:07 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    i,j,p:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Измененная матрица:');
p:=n div 2+1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((i in [1..p])and(j in [p-i+1..n-p+i]))
    or((i in [p+1..n])and(j in [i-p+1..n-i+p])) then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.
0
arsalan
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 42
08.12.2011, 17:12  [ТС] 3
спс а по проще никак?
чёт я не понимаю вывода(
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,332
08.12.2011, 18:10 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
uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    i,j,p:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Измененная матрица:');
p:=n div 2;
for i:=2 to p do
for j:=p-i+2 to p do
 begin
  a[i,j]:=0;
  a[i,n-j+1]:=0;
  a[n-i+1,j]:=0;
  a[n-i+1,n-j+1]:=0;
 end;
for i:=1 to n do
 begin
  a[i,p+1]:=0;
  a[p+1,i]:=0;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.
Или совсем просто.
Pascal
1
2
3
4
a[1,4]:=0;
a[2,3]:=0;
a[2,4]:=0;
a[2,5]:=0;
......
и так что-то типа 38 раз.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 18:10

Обнулить столбцы матрицы в которых стоят минимальные элементы
Помогите пожалуйста решить задачу пропустил тему и не представляю прост как...

Обнулить элементы матрицы, лежащие ниже главной диагонали
1. Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие...

Обнулить все элементы лежащие выше главной диагонали матрицы
Здраствуйте. Прошу помощи в решении задачи! Если целочисленная квадратная...


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

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

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