Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Delphi
Восстановить пароль Регистрация

Ответ Создать новую тему
 
27.06.2012, 14:17   #1
Танюх@
Новичок
Регистрация: 24.05.2012
Сообщений: 24
Репутация: 0 (0)
Люди кто нибуль может помочь((
очень нужно...(((
Дан двумерный массив размером n*m.
1. Заменить максимальный элемент каждой строки на противоположный по знаку
2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей.
3. Удалить все столбцы, в которых есть отрицательный элемент
4. Поменять местами первый и последний столбцы.
27.06.2012, 14:17
AdAgent
Объявления
27.06.2012, 17:14   #2
Airanod-d-d-d
Новичок
Регистрация: 26.06.2012
Сообщений: 6
Репутация: 0 (0)
№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.
Другие темы раздела
Фильтрация текста Delphi
Добрый вечер, Столкнулся со следующей проблемой: Например, есть текст >>AvitzminoZ<<. Как из него убрать ">" и "<"? И как вообще из текстов убирать все, кроме латинских букв и цифр?
Делфи и графика Delphi
Всем привет. Господа пожалуйсто подскажите, просто горю уже! Сейчас разрабатываю программу для математических расчетов и там в ней то есть внутри программы нужно будет чертить графики и пояснения к графикам писать, вот поскажите есть какой хороший компонент для рисование внутри уже...
27.06.2012, 17:14
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Приветствую всех. Помогите, пожалуйста, решить следующие задания на двумерные массивы: Дан двумерный массив n * m. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов, содержащих максимальный элемент, столбец из нулей. 3. Удалить все...
Visual Basic erniegurt 08.12.2013 12:47
C++ Заменить максимальный элемент каждой строки на противоположный по знаку
Дан двумерный массив размером 5 * 6, заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный по знаку . В инете есть такая же задача. Дан двумерный массив размером 5 х 6, заполненный случайным образом. - Заменить максимальный элемент каждой строки на...
С++ для начинающих AforeveR 01.03.2012 11:59
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей. 3. Удалить все столбцы, в которых есть...
Visual Basic delyxe 13.01.2012 18:25
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Ребятушки, помогите, пожалуйста, создать программу в среде Delphy Дан двумерный массив размером M*N, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на противоположный по знаку. 2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей....
Delphi для начинающих DMart92 02.04.2011 20:47
Turbo Pascal Заменить максимальный элемент каждой строки на противоположный по знаку
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все элементы, в записи которых есть цифра 5 2. Заменить максимальный элемент каждой строки на противоположный по знаку 3. Вставить после всех столбцов, содержащих максимальный элемент...
Turbo Pascal MadMag 31.10.2008 07:53
Опции темы

Текущее время: 06:33. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.