Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Танюх@
Новичок
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 24
27.06.2012, 15:17     Заменить максимальный элемент каждой строки на противоположный по знаку   #1
Люди кто нибуль может помочь((
очень нужно...(((
Дан двумерный массив размером n*m.
1. Заменить максимальный элемент каждой строки на противоположный по знаку
2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей.
3. Удалить все столбцы, в которых есть отрицательный элемент
4. Поменять местами первый и последний столбцы.
AdAgent
Объявления
27.06.2012, 15:17     Заменить максимальный элемент каждой строки на противоположный по знаку
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2012, 15:17     Заменить максимальный элемент каждой строки на противоположный по знаку
Посмотрите здесь:

Delphi 1.Заменить максимальный элемент каждой строки матрицы нулем.
Delphi Заменить максимальный элемент каждой строки номером столбца, в которой он находится.
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Delphi Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца
Delphi Дана прямоугольная матрица A(nxm). Заменить наименьший элемент каждой строк, начиная со второй, наибольшим элементом предыдущей строки.
Delphi Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив
Delphi Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку
Delphi Как найти максимальный элемент массива в каждой строке?
Airanod-d-d-d
Новичок
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 6
27.06.2012, 18:14     Заменить максимальный элемент каждой строки на противоположный по знаку   #2
№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
42
43
44
45
46
47
48
49
50
uses crt;
var x:array[1..5,1..12]of integer;
    n,m,i,j,mx,kmx,l,t:integer;
begin
clrscr;
randomize;
n:=5;
m:=6;
mx:=-maxint-1;
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=random(10);
    write(x[i,j]:3);
    if x[i,j]>mx then mx:=x[i,j];
   end;
  writeln;
 end;
writeln('Максимальный элемент=',mx);
writeln;
writeln('Вставка столбцов из нолей после столбцов с максимальным:');
j:=1;
while j<=m do
 begin
  kmx:=0;
  for i:=1 to n do
  if x[i,j]=mx then kmx:=1;
  if kmx=1 then
   begin
    m:=m+1;
    for l:=1 to n do
     begin
      for t:=m downto j+2 do
      x[l,t]:=x[l,t-1];
      x[l,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:3);
  writeln;
 end;
readln
end.
Добавлено через 7 минут
№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
const n=5;
const m=10;
var
massiv:array[1..n,1..m] of integer;
row,column,exchange:integer;
flag:boolean;
begin
Randomize;
 //заполняем массив случайным образом и показываем его на экране
 writeln('исходный массив');
 for row:=1 to n do begin
  for column:=1 to m do begin
  massiv[row,column]:=random(100);
  write(' ',massiv[row,column]:3);
  end;
  writeln;
 end;
 //меняем во всех строках первый и последний элементы
 for row:=1 to n do begin
  exchange:=massiv[row,m];
  massiv[row,m]:=massiv[row,1];
  massiv[row,1]:=exchange;
 end;
 writeln;
//выводим результат
 writeln('первый и последний столбец поменялись местами');
 for row:=1 to n do begin
  for column:=1 to m do begin
  write(' ',massiv[row,column]:3);
  end;
  writeln;
 end;
 
 readln;
 
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 18:14. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика