Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 79
1

Найти наибольшее и наименьшее значение в заштрихованной области матрицы

02.07.2014, 13:34. Показов 1667. Ответов 2

Название: моя.JPG
Просмотров: 99

Размер: 9.5 Кб не могу найти ошибку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program z6;
uses crt;
var a:array[1..1000,1..1000] of integer;
n,i,j,max,min:integer;
 
Begin
clrscr;
writeln('Vvedite n (n - nechetnoe)');
repeat
readln(n);
if n mod 2=0
then
writeln('Vvedite eshe raz');
 
until n mod 2=1;
writeln('n=',n);
for i:=1 to n do
begin for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[i,j];
max:=a[i,j];
for i := 1 to n do begin
for j := 1 to n do begin
if ((i <= n div 2) and (j <= n - i + 1)) or ((i >= n div 2) and (j <= n - i + 1)) then begin
if (a[i,j] < min) then min := a[i,j];
if (a[i,j] > max) then max := a[i,j];
end;
end;
end;
writeln(min,',',max);
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2014, 13:34
Ответы с готовыми решениями:

Найти наибольшее и наименьшее значение среди элементов, расположенных в заштрихованной части матрицы
Даны две квадратные матрицы A(nxn) и B(mxm). Найти наибольшее и наименьшее значение среди...

Найти наибольшее и наименьшее из значений элементов, расположенных в заштрихованной области
Решить с помощью процедур и функций. Дана действительная квадратная матрица порядка n. найти...

Найти наибольшее значение в заштрихованной области
Дана квадратная матрица порядка N.Найти наибольшее значение в заштрихованной области. ...

Найти наибольшее из значений в заштрихованной области матрицы
Дана действительная квадратная матрица порядка 3N. Найти наибольшее из значений в заштрихованной...

2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
02.07.2014, 14:31 2
1. у вас:
Pascal
1
2
min:=a[i,j];
max:=a[i,j];
После построения матрицы i=n, j=n
нужно брать первый элемент из искомой области:
Pascal
1
2
min := a[1, n];
  max := a[1, n];
2. средняя строка = n div 2 + 1;
знак больше - меньше у j в верхней и нижней половины должен меняться
условие будет выглядеть так (с учетом элементов побочной диагонали и средней строки):
Pascal
1
2
if ((i <= n div 2 + 1) and (j >= n - i + 1)) 
        or ((i >= n div 2 + 1) and (j <= n - i + 1))
Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  a: array[1..1000, 1..1000] of integer;
  n, i, j, max, min: integer;
 
begin
  writeln('Vvedite n (n - nechetnoe)');
  repeat
    readln(n);
    if n mod 2 = 0
      then
      writeln('Vvedite eshe raz');
  until n mod 2 = 1;
  writeln('n=', n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  
  min := a[1, n];
  max := a[1, n];
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      if ((i <= n div 2 + 1) and (j >= n - i + 1)) 
        or ((i >= n div 2 + 1) and (j <= n - i + 1)) 
        then begin
          if a[i,j]<min then min:=a[i,j];
          if a[i,j]>max then max:=a[i,j];
        end;
    end;
  end;
  writeln('min = ',min, ', max = ', max);
  readln
end.
Добавлено через 3 минуты
подправил...
1
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 79
02.07.2014, 15:04  [ТС] 3
спасибо большое. спасли
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.07.2014, 15:04

Найти наибольшее из значений, расположенных в заштрихованной области матрицы

Найти наибольшее и наименьшее значение в области Д
z={x}^{2}+{3y}^{2}-x+18y-4\\D:0\leq x\leq 1, 0\leq y\leq 1

Найти наибольшее и наименьшее из значений элементов, расположенных в заштрихованной части матрицы.
Дана действительная квадратная матрица порядка n. Найти наибольшее и наименьшее из значений ...

Найти наибольшее и наименьшее из значений элементов, расположенных в заштрихованной части матрицы
Дана действительная квадратная матрица порядка n. Найти наибольшее и наименьшее из значений ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru