Поменять местами k-ю и n-ю строки матрицы

diagen_62 · 17.04.2011, 20:58

вот сидел пробовал..помогите исправить ошибки

const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,k,i,g:integer;
begin
randomize;
n:=b;
for i:=1 to n do
for g:=1 to m do begin
p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end
end.

Vladimir_S · 17.04.2011, 21:44

Цитата:

Сообщение от diagen_62

вот сидел пробовал..помогите исправить ошибки

const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,i,g:integer;
begin
randomize;
n:=b;
for i:=1 to n do
for g:=1 to m do begin
p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end
end.

Да вроде правильно, вот только непонятно, зачем вводить b и n? Вполне достаточно одного n. И ещё - а ввод значений матрицы Пушкин делать будет?

Потом, после заполнения матрицы случайными числами, желательно на результат посмотреть. И после процедуры перестановки - тоже. Добавлено.

Код:

const
 n=10;
 m=4;
 k=6;
var 
 a:array[1..n,1..m] of integer;
 p,i,g:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for g:=1 to m do
    begin
     a[i,g]:=random(50);
     write(a[i,g]:4);
    end;
   writeln;
  end;
 writeln; 
 for g:=1 to m do 
  begin
   p:=a[k,g]; 
   a[k,g]:=a[n,g]; 
   a[n,g]:=p; 
  end;
 for i:=1 to n do
  begin
   for g:=1 to m do
    write(a[i,g]:4);
   writeln;
  end
end.

Извиняюсь, исправил там еще ошибки.

17.04.2011, 20:58	#1 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Поменять местами k-ю и n-ю строки матрицы вот сидел пробовал..помогите исправить ошибки const b=10;m=4; var a:array[1..b,1..m] of integer; p,n,k,i,g:integer; begin randomize; n:=b; for i:=1 to n do for g:=1 to m do begin p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

17.04.2011, 20:58
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме ранее создавались аналогичные обсуждения Ошибка в элементарной программе, поменять местами буквы в строке Создание матрицы на Си Матрицы Матрицы Матрицы

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070