Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
28.11.2010, 11:03 0

Удалить строку матрицы с номером k

28.11.2010, 11:03. Просмотров 825. Ответов 7
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

const a:array[1..N,1..N] of integer =
Никак Вы из константы ничего не удалите...

Добавлено через 12 минут
Задача 1, вторая аналогично.
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
53
54
55
56
57
58
59
60
61
62
63
uses crt;
var a:array[1..4,1..10] of integer;
    m,n,i,j,k,w:byte;
begin
clrscr;
randomize;
m:=4;
n:=10;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
writeln('Выберите действие 1-удалить строку 2-удалить столбец');
readln(w);
until w in [1,2];
case w of
1:begin
  repeat
  write('Введите номер строки для удаления от 1 до ',m,' k=');
  readln(k);
  until k in [1..m];
  if k=m then m:=m-1
  else
   begin
    for i:=k to m-1 do
    for j:=1 to n do
    a[i,j]:=a[i+1,j];
    m:=m-1;
    writeln('Строка номер ',k,' удалена');
   end;
  end;
2:begin
  repeat
  write('Введите номер столбца для удаления от 1 до ',n,' k=');
  readln(k);
  until k in [1..n];
  if k=n then n:=n-1
  else
   begin
    for j:=k to n-1 do
    for i:=1 to m do
    a[i,j]:=a[i,j+1];
    n:=n-1;
    writeln('Столбец номер ',k,' удален');
   end;
  end;
end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
readln
end.


Вернуться к обсуждению:
Удалить строку матрицы с номером k
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2010, 11:03
Готовые ответы и решения:

Удалить из матрицы строку или столбец с номером k.
Дано число k и матрица размеров 4*10. Удалить строку или столбец с номером k....

Вставить после строки с номером p данной матрицы новую строку
Помогите пожалуйста с задачкой, очень нужно... Дана действительная матрица...

Перед строкой матрицы с номером К вставить строку из нулей (найти ошибку)
const max=20; var x:arrayof integer; m,n,i,j,k,t:integer; begin clrscr;...

Преобразовать матрицу по правилу: строку с номером P сделать столбцом с номером P
1) С клавиатуры вводится строка. Напечатать по одному разу все буквы, входящие...

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

7
Другие темы раздела
Pascal Строки в Паскале http://www.cyberforum.ru/pascal/thread198608.html
Выбрать из заданного текста слова заданной длины и напечатать их по одному на каждой строке. Помогите плиз!!!
Pascal Графика в паскале Нарисовать 15 белых и 15 чёрных чередующихся вертикальных полос. зделать имитацию их движения !!! http://www.cyberforum.ru/pascal/thread198606.html
Составить программы в Pascal Pascal
1. Сколько раз в данной строке встречается символ "а"? 2. Если длина строки нечетное число, то удалить среднюю букву. 3. Заменить все вхождения подстроенных "del" на "Insert". 4. Дана строка,...
Pascal нужно доделать
Программа полностью рабочая,но надо дописать чтобы когда вводиш числа он писал: введите для 1ой фирмы,введите для второй и тд.И ответ чтобы выводил в виде: 1 фирма перевыполнила план в... и тд Вот...
Pascal Написать программу,которая удаляет из введенной строки все подстроки совпадающие с заданной http://www.cyberforum.ru/pascal/thread198567.html
Написать программу,которая удаляет из введенной строки все подстроки совпадающие с заданной.
Pascal правильность ''структуры файла'' , содержащего массив размером n на n проверить правильность ''структуры файла'' :наличие в нем только целых чисел ,заданного числа строк, заданного числа элементов в каждой строке. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru