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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 27.12.2008, 00:26   #1
Иван 883
Пользователь
 
Регистрация: 25.12.2008
Сообщений: 39
Репутация: 10
Вопрос Нужно подредактировать прогу(по матрице)

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

icq: 466410310
По умолчанию

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

icq: 466410310
По умолчанию

Код:
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.
Викдон вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


04:10.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.