Форум программистов, компьютерный форум CyberForum.ru

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Танюх@
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 24
#1

Заменить максимальный элемент каждой строки на противоположный по знаку - Delphi

27.06.2012, 14:17. Просмотров 704. Ответов 1
Метки нет (Все метки)

Люди кто нибуль может помочь((
очень нужно...(((
Дан двумерный массив размером n*m.
1. Заменить максимальный элемент каждой строки на противоположный по знаку
2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей.
3. Удалить все столбцы, в которых есть отрицательный элемент
4. Поменять местами первый и последний столбцы.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2012, 14:17     Заменить максимальный элемент каждой строки на противоположный по знаку
Посмотрите здесь:

Заменить максимальный элемент каждой строки на противоположный по знаку - Delphi
Ребятушки, помогите, пожалуйста, создать программу в среде Delphy Дан двумерный массив размером M*N, заполненный случайным образом. ...

В массив a[n] включены натуральные числа. Заменить каждый четный элемент на противоположный по знаку - Delphi
В массив a включены натуральные числа. Заменить каждый четный элемент на противоположный по знаку.

Заменить максимальный элемент каждой строки матрицы нулем. - Delphi
задание: необходимо разработать программу позволяющую производить обработку текстовой и числовой информации в файлах. При выполнении...

Заменить максимальный элемент каждой строки номером столбца, в которой он находится. - Delphi
Дан двумерный массив размером n*m. 1. Заменить максимальный элемент каждой строки номером столбца, в которой он находится. ...

Максимальный элемент каждой строки Stringgrid - Delphi
Смотрите, есть Stringgrid1 который состоит из элементов 4*4. Нужно найти максимальный элемент каждой строки и занести его в одномерный...

В масиве целых чисел нужно заменить последний элемент каждой строки сумой элементов этой строки - Delphi
В масиве целых чисел нужно заменить последний елемент каждой строки сумой елементов этой строки.

Заменить нечетный элемент каждой строки матрицы нулем - Delphi
Дан двумерный массив размером n*m, заполненный случайным образом. 5. Заменить нечетный элемент каждой строки нулем

Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив - Delphi
Помогите, очень нужна помощь. Завтра последний день, когда можно сдать:( Задание: Для каждой строки матрицы найти максимальный...

Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку - Delphi
добрый день, пишу программу но с одним заданием проблемы, не знаю как вставлять или удалять из массива строки: Дан двумерный массив...

Заменить нечетный элемент каждой строки матрицы его квадратом - Delphi
Дана матрица размером n*m, заполненная случайным образом: 1.Заменить нечетный элемент каждой строки его квадратом. 2. Вставить после...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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     Заменить максимальный элемент каждой строки на противоположный по знаку
Ответ Создать тему
Опции темы

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