Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
kaianar
0 / 0 / 0
Регистрация: 14.02.2010
Сообщений: 5
1

Найти в каждой строке матрицы наибольший и наименьший элемент и поменять их местами.

14.02.2010, 07:06. Просмотров 924. Ответов 4
Метки нет (Все метки)

Составить программу, которая создает матрицу случайных положительных
чисел размером 6x6, находит в каждой строке матрицы наибольший и наименьший
элемент и меняет их местами. Программа должна выводить на печать матрицу до и после
преобразования.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2010, 07:06
Ответы с готовыми решениями:

Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом на главной диагонали
Исправте пожалуйста ошибки uses crt; var m:array of...

Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали.
Помогите пожалуйста решить прогу очень срочно нада. До 13.00 очень нада. ...

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали в этой же строке
Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент...

Найти наибольший и наименьший элементы матрицы и поменять местами столбцы, в которых находятся эти элемент
Товарищи,выручайте! Нужно найти наибольший и наименьший элементы матрицы и...

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
помогите пожалуста написать программу имя матрицы и размеры: P(N,N) Действия:...

4
Arhitektor
0 / 0 / 2
Регистрация: 14.02.2010
Сообщений: 36
14.02.2010, 07:25 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
Program z_1;
const n=6;
      m=6;
var a:array [1..n,1..m] of integer;
    i,j,k,max,min,J_min,I_max,I_min,J_max:integer;
    b:boolean;
begin
 randomize;
 writeln('MASIIV A:');
 for i:=1 to n do for j:=1 to m do
  begin
   write('VVEDUTE a[',i,',',j,']=');
   readln(a[i,j]);
  end;
 writeln('massiv A:');
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j]:3);
   writeln;
   end;
 
   max:=a[i,1];
   I_max:=i;
   J_max:=1;
  for j:=2 to m do
  if a[i,j]>max then begin
  max:=a[i,j];
  J_max:=j;
  end;
min:=a[1,j];
J_min:=j;
I_min:=1;
for i:=2 to n do
if a[i,j]<min then begin
min:=a[j,i];
I_min:=i;
end;
   for i:=1 to n do
   for j:=m downto 1 do  write (I_max,J_min);(выводим max and min)
   writeln;
I_max:=J_min;
J_min:=I_max;
for i:=1 to n do
   for j:=m downto 1 do  write (a[i,j]);
   end.
(мой icq 559658875)
0
Unrealler
654 / 352 / 113
Регистрация: 11.12.2009
Сообщений: 508
14.02.2010, 09:12 3
Цитата Сообщение от kaianar Посмотреть сообщение
которая создает матрицу случайных положительных
чисел

Цитата Сообщение от Arhitektor Посмотреть сообщение
Pascal
1
2
3
4
5
6
for i:=1 to n do 
 for j:=1 to m do
  begin
   write('VVEDUTE a[',i,',',j,']=');
   readln(a[i,j]);
  end;
Наверное, здесь random
Pascal
1
2
3
4
5
6
7
8
9
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(51);
    write(a[i,j]:3);
   end;
  writeln;
 end;
1
kaianar
0 / 0 / 0
Регистрация: 14.02.2010
Сообщений: 5
14.02.2010, 09:37  [ТС] 4
да здесь нужны случайные числа, ну я тут сам исправил, но все равно спасибо за то что Вы паписали=)) кстати с Праздником!!
0
Puporev
Модератор
55082 / 42339 / 29241
Регистрация: 18.05.2008
Сообщений: 100,040
14.02.2010, 09:51 5
a[i,j]:=random(50)+1;//0 не положительное число
0
14.02.2010, 09:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2010, 09:51

Найти в каждой строке наибольший элемент и поменять его местами с элементами главной диагонали
Найти в каждой строке наибольший элемент и поменять его местами с элементами...

найти в каждой строке наибольший элемент и поменять его местами с первым элементом этой строки
В заданной матрице найти в каждой строке наибольший элемент и поменять его...

Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали..
..


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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