IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача с матрицей, Заполнить матрицу с помощью генератора случайных чисел. Ввести элемент
Олень
сообщение 15.12.2007 23:31
Сообщение #1


Гость
Заполнить матрицу с помощью генератора случайных чисел. Ввести элемент с клавиатуры и удалить строки, где встречается такой же элемент. Предусмотреть искл. Ситуации. СПС заранее
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
nopsrer
сообщение 16.12.2007 21:49
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Максим

Репутация: -  0  + 

uses crt;
const
n=10; m=10;
var t,i,j,ch,k: integer;
mas,nmas: array [1..100,1..100] of integer;
mas2: array[1..100] of boolean;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
writeln('Vvedite chislo');
readln(ch);
for i:=1 to n do
for j:=1 to m do
if mas[i,j]=ch then  mas2[i]:=true;
t:=0;

for i:=1 to n do begin
if mas2[i]=false then begin t:=t+1;
for k:=1 to m do
nmas[t,k]:=mas[i,k]; end;
end;
writeln('ORIGINAL masiv');
for i:=1 to n do begin
for j:=1 to m do
write(mas[i,j],' ');
writeln;
end;
writeln('NEW masiv');
for i:=1 to t do begin
for j:=1 to m do
write(nmas[i,j],' ');
writeln;
end;
readln;
end.


Сообщение отредактировано: nopsrer - 16.12.2007 21:50
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alter
сообщение 17.12.2007 18:35
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +

Цитата(nopsrer @ 16.12.2007 21:49) *

uses crt;
const
n=10; m=10;
var t,i,j,ch,k: integer;
mas,nmas: array [1..100,1..100] of integer;
mas2: array[1..100] of boolean;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
writeln('Vvedite chislo');
readln(ch);
for i:=1 to n do
for j:=1 to m do
if mas[i,j]=ch then  mas2[i]:=true;
t:=0;

for i:=1 to n do begin
if mas2[i]=false then begin t:=t+1;
for k:=1 to m do
nmas[t,k]:=mas[i,k]; end;
end;
writeln('ORIGINAL masiv');
for i:=1 to n do begin
for j:=1 to m do
write(mas[i,j],' ');
writeln;
end;
writeln('NEW masiv');
for i:=1 to t do begin
for j:=1 to m do
write(nmas[i,j],' ');
writeln;
end;
readln;
end.


спс огромное!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Олень   Задача с матрицей   15.12.2007 23:31
Client   Смотри в FAQ'е, там все есть   16.12.2007 8:35
alter   тока мну нельзя использовать функции и процедуры. ...   16.12.2007 12:10
alter   помогите плз!!!!!!   16.12.2007 21:15
nopsrer   uses crt; const n=10; m=10; var t,i,j,ch,k: intege...   16.12.2007 21:49
alter   uses crt; const n=10; m=10; var t,i,j,ch,k: integ...   17.12.2007 18:35
alter   а можно все сделать в одном массиве?и без массива ...   20.12.2007 19:18
volvo   Можно: uses crt; const n: integer = 10; m = ...   20.12.2007 21:22
alter   СПС! зы почему йа не могу плюс в репутацию по...   20.12.2007 22:13
volvo   Еще 2 сообщения и сможешь :)   20.12.2007 22:20

« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 8.12.2025 19:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"