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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2008, 22:22   #1
Дима82
Форумчанин
 
Аватар для Дима82
 
Регистрация: 09.05.2008
Сообщений: 108
По умолчанию Помогите дорешить задачу с массивами(Pascal)

Найти максимальные элементы каждой строки матрицы и записать их в одномерный массив Y.
Код:
Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    P,I:1..M;
    Q,J:1..N;
    max:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 max:=0;
 For I:=1 to P do
 For J:=1 to Q do
 If A[I,J]>max then max:=A[I,J];
 Writeln('Max v kawdoi stroke: ',max:4:2,'':3);
 Readln
End.
Помогите дорешить задачу... (максимальное у меня находится по всей матрице)...
Дима82 вне форума Ответить с цитированием
Старый 23.05.2008, 22:32   #2
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

вот это
Код:
max:=0;   
For I:=1 to P do  
  For J:=1 to Q do  
    If A[I,J]>max then max:=A[I,J];
замени на это
Код:
   
For I:=1 to P do
  begin  
  max:=0;
  For J:=1 to Q do  
    If A[I,J]>max then max:=A[I,J];   
  Y[I] := max;
  end;
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Старый 23.05.2008, 22:37   #3
kisser_san
Пользователь
 
Регистрация: 25.04.2008
Сообщений: 17
По умолчанию

объяви одномерный массив и записывай туда сразу найденный максимальный элемент.
если без динамической памяти то:
var max_arr: array[1..M] of real;
...
For I:=1 to P do begin
For J:=1 to Q do
If A[I,J]>max then max:=A[I,J];
max_arr[I] = max;
end;
выводи потом в цикле массив...
можно не иметь высшего образования, достаточно иметь среднюю сообразительность...
kisser_san вне форума Ответить с цитированием
Старый 23.05.2008, 22:52   #4
Дима82
Форумчанин
 
Аватар для Дима82
 
Регистрация: 09.05.2008
Сообщений: 108
По умолчанию

Код:
Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    Y: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
    max:real;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Max v kawdoi stroke: ');
 For I:=1 to P do
 Begin
 max:=0;
 For J:=1 to Q do
 If A[I,J]>max then max:=A[I,J];
 Y[I]:=max;
 Writeln(max:4:2,'':3);
 end;
 Writeln('Odnomernyi massiv Y: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do
  If A[I,J]>max then Y[I]:=max;
  Writeln(Y[I]:4:2,'':3);
 End;
 Readln
End.
Вроде так... Скажите, если чё не так... Спасибо!!!
Дима82 вне форума Ответить с цитированием
Старый 23.05.2008, 23:11   #5
Gladiator
Пользователь
 
Аватар для Gladiator
 
Регистрация: 18.04.2008
Сообщений: 70
По умолчанию

Цитата:
Сообщение от Дима82 Посмотреть сообщение
Код:
Program Lab5;
 For I:=1 to P do
 Begin
  For J:=1 to Q do
  If A[I,J]>max then Y[I]:=max;
  Writeln(Y[I]:4:2,'':3);
 End;
 Readln
End.
это тебе зачем??
ты же уже запомнил максимальные элементы в массиве Y.
Вместо всего этого просто пиши
For I:=1 to P do
Writeln(Y[I]:4:2,'':3);
Gladiator вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПомоГите составить задачу на Pascal Romantic Паскаль, Turbo Pascal, PascalABC.NET 7 18.06.2008 11:05
Pascal.Помогите решить задачу на шифрование. newuser Паскаль, Turbo Pascal, PascalABC.NET 7 02.06.2008 15:46
Помогите решить задачу(Pascal) Дима82 Помощь студентам 20 23.05.2008 21:58
Помогите решить задачу с динамическими массивами и строками символов Andres Помощь студентам 2 31.01.2008 11:09
Помогите решить задачу на pascal Ilya M. Помощь студентам 4 28.10.2007 20:51