Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 26.12.2008, 23:26   #1
Иван 883
Пользователь
 
Регистрация: 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.
Иван 883 вне форума Ответить с цитированием
Старый 27.12.2008, 01:30   #2
Викдон
Форумчанин
 
Аватар для Викдон
 
Регистрация: 11.11.2008
Сообщений: 161
По умолчанию

вычеркнуть-т.е обнулить?
Викдон вне форума Ответить с цитированием
Старый 27.12.2008, 01:43   #3
Викдон
Форумчанин
 
Аватар для Викдон
 
Регистрация: 11.11.2008
Сообщений: 161
По умолчанию

Код:
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 m do mas[i,q]:=0;
for q:=1 to n 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.
Викдон вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по матрицам Jigar Помощь студентам 9 17.07.2008 13:06
Задача по матрицам Alfons Паскаль, Turbo Pascal, PascalABC.NET 3 05.03.2008 14:09
Программа по матрицам в паскале. drakon803 Помощь студентам 1 12.12.2007 20:11


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS