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

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

08.12.2011, 16:33. Просмотров 1639. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обнулить элементы матрицы, отмеченные зеленым фоном (Pascal ABC):

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

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

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

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

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

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

3
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
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 / 1
Регистрация: 17.11.2011
Сообщений: 42
08.12.2011, 17:12  [ТС] #3
спс а по проще никак?
чёт я не понимаю вывода(
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
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. Обнулить элементы матрицы, лежащие...

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

Обнулить все элементы центральной строки и центрального столбца матрицы
Дан массив N на N обнулить все элементы его центральной строки и центрального...

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


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

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

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