Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
MrRuke
0 / 0 / 0
Регистрация: 13.11.2014
Сообщений: 25
1

Смена знака минимального элемента каждого столбца матрицы на противоположный

21.12.2014, 12:25. Просмотров 694. Ответов 1
Метки нет (Все метки)

Необходима помощь в решении задачи, никак не могу понять как доделать.
В массиве С(4*4) из диапазона(-7.7). В каждом столбце сменить знак минимального на противоположный.

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
const n=4; m=5;
var a:array[1..n,1..m] of integer;
    i,j,min,b,c:integer;
begin
 
randomize;
writeln('Danniy massiv');
for i:=1 to n do begin
for j:=1 to m do begin
                 a[i,j]:=random(11)-5;
                 write(a[i,j]:4);
                 end;
                 writeln;
                 end;
for j:=1 to m do begin
min:=1000; 
for i:=1 to n do
if a[i,j]<min then begin min:=a[i,j];  end;
a[i,j]:=-a[i,j];
end;
writeln('V stolbcah znaki maksimalnih protivopolozhnnie');
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
readln;
end.
И в результате он меняет знаки последней строки. Рабочей программа становится только когда используешь доп индексы, но здесь они запрещены т.т и потому никак.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2014, 12:25
Ответы с готовыми решениями:

Массив: Определить суммы элементов каждого столбца левой половины и каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Для каждого столбца матрицы определить номер последнего элемента, где модуль разности 2-х младших цифр = 3
для каждого столбца массива определяет номер последнего элемента, у которого модуль разности двух...

Заменить значение каждого элемента Ci значением минимального элемента i-ой строки матрицы A
Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу A из 5 строк и 5...

В матрице заменить максимальный элемент каждого столбца на противоположный
Матрица 6*7 заполняется случайным образом. 1.В матрице заменить максимальный элемент каждого...

Найти минимальный элемент массива и номер его столбца. Вывести сам массив иномер столбца минимального элемента
Найти минимальный элемент массива и номер его столбца. Вывести сам массив иномер столбца...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4690 / 3363 / 3985
Регистрация: 05.06.2014
Сообщений: 16,799
22.12.2014, 10:34 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
31
32
33
34
35
36
37
38
39
40
41
const
  n=4; m=5;
var
  a:array[1..n,1..m] of integer;
  imin,jmin,i,j,min,b,c:integer;
begin
  randomize;
  writeln('Danniy massiv');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(11)-5;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  for j:=1 to m do
    begin
      min:=a[1,i];
      imin:=1;
      jmin:=j;
      for i:=1 to n do
        if a[i,j]<min then
          begin
            min:=a[i,j];
            imin:=i;
            jmin:=j;
          end;
      writeln('Min: ',a[imin,jmin],' столбец: ',jmin,', строка: ',imin);
      a[imin,jmin]:=a[imin,jmin]*(-1);
    end;
  writeln('V stolbcah znaki maksimalnih protivopolozhnnie');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2014, 10:34

Нахождение минимального элемента каждого столбца матрицы
Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент...

Замена знака каждого пятого элемента массива B(100) на противоположный.
2. . Составить блок-схему и программу для замены знака каждого пятого элемента массива B(100) на...

Написать подпрограмму для замены знака на противоположный у всех элементов 5-го столбца матрицы
Написать подпрограмму для замены знака на противоположный у всех элементов 5-го столбца матрицы...


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

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

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