|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2008, 23:26 | #1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
Нужно подредактировать прогу(по матрице)
Вычеркнуть из матрицы I-тые строки и J-тые столбцы, удовлетворяющие условию: I*J=Z (где Z задаваемый параметр от N до большего из N и M. Вот написал пограмму. Вот её код:
program lab10; uses crt; var mas:array[1..15,1 ..15] of integer; n,m,q,z,i,j:integer; begin clrscr; randomize; writeln('vvedite i-'); readln(n); writeln('vvedite j-'); readln(m); writeln('vvedite z-'); readln(z); for I:=1 to N do for J:=1 to M do mas[i,j] := random(100); for I:=1 to N do for J:=1 to M do if i*j=z then begin writeln('i-',i,' j-',j); for q:=1 to n do mas[i,q]:=0; for q:=1 to m do mas[q,j]:=0; end; for I:=1 to N do begin for J:=1 to M do write(mas[i,j]:3, ' '); writeln; end; readln; end. Но по какой то причине при просьбе ввести j программа это значение обнуляет, и матрицу не выводит вовсе, оставляя только место для неё. Помогите подредактировать прогу, а то я не знаю что делать. Заранее благодарен. Последний раз редактировалось Иван 883; 27.12.2008 в 01:24. |
27.12.2008, 01:30 | #2 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
вычеркнуть-т.е обнулить?
|
27.12.2008, 01:43 | #3 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос по матрицам | Jigar | Помощь студентам | 9 | 17.07.2008 14:06 |
Задача по матрицам | Alfons | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 05.03.2008 14:09 |
Программа по матрицам в паскале. | drakon803 | Помощь студентам | 1 | 12.12.2007 20:11 |