2 / 2 / 0
Регистрация: 27.12.2008
Сообщений: 42
1

В матрице поменять местами K-тую c L-той строки

28.01.2009, 18:42. Показов 1096. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток!
Поажалуйста, кто может, пожалуйста помогите доделать
задачку на Case на языке Pascal'я ?
Условия:
A[n,m] , A[i,j]:=random(b-a*1)+1;[a,b]
В матрице поменять мастеами K-тую c L-той строки, K и L в режиме диалога.
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 prim;
Uses crt;
var mass2:Array[1..100,1..100] of integer;
I,J,k,l,n,m:integer;
Procedure formirov;
   Begin
   writeln('Vvedite N,m,k,l');
   readln(N,m,k,l);
   randomize;
        FOR I:=1 to N do
        For J:=1 to m do
          a1[I,J]:=random(b-a+1)+a
          writeln('Matrica sformirovana');
          END;
             Procedure print;
              begin
              writeln('Ishodnai matrica A1:');
              For J:=1 to N do
                begin
                FOr J:=1 to m do
                   write(A1[I,J]:4,'   ':3);
                   writeln;
              end;
                   writeln('Nazmite knopku ENTER');
                end;
                        begin
                            clrscr;
                            writeln('');
                            W:=0;
                            while W<=7
                               begin
                                 writeln('Menu programmi');
                                 writeln('1:formirovanie matrici');
                                 writeln('2:Vivod matrici na ekran')
                                 writeln('3:Zadanie');
                                 writeln('8:Vihod iz programi');
                                 writeln('Vash vibor');
                                 Readln(W);
                                 case of W;
                                 1:Formirov;
                                 2:Print;
                                 3:Zadanie;
                            ENd;
                       end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2009, 18:42
Ответы с готовыми решениями:

В матрице поменять местами I-тую и J-тую строки
Задание.В матрице поменять местами I-тую и J-тую строки.

Матрица. Поменять местами I-тую и J-тую строки.
В матрице поменять местами I-тую и J-тую строки. Можно использовать функции и если будет ввод...

В матрице поменять местами элементы на главной и побочной диагоналях, оставив каждый элемент в той же строке, где он и находился
В матрице n*n поменять местами элементы на главной и побочной диагоналях, оставив каждый элемент в...

В матрице поменять местами I-тую строку и J-тый столбец.
Без понятия как это делать. В матрице поменять местами I-тую строку и J-тый столбец

6
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.01.2009, 19:48 2
Код
Поажалуйста, кто может, пожалуйста помогите доделать
Так Вы еще и не начинали решать задачу, ибо вся написанная Вами галиматья никакого отношения к условию задачи не имеет.
0
2 / 2 / 0
Регистрация: 27.12.2008
Сообщений: 42
28.01.2009, 19:49  [ТС] 3
плохо :-( я думал хоть что-то да правильно, и хоть что-то будет полезным...
Помогите, тогда решить задачку...
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.01.2009, 19:54 4
В матрице поменять мастеами K-тую c L-той строки, K и L в режиме диалога.
В режиме диалога, не значит, что надо городить меню. Это значит, что k и L не константы, а запрашиваются программой и вводятся с клавиатуры, т.е. так:
write('Vvedite znachenie K:');
readln(k);
А задача минимум 2 раза выкладывалась в этом разделе форума, сейчас поищу.
1
2 / 2 / 0
Регистрация: 27.12.2008
Сообщений: 42
28.01.2009, 19:57  [ТС] 5
Спасибо за помошь...

Добавлено через 1 минуту 8 секунд
а можно вот таким видом сделать?
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
51
52
Program prim;
Uses crt;
var
 a1:Array[1..100,1..100] of integer;
I,J,n,m,a,b,w:integer;
 
Procedure formirov;
Begin
   writeln('Vvedite N,m,a,b');
   readln(N);
   readln(m);
   readln(a);
   readln(b);
   randomize;
   FOR I:=1 to N do
    For J:=1 to m do
     a1[I,J]:=random(b-a+1)+a;
    writeln('Matrica sformirovana');
END;
 
Procedure print;
begin
 writeln('Ishodnai matrica A1:');
 For i:=1 to N do
  begin
   FOr J:=1 to m do
     write(A1[I,J]:4,'   ');
   writeln;
  end;
  writeln('Nazmite knopku ENTER');
end;
 
begin
clrscr;
writeln('');
W:=0;
while W<=7 do
 begin
  writeln('Menu programmi');
  writeln('1:formirovanie matrici');
  writeln('2:Vivod matrici na ekran');
  writeln('3:Zadanie');
  writeln('8:Vihod iz programi');
  writeln('Vash vibor');
  Readln(W);
  case W of
   1:Formirov;
   2:Print;
   3: {Zadanie;}
  ENd;
 end;
end.
???
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.01.2009, 20:12 6
Не понимаю, чего Вы мудрите? Ведь в задании никаких наворотов нет, обычная задача. Короче вот ее решение, а когда с решением разберетесь, то оформляйте его как Вам нравится, это ведь не главное, главное понять алгоритм обмена строк.
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
uses crt;
const n=6; 
      m=5;
{размер матрицы-константа, хотя не обязательно}
var a:array[1..n,1..m] of integer;
    i,j,k,l,x:integer;
begin
clrscr;
writeln('Ishodnaja matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=10*i+j;
{для наглядности заносим в матрицу индексы ячеек, можно по другому}
        write(a[i,j]:4);
      end;
    writeln;
  end;
repeat
write('Vvedite nomer stroki K: ');readln(k);
write('Vvedite nomer stroki L: ');readln(l);
until (k>=1)and(k<=n)and(l>=1)and(l<=n)and(k<>l);
for j:=1 to m do {идем по строке}
   begin
     x:=a[k,j];
{запоминаем элементы строки K}
     a[k,j]:=a[l,j];
{присваиваем им элементы строки L}
     a[l,j]:=x;
{элементам строки L присваиваем запомненные элементы строки K}
   end;
writeln('Rezultat:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.
1
2 / 2 / 0
Регистрация: 27.12.2008
Сообщений: 42
28.01.2009, 20:13  [ТС] 7
Puporev
Вы правы, большое спасибо щас буду разбираться...
0
28.01.2009, 20:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2009, 20:13
Помогаю со студенческими работами здесь

Поменять местами минимальный и максимальный элемент массива к-той строки
Дан массив A(n,m), найти максимальный и минимальный элемент к -той строки и поменять их местами

Дана матрица поменять местами i-тый и j-тую строку матрицы.
Дана матрица поменять местами i-тый и j-тую строку матрицы. Заголовок темы изменен модератором....

Дан квадратный массив. Поменять местами i-тую строку и i-тый столбец
Поменять местами i-тую строку и i-тый столбец.

Поменять местами строки в матрице
в действительной матрице А(5,6) поменять местами строки с наибольшей и наименьшей суммой элементов


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru