Перед строкой матрицы с номером К вставить строку из нулей (найти ошибку)

@TORVALD · Регистрация: 14.05.2009

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

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
const max=20;
var x:array[1..max,1..max]of integer;
m,n,i,j,k,t:integer;
begin
clrscr;
randomize;
repeat
write('vvedite kol-vo strok ot 1 do ',max,' =');
readln(m);
until m in [1..max];
repeat
write('vvedite kol-vo stolbcov ot 1 do ',max,' =');
readln(n);
until n in [1..max];
Writeln('Isxodna9 matrica:');
for i:=1 to m do
begin
for j:=1 to n do
begin
x[i,j]:=random(50)+10;
write(x[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Vstavka nylei:');
repeat
write('Vvedite v kakyui stroku vstavl9t nyli ',n,' :');
readln(k);
until k in [1..n];
for j:=1 to n do
begin
for i:=m+1 downto k+2 do
x[i,j]:=x[i-1,j];
x[k+1,j]:=0;
end;
for i:=1 to m do
begin
for j:=1 to n+1 do
write(x[i,j]:4);
writeln;
end;
readln
end.

Условие задачи: Дана матрица размера МхN и целое число К(1<=K<=M). Перед строкой матрицы с номером К вставить строку из нулей.

@Hovercat · 25.12.2009, 20:01

Pascal
1
var x:array[1..max,1..max]of integer;

заміни на

Pascal
1
var x:array[1..m,1..n]of integer;

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
repeat
write('vvedite kol-vo strok ot 1 do ',max,' =');
readln(m);
until m in [1..max];
repeat
write('vvedite kol-vo stolbcov ot 1 do ',max,' =');
readln(n);
until n in [1..max]; 
оце заміни на 
write('vvedite kol-vo strok ot 1 do ',max,' =');
read(m);
write('vvedite kol-vo stolbcov ot 1 do ',max,' =');
read(n);
 
 
begin
x[i,j]:=random(50)+10;
write(x[i,j]:4);
end;
заміни на 
begin
write('x[',i,',',j,]=');
read(x[i,j]);
end;
 
repeat
write('Vvedite v kakyui stroku vstavl9t nyli ',n,' :');
readln(k);
until k in [1..n];
заміни на 
write('Vvedite v kakyui stroku vstavl9t nyli ',n,' :');
read(k);

@TORVALD · 26.12.2009, 02:00 **[ТС]**

не хочу показатся глупым.. но что то непонятно расписали...

Добавлено через 29 минут
что ли выдели цветом желтым или оранжевым те строки которые надо переделать..

@sheka · 26.12.2009, 02:12

Hovercat, это сделано так для ввода матрицы, размерности заданой пользователем в Run-Time

@Puporev · 26.12.2009, 10:56

TORVALD, А просто самому навести порядок в программе, не путать количество строк и столбцов, вставлять не после, а перед, совсем уже лень?

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
uses crt;
const max=20;
var x:array[1..max,1..max]of integer;
m,n,i,j,k,t:integer;
begin
clrscr;
randomize;
repeat
write('vvedite kol-vo strok ot 1 do ',max,' =');
readln(m);
until m in [1..max];
repeat
write('vvedite kol-vo stolbcov ot 1 do ',max,' =');
readln(n);
until n in [1..max];
Writeln('Isxodna9 matrica:');
for i:=1 to m do
begin
for j:=1 to n do
begin
x[i,j]:=random(50)+10;
write(x[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Vstavka nylei:');
repeat
write('Vvedite pered kakoj strokoj(1..',m,') vstavl9t nyli k=');
readln(k);
until k in [1..m];
for j:=1 to n do
 begin
  for i:=m+1 downto k do
  x[i,j]:=x[i-1,j];
  x[k,j]:=0;
 end;
for i:=1 to m+1 do
begin
for j:=1 to n do
write(x[i,j]:4);
writeln;
end;
readln
end.

@TORVALD · 27.12.2009, 19:58 **[ТС]**

Дана матрица размера МхN и целое число К(1<=K<=M). Перед строкой матрицы с номером К вставить строку из нулей.

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
uses crt;
const max=20;
var x:array[1..max,1..max]of integer;
    m,n,i,j,k,t:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',max,' m=');
readln(m);
until m in [1..max];
repeat
write('Количество столбцов от 1 до ',max,' n=');
readln(n);
until n in [1..max];
Writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=random(50)+10;
    write(x[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Вставка единиц:');
repeat
write('Введите число от 1 до ',n,' k=');
readln(k);
until k in [1..n];
for i:=1 to m do
 begin
  for j:=n+1 downto k+2 do
  x[i,j]:=x[i,j-1];{здесь выполняется вставка нулей по столбцу}
  x[i,k+1]:=0;
 end;
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  write(x[i,j]:4);
  writeln;
 end;
readln
end.

в этом коде вставка идет по столбцу.. что именно изменить для вставки перед строкой..

@Snoopy · 27.12.2009, 20:06

После столбца матрицы с номером K вставить столбец из единиц.
в конце темы как вставить строку

@yanyk1n · 27.12.2009, 20:06

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 max=20;
var x:array[1..max,1..max]of INTEGER;
    m,n,i,j,k,t:INTEGER;
begin
clrscr;
RANDOMIZE;
repeat
WRITE('Количество строк от 1 до ',max,' m=');
readln(m);
UNTIL m in [1..max];
repeat
WRITE('Количество столбцов от 1 до ',max,' n=');
readln(n);
UNTIL n in [1..max];
Writeln('Исходная матрица:');
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n DO
   begin
    x[i,j]:=RANDOM(50)+10;
    WRITE(x[i,j]:4);
   END;
  writeln;
 END;
writeln;
writeln('Вставка нулей:');
repeat
WRITE('Введите число от 1 до ',n,' k=');
readln(k);
UNTIL k in [1..n];
for i:=m+1 downto k do for j:=1 to n do x[i,j]:=x[i-1,j];
for j:=1 to n do x[k-1,j]:=0;
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n+1 DO
  WRITE(x[i,j]:4);
  writeln;
 END;
readln;
END.

@TORVALD · 27.12.2009, 20:11 **[ТС]**

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

После столбца матрицы с номером K вставить столбец из единиц.
в конце темы как вставить строку

оно там не правильно вставляет..

Добавлено через 4 минуты

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

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 max=20;
var x:array[1..max,1..max]of INTEGER;
    m,n,i,j,k,t:INTEGER;
begin
clrscr;
RANDOMIZE;
repeat
WRITE('Количество строк от 1 до ',max,' m=');
readln(m);
UNTIL m in [1..max];
repeat
WRITE('Количество столбцов от 1 до ',max,' n=');
readln(n);
UNTIL n in [1..max];
Writeln('Исходная матрица:');
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n DO
   begin
    x[i,j]:=RANDOM(50)+10;
    WRITE(x[i,j]:4);
   END;
  writeln;
 END;
writeln;
writeln('Вставка нулей:');
repeat
WRITE('Введите число от 1 до ',n,' k=');
readln(k);
UNTIL k in [1..n];
for i:=m+1 downto k do for j:=1 to n do x[i,j]:=x[i-1,j];
for j:=1 to n do x[k-1,j]:=0;
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n+1 DO
  WRITE(x[i,j]:4);
  writeln;
 END;
readln;
END.

все равно не правильно.. оно мне вставляет в столбец и в рядок...

@Snoopy · 27.12.2009, 20:14

в последнем цикле уберите n+1 оставьте до n

@TORVALD · 27.12.2009, 20:19 **[ТС]**

м. ошибка такого плана
я выбираю 3ю строку оно вставляет после 1вой и пропадет последняя строка...

@TORVALD · 27.12.2009, 20:55 **[ТС]**

Дана матрица размера МхN и целое число К(1<=K<=M). Перед строкой матрицы с номером К вставить строку из нулей.
Вставляет немного неправильно и пропадает последняя строка..

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 max=20;
var x:array[1..max,1..max]of INTEGER;
    m,n,i,j,k,t:INTEGER;
begin
clrscr;
RANDOMIZE;
repeat
WRITE('Количество строк от 1 до ',max,' m=');
readln(m);
UNTIL m in [1..max];
repeat
WRITE('Количество столбцов от 1 до ',max,' n=');
readln(n);
UNTIL n in [1..max];
Writeln('Исходная матрица:');
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n DO
   begin
    x[i,j]:=RANDOM(50)+10;
    WRITE(x[i,j]:4);
   END;
  writeln;
 END;
writeln;
writeln('Вставка нулей:');
repeat
WRITE('Введите число от 1 до ',n,' k=');
readln(k);
UNTIL k in [1..n];
for i:=m+1 downto k do for j:=1 to n do x[i,j]:=x[i-1,j];
for j:=1 to n do x[k-1,j]:=0;
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n+1 DO
  WRITE(x[i,j]:4);
  writeln;
 END;
readln;
END.

@VladimirKozloff · 27.12.2009, 21:22

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

FOR i:=1 TO m DO
begin
FOR j:=1 TO n+1 DO
WRITE(x[i,j]:4);
writeln;
END;

Если вы добовляете строку (i), зачем при выводе увелчивать количество столбцов?
Замените на:

Pascal
1
2
3
4
5
6
FOR i:=1 TO m+1 DO
 begin
  FOR j:=1 TO n DO
  WRITE(x[i,j]:4);
  writeln;
 END;

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

FOR j:=1 TO n DO x[k-1,j]:=0;

При обнуление учитываем сдвиг, а значит обнуляем k строку, а не k-1;

@TORVALD · 27.12.2009, 21:40 **[ТС]**

огромное спасибо

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136
	26.12.2009, 02:00 [ТС]
	не хочу показатся глупым.. но что то непонятно расписали... Добавлено через 29 минут что ли выдели цветом желтым или оранжевым те строки которые надо переделать.. 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	26.12.2009, 02:12
	Hovercat, это сделано так для ввода матрицы, размерности заданой пользователем в Run-Time 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	27.12.2009, 20:06
	После столбца матрицы с номером K вставить столбец из единиц. в конце темы как вставить строку 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	27.12.2009, 20:14
	в последнем цикле уберите n+1 оставьте до n 0

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136
	27.12.2009, 20:19 [ТС]
	м. ошибка такого плана я выбираю 3ю строку оно вставляет после 1вой и пропадет последняя строка... 0

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136
	27.12.2009, 21:40 [ТС]
	огромное спасибо 0