|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.01.2007, 18:51 | #1 |
Регистрация: 25.12.2006
Сообщений: 6
|
Задача на исключение строк в матрице
Написать подпрограмму в Паскале
Входные параметры 1)Матрица "A" размром (m) х (n) 2) Матрица "B" размером (m-1) x (n-1) 3)Целые числа(integer?) номер строки и столбца матрицы "A" Задание: Заполнить матрицу "В" элементами "А" исключив строки и столбец номера которых даны. ----------------------------------------- Люди пожалуста помогите как можно скорее... Заранее крайне благодарен Последний раз редактировалось DRAG; 18.01.2007 в 19:28. |
19.01.2007, 22:33 | #2 |
Регистрация: 25.12.2006
Сообщений: 6
|
Млиин лююди неужели она сложная такая... этож первый курс всего-то... это я нимагу решить туплю неполучается.. а тут же вроде мега прогеры сидят... или млин... че делать то...
|
19.01.2007, 23:19 | #3 |
Пользователь
Регистрация: 19.12.2006
Сообщений: 91
|
Код:
Последний раз редактировалось Flash_; 19.01.2007 в 23:21. |
23.01.2007, 03:44 | #4 |
Регистрация: 25.12.2006
Сообщений: 6
|
Спасибо друг))
|
16.10.2009, 20:53 | #5 |
Новичок
Джуниор
Регистрация: 16.10.2009
Сообщений: 4
|
Задача на исключение строк
Дана матрица [A], размером N x M. Исключить из матрицы К-ую строку. Вывести на печать исходную и полученную матрицы
Задача решена, но мне срочно нужен подробный комментарий к листингу, ребят помогите пожалуйста |
16.10.2009, 20:55 | #6 |
Участник клуба Подтвердите свой е-майл
Регистрация: 19.11.2007
Сообщений: 1,022
|
Листинг давайте.
|
16.10.2009, 20:58 | #7 |
Новичок
Джуниор
Регистрация: 16.10.2009
Сообщений: 4
|
var
n, m, k: byte; a: array of array of integer; b: array of array of integer; i,j: byte; begin repeat //writeln('Введите количество строк (количество строк должно быть больше 1): '); writeln('Input rows count (row count must be more than 1): '); readln(n); until n>1; //writeln('Введите количество столбцов: '); writeln('Input columns count: '); readln(m); SetLength(a,n); for i:=0 to n-1 do SetLength(a[i],m); //writeln('Введите построчно элементы матрицы: '); writeln('Input elements of matrix (by rows): '); for i:=0 to n-1 do for j:=0 to m-1 do read(a[i,j]); repeat //writeln('Введите номер строки, которую следует исключить (номер строки должен быть в диапазоне от 1 до ' + IntToStr(n) + '): '); writeln('Input row number for exclude (row number must be between 1 and ' + IntToStr(n) + '): '); readln(k); until ((k>0) and (k<=n)); SetLength(b,n-1); for i:=0 to n-2 do SetLength(b[i],m); for i:=0 to n-1 do begin if i<(k-1) then for j:=0 to m-1 do b[i,j]:=a[i,j] else if i>(k-1) then for j:=0 to m-1 do b[i-1,j]:=a[i,j]; end; writeln('Source matrix:'); for i:=0 to n-1 do begin for j:=0 to m-1 do write(IntToStr(a[i,j]) + ' '); writeln(''); end; writeln('Result matrix (' + IntToStr(k) + ' row was excluded'); for i:=0 to n-2 do begin for j:=0 to m-1 do write(IntToStr(b[i,j]) + ' '); writeln(''); end; readln; end. |
16.10.2009, 21:19 | #8 | |||||
Участник клуба Подтвердите свой е-майл
Регистрация: 19.11.2007
Сообщений: 1,022
|
Цитата:
Цитата:
Цитата:
Цитата:
Цитата:
|
|||||
16.10.2009, 21:31 | #9 |
Новичок
Джуниор
Регистрация: 16.10.2009
Сообщений: 4
|
Спасибки)))А еще подробней можно??? просто задание в контрольной такое - "Листинги программы и результаты решения должны иметь подробные комментарии и пояснения." у меня завтра зачет я незнаю куда деться ни че не успеваю...
|
16.10.2009, 21:36 | #10 |
Участник клуба Подтвердите свой е-майл
Регистрация: 19.11.2007
Сообщений: 1,022
|
Так что ли?
Код: Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как обработать исключение? | XPAiN | БД в Delphi | 9 | 16.05.2008 15:09 |
Excel max 256 строк VS user надо 300 строк | Exo | Microsoft Office Excel | 3 | 10.01.2008 17:14 |
HELP!Си - программа для работы со строками + сумма строк в матрице! | DUPLET | Помощь студентам | 1 | 20.12.2007 21:16 |
задача на массив строк | hijack | Помощь студентам | 0 | 26.11.2007 23:10 |
Исключение EIdReadTimeout | Pedro | Работа с сетью в Delphi | 1 | 22.09.2007 22:51 |