|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2014, 16:44 | #1 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Двумерные массивы!
Здравствуйте уважаемые программисты. Не сочтите за наглость, обратится вам за помощью. Вот такое задание. Не могу написать текст программы. Вот задача: Дан двумерный массив. Найти номера всех максимальных элементов. Спасибо за внимание!
Код:
Последний раз редактировалось Stilet; 22.05.2014 в 17:19. |
22.05.2014, 16:46 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Исправьте, пожалуйста, ваше сообщение, заключив программу в тэги сode. Читать невозможно.
|
22.05.2014, 16:49 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
22.05.2014, 16:52 | #4 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Изменил
Исправил! Так можно прочитать думаю, хоть и корява написано.
|
22.05.2014, 16:54 | #5 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Не пойму.
А что означает массив имеет другое количество размерности? Выдаёт когда запускаю. Конечно пойдёт. Спасибо огромное за помощь!
|
22.05.2014, 17:02 | #6 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Массив то одномерным описан, а работаете (пытаетесь) как с двумерным.
Код:
Последний раз редактировалось ZX Spectrum-128; 22.05.2014 в 17:05. |
22.05.2014, 21:48 | #7 |
Пользователь
Регистрация: 25.03.2014
Сообщений: 21
|
Правильно?
Вот так?
const M_max=100; type TMyArray=Array [1..M_max,1..M_max] of Integer; var A:TMyArray; n, m,maxx,i,j,t: Integer; procedure Zapolnenie(var a:TMyArray); var i, j:byte; result: integer; begin For i:=1 to n do For j:=1 to m do begin a[i, j]:=random(20)-10; if ((i=1)and(j=1)) or (a[i,j]>maxx) then maxx:=a[i,j]; end; end; Procedure Poisk( var a:TMyArray); var i,j: byte; begin for i:=1 to n do begin for j:=1 to m do if a[i, j]=maxx then write(j:5) else write(' '); writeln; end; end; Procedure Vivod ( var a:TMyArray); begin for i:=1 to n do begin for j:=1 to m do write(a[i,j], ' '); writeln; end; end; begin Zapolnenie(a); Vivod(a); Poisk(a); readln; end. Только не совсем пойму как работает. Какое число вводит, такое и выводит. Но внизу пишет номер строки и столбца. |
22.05.2014, 22:04 | #8 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Код:
Ааааа, дошло N и m ничему не равны, присвойте им значения до процедуры заполнения. Последний раз редактировалось ZX Spectrum-128; 22.05.2014 в 22:07. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Двумерные массивы | Dumbl-D | Помощь студентам | 3 | 07.12.2013 20:21 |
Двумерные массивы | Oksik_ | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 05.11.2012 17:06 |
Одномерные массивы, двумерные массивы, строки | Sand093 | C++ Builder | 11 | 20.05.2012 21:48 |
Двумерные массивы(матрица) 2)Строковые массивы(строки): 3)Структуры | nuriyat | Помощь студентам | 1 | 21.01.2012 16:16 |
Двумерные массивы(массивы указателей на массивы) | krytishka99 | Помощь студентам | 1 | 29.12.2011 19:51 |