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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2009, 20:00   #1
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию Матрица из массива

Помогите решить такое на ПАСКАЛЕ:
Дано квадратную матрицу размерностью N. Привести ряд матрици. Примести ряд матрици означает найти в нем минимальный элемент и отнять его значение от всех остальных елементов.

Так узнаю минимальный елемент, но как сделать что бы можно было указать размер массива (как динамический в delphi) от 1 до N ?!
Код:
Program Minimum_v_Massive1;
Var
  i,j: Byte;
  B: Array[1..4,1..3] Of  Integer;
  Minimum: Integer;
Begin
 Writeln('Matrix:');
  For i:=1 To 4 Do
    Begin
      For j:=1 To 3 Do
         Write(B[i,j]:3);
      WriteLn;
    End;
   Minimum:=B[1,1];
  For i:=1 To 4 Do
     For j:=1 To 3 Do
       If Minimum>B[i,j] Then Minimum:=B[i,j];
  WriteLn('Minimalniy element: ',minimum);
  
  For i:=1 To 4 Do
    Begin
      For j:=1 To 3 Do
         b[i,j]:=b[i,j]-Minimum;
    End;
	
	Writeln('New Matrix:');
  For i:=1 To 4 Do
    Begin
      For j:=1 To 3 Do
         Write(B[i,j]:3);
      WriteLn;
    End;

End.
W0LF вне форума Ответить с цитированием
Старый 20.10.2009, 20:03   #2
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Код:
 B: Array[1..100,1..100] Of  Integer;
  n: Integer;
....
begin
Readln(n);
for i:=1 to n do
for j:=1 to n do
......
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 20.10.2009, 20:10   #3
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Спс, и еще вопрос:
Мне нужно заполнить данную матрицу елементами, каким образом легче всего их туда вводить, подскажите плиз
W0LF вне форума Ответить с цитированием
Старый 20.10.2009, 20:11   #4
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Цитата:
каким образом легче всего их туда вводить
Random рулит!!!!
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 20.10.2009, 20:16   #5
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

setlength(Массив,новая_длинна);
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума Ответить с цитированием
Старый 20.10.2009, 20:17   #6
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
Сообщение от russian-stalker Посмотреть сообщение
setlength(Массив,новая_длинна);
в паскале этого нет
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 20.10.2009, 20:19   #7
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

В паскале setlength ?

Код:
Writeln('Matrix:');
  For i:=1 To n Do
    Begin
      For j:=1 To n Do
         Write(B[i,j]:3);
      WriteLn;
    End;
Ввыводит матрицу, но как вывести "квадратическую" матрицу если ее размер изменен ?!
W0LF вне форума Ответить с цитированием
Старый 20.10.2009, 20:23   #8
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

Вопрос отменяеться всем спс)
W0LF вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод элементов массива.Изменение элементов массива. Vesnushka18 Помощь студентам 6 09.06.2011 13:05
Матрица на C++ Maxs Помощь студентам 5 31.05.2009 14:35
Матрица! fds_sdf Помощь студентам 2 13.04.2009 20:16
PHP: использование элемента массива как массива Sudia Помощь студентам 1 20.02.2009 20:48
переписать из массива в линейный двунаправленный список чётные элементы массива Black_Ak24 Помощь студентам 12 08.01.2008 00:44