«Двумерные массивы. Вложенные циклы»

@Artur56 · Регистрация: 28.05.2011

Author24 — интернет-сервис помощи студентам

Дана матрица В [N, M]. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно.

@MaiLoJ · 06.06.2011, 22:33

Pascal

type Matrix=array[1..100,1..100] of integer;
 
var B:Matrix;
    i,j,N,M:byte;
    MaxEi,MaxEj,MinEi,MinEj,MaxE,MinE,Sw:integer;
 
//procedure InputRnd(var A:Matrix; var N:byte);  {Рандомные элементы}
{begin
  write('Введите размерность квадратной матрицы: '); readln(N);
  for i := 1 to N do
   for j := 1 to N do
    begin
      A[i,j]:=random(10);
    end;
end;}
 
procedure Input(var A:Matrix; var N,M:byte);
begin
  write('Количество строк = ');read(N);
  write('Количество столбцов = ');read(M);
  for i := 1 to N do
   for j := 1 to M do
    begin
      write(' Введите [',i,',',j,'] = ');
      readln(A[i,j]);
    end;
end;
 
procedure Output(A:Matrix; N,M:byte);
begin
  writeln('Матрица имеет вид: ');
  for i:=1 to N do
  begin
    for j:=1 to M do
      write(A[i,j]:3);
    writeln;
  end;
  writeln;
end;
 
procedure SrcMinMax(var A:Matrix; N,M:byte);
begin
  MaxE:=-MaxInt;
  MinE:=MaxInt;
  for i:=1 to N do
   begin
     MaxE:=-MaxInt;
     for j:=1 to M do
      begin
        if A[i,j] > MaxE then begin
          MaxE:=A[i,j];
          MaxEi:=i;
          MaxEj:=j;
        end;
      end;
     Sw:=A[i,1];
     A[i,1]:=A[MaxEi,MaxEj];
     A[MaxEi,MaxEj]:=Sw;
   end;
 
  for i:=1 to N do
   begin
     MinE:=MaxInt;
     for j:=1 to M do
      begin
        if A[i,j] < MinE then begin
          MinE:=A[i,j];
          MinEi:=i;
          MinEj:=j;
        end;
      end;
     Sw:=A[i,N];
     A[i,N]:=A[MinEi,MinEj];
     A[MinEi,MinEj]:=Sw;
   end;
end;
begin
  Input(B,N,M);
  Output(B,N,M);
  SrcMinMax(B,N,M);
  Output(B,N,M);
end.

@Artur56 · 07.06.2011, 09:11 **[ТС]**

а попроще можно?

@MaiLoJ · 07.06.2011, 10:14

Ну вот тебе без процедур. Если и это не по проще то я уже не знаю, найди тогда более простой алгоритм и реализуй его.

Pascal

type
  Matrix = array[1..100, 1..100] of integer;
 
var
  B: Matrix;
  i, j, N, M: byte;
  MaxEi, MaxEj, MinEi, MinEj, MaxE, MinE, Sw: integer;
 
begin
  write('Количество строк = ');read(N);
  write('Количество столбцов = ');read(M);
  for i := 1 to N do
    for j := 1 to M do
    begin
      write(' Введите [', i, ',', j, '] = ');
      readln(B[i, j]);
    end;
    
  writeln('Матрица имеет вид: ');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(B[i, j]:3);
    writeln;
  end;
  writeln;
 
  MaxE := -MaxInt;
  MinE := MaxInt;
  for i := 1 to N do
  begin
    MaxE := -MaxInt;
    for j := 1 to M do
    begin
      if B[i, j] > MaxE then begin
        MaxE := B[i, j];
        MaxEi := i;
        MaxEj := j;
      end;
    end;
    Sw := B[i, 1];
    B[i, 1] := B[MaxEi, MaxEj];
    B[MaxEi, MaxEj] := Sw;
  end;
 
  for i := 1 to N do
  begin
    MinE := MaxInt;
    for j := 1 to M do
    begin
      if B[i, j] < MinE then begin
        MinE := B[i, j];
        MinEi := i;
        MinEj := j;
      end;
    end;
    Sw := B[i, N];
    B[i, N] := B[MinEi, MinEj];
    B[MinEi, MinEj] := Sw;
  end;
  
  writeln('Матрица имеет вид: ');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(B[i, j]:3);
    writeln;
  end;
  writeln;
end.

Новые блоги и статьи
Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .
Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .

@Artur56 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 9
		1
	«Двумерные массивы. Вложенные циклы» 06.06.2011, 20:20. Показов 1341. Ответов 3 Метки нет (Все метки) Дана матрица В [N, M]. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно. 0

@Artur56 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 9
	07.06.2011, 09:11 [ТС]	3
	а попроще можно? 0

	07.06.2011, 10:14