|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.11.2008, 20:48 | #1 |
Регистрация: 29.10.2008
Сообщений: 6
|
Задачка на 2мерный массив
Помогите пжалусто с задачкой..сделал тока частично..(Тип STRING не использовать)
1. Описать матрицу 8х8 элементов. 2. Заполнить элементы матрицы согласно варианту(чуть ниже) случайными числами в диапазоне -8,8 3. Распечатать элементы матрицы с помощью подпрограммы с указанием сумм по каждой строке и каждому столбцу, а также общей суммы. 4. Преобразовать матрицу: Элементы строки с минимальной суммой расположить в обратном порядке. 5. Повторно распечатать элементы матрицы с суммами. Заполнение матрицы: 24 9 8 10 7 . . . . . . . 15 2 17 16 1 Последний раз редактировалось forz; 09.11.2008 в 20:50. |
10.11.2008, 12:21 | #2 |
Регистрация: 29.10.2008
Сообщений: 6
|
Помогите пожалуйста товарищи программисты!
|
10.11.2008, 14:33 | #3 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
Вот пример, думаю не будет сложно его переделать
uses SysUtils; const n=8; var Mas:Array[1..n,1..n] of integer; i,j:Integer; function sumStolbec(Pst:Integer):Integer; var Sum,i:Integer; begin sum:=0; for i:=1 to n do sum:=sum+Mas[i,Pst]; sumStolbec:=Sum; end; function sumStroka(Pst:Integer):Integer; var Sum,j:Integer; begin sum:=0; for j:=1 to n do sum:=sum+Mas[Pst,j]; sumStroka:=Sum; end; begin writeln('Размерность матрицы',n,'x',n); for i:=1 to n do for j:=1 to n do readln(Mas[i,j]); for i:=1 to n do begin for j:=1 to n do write(Mas[i,j],' ') ; writeln; end; writeln('Suma po stolbcam: '); for j:=1 to n do write(sumStolbec(j),' '); write('Suma po strokam: '); for i:=1 to n do write(sumStroka(i),' '); readln; end. |
10.11.2008, 17:57 | #4 |
Регистрация: 29.10.2008
Сообщений: 6
|
спс конешно но вот чет я не могу понять как запонить матрицу согласно варианту)) написано рандом но вто же время в заполнении матрицы написана какаято упорядоченность.... кста над еще найти
Элементы строки с минимальной суммой расположить в обратном порядке и Повторно распечатать элементы матрицы с суммами. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачка про массив - Из массива удалить четные элементы, стоящие после максимального | Crookers | Общие вопросы C/C++ | 4 | 23.09.2008 19:35 |
Задачка на массив! | soldm | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 21.09.2008 20:18 |
Задачка на одномерный массив | RECREATOR | Помощь студентам | 1 | 18.12.2007 08:01 |
задачка "Массив стуктур (список)" | Slytuz | Помощь студентам | 3 | 28.06.2007 18:38 |