Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
vera199725
0 / 0 / 0
Регистрация: 20.10.2013
Сообщений: 9
1

Все отрицательные элементы матрицы заменить их значением по модулю

10.11.2013, 12:17. Просмотров 825. Ответов 4
Метки нет (Все метки)

искала на сайте подобные решения и объяснения , но ничего не поняла (( дан массив 10х10.все отрицательные его элементы заменить их значением по модулю . заранее спасибо!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2013, 12:17
Ответы с готовыми решениями:

Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию, заменить нулями все отрицательные элементы матрицы
задача. Если все элементы главной диагонали целочисленной матрицы упорядочены...

Все отрицательные элементы матрицы преобразовать в положительные, а все нули заменить единицами
В массиве b(m,n)все отрицательные элементы преобразовать в положительные ,а все...

Заменить все отрицательные элементы матрицы на их квадраты
Составить программу обработки двухмерного массива,оформив ввод/вывод и...

Заменить все отрицательные элементы матрицы на нули
Дорогие друзья, я уже себе всю голову сломал с этой задачей, помогите... Дана...

Заменить все отрицательные элементы матрицы на нули
Помоги пожалуйста описать переменные! a:mas – Исходный массив b:mas – Новый...

4
LuckyTheGreat
18 / 18 / 11
Регистрация: 22.03.2011
Сообщений: 194
11.11.2013, 09:32 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
program z1;
 var a:array [1..10,1..10] of integer;
 s,i,j:integer;
Begin 
  s:=0;
  randomize;
  for i:=1 to 10 do
     for j:=1 to 10 do
        a[i,j]= random(41)-20;
  for i:=1 to 10 do
      begin
          for j:=1 to 10 do
            write(a[i,j],' ');
            writeln
      end;
  for i:=1 to 10 do
     for j:=1 to 10 do
         if a[i,j]<0 then
            a[i,j]:=abs(a[i,j]);
for i:=1 to 10 do
      begin
          for j:=1 to 10 do
            write(a[i,j],' ');
            writeln
      end;
end.
0
Sead
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 396
11.11.2013, 09:37 3
LuckyTheGreat, а зачем столько циклов? ведь всё решается короче)))или Вы решили не мелочиться?
0
ildwine
Супер-модератор
2988 / 1870 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
11.11.2013, 09:50 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
var a:array [1..10,1..10] of integer;
 s,i,j:integer;
Begin 
  s:=0;
  randomize;
  writeln('исходный массив: ');
  for i:=1 to 10 do
  begin
     for j:=1 to 10 do
     begin
        a[i,j]:= random(41)-20;
        write(a[i,j]:4)
     end;
     writeln
  end;
  writeln('новый массив: ');
  for i:=1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      if a[i,j]<0 then a[i,j]:=abs(a[i,j]);
      write(a[i,j]:4)
    end;
    writeln
  end
end.
0
LuckyTheGreat
18 / 18 / 11
Регистрация: 22.03.2011
Сообщений: 194
14.11.2013, 07:22 5
Sead,

Не по теме:

да, я знаю, что можно не заводить для вывода отдельных циклов, но меня так ещё в школе научили для прозрачности, а на паскале я со школьной скамьи и не писал.

0
14.11.2013, 07:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2013, 07:22

Заменить все отрицательные элементы матрицы на их квадраты
Составить программу обработки двухмерного массива,оформив ввод/вывод и...

Процедуры. Заменить все отрицательные элементы матрицы на нули
Данная матрица целых чисел размером 5x3. Заменить все отрицательные элементы...

Заменить на главной диагонали матрицы все отрицательные элементы их абсолютными значениями
Дана матрица A(3,3) 1.Заменить на главной диагонали все отрицательные элементы...


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

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

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