Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2008, 20:48   #1
forz
 
Регистрация: 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.
forz вне форума Ответить с цитированием
Старый 10.11.2008, 12:21   #2
forz
 
Регистрация: 29.10.2008
Сообщений: 6
По умолчанию

Помогите пожалуйста товарищи программисты!
forz вне форума Ответить с цитированием
Старый 10.11.2008, 14:33   #3
slips
Форумчанин
 
Аватар для slips
 
Регистрация: 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.
slips вне форума Ответить с цитированием
Старый 10.11.2008, 17:57   #4
forz
 
Регистрация: 29.10.2008
Сообщений: 6
По умолчанию

спс конешно но вот чет я не могу понять как запонить матрицу согласно варианту)) написано рандом но вто же время в заполнении матрицы написана какаято упорядоченность.... кста над еще найти
Элементы строки с минимальной суммой расположить в обратном порядке и Повторно распечатать элементы матрицы с суммами.
forz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачка про массив - Из массива удалить четные элементы, стоящие после максимального 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