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

Delphi 1.Заменить максимальный элемент каждой строки матрицы нулем.
Заменить максимальный элемент каждой строки номером столбца, в которой он находится. Delphi
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Delphi Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца
Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив Delphi
Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку Delphi
В массив a[n] включены натуральные числа. Заменить каждый четный элемент на противоположный по знаку Delphi
Delphi В масиве целых чисел нужно заменить последний элемент каждой строки сумой элементов этой строки


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

Или воспользуйтесь поиском по форуму:
Airanod-d-d-d
Новичок
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 6
27.06.2012, 17: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.
Yandex
Объявления
27.06.2012, 17:14     Заменить максимальный элемент каждой строки на противоположный по знаку
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

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