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

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

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

 
 Ответить  Открыть новую тему 
> Вводятся размеры матрицы и её элементы. Удалить строку, в которой находится самый большой элемент матрицы., используя процедуру
сообщение
Сообщение #1


Новичок
*

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

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


var a:array[1...100] of array[1..100] of integer;
max,i,j:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i]);
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then m:=i;
for i:=1 to m-1 do
for j:=1 to n do
writeln(a[i,j]);
for i:=1 to m+1 do
for j:=1 to n do
writeln(a[i,j]);
readln
end.


че-то я с процедурами не бум бум, как через нее сделать? намекните немного че в нее записывать, а че нет.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

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

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


Че никто это в процедурку не запихнет...а то я не умею
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Я.
****

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

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


Патамушо азачем? smile.gif
procedure _;
var a:array[1...100] of array[1..100] of integer;
max,i,j:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i]);
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then m:=i;
for i:=1 to m-1 do
for j:=1 to n do
writeln(a[i,j]);
for i:=1 to m+1 do
for j:=1 to n do
writeln(a[i,j]);
readln
end;

begin _ end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


Условие задачи такое. нужно делать через процедуру.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






sheka, похоже, что процедура должна только удалить строку из матрицы, а все остальное (заполнение матрицы и ее печать) нужно делать в основной программе.

По заданию тоже возникает несколько вопросов:
1) а если у меня в матрице несколько макс. элементов, и находятся они в каждой строке - мне что, все строки удалять?
2) автор понимает разницу между "удалить данные из матрицы" и "не печатать определенную строку при выводе"? Сейчас может и не напечатаешь, дальше опять эта строка всплывет. Удаление - это навсегда, нижние строки перемещаются на одну вверх и затирают удаляемые значения.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


предположим. что 1 элемент
понимаю о чем вы хотите сказать
есть варианты? именно с процедурой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 2:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name