Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
svetik13
0 / 0 / 0
Регистрация: 08.10.2012
Сообщений: 10
#1

В матрице поменять столбцы, содержащие соответственно максимальный и минимальный элементы - Turbo Pascal

08.10.2012, 10:29. Просмотров 682. Ответов 1
Метки нет (Все метки)

Ребят, помогите написать программу, УМОЛЯЮ!!
В матрице A[1..N,1..M] поменять столбцы, содержащие соответственно максимальный и минимальный элементы матрицы. Определить общее среднее арифметическое этих столбцов и заменить минимум и максимум на это среднее арифметическое. При выводе матрицы выделить цветом эти столбцы.
http://www.cyberforum.ru/turbo-pascal/thread285374.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 10:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В матрице поменять столбцы, содержащие соответственно максимальный и минимальный элементы (Turbo Pascal):

Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы
Дана матрица размера 5 x 10. Поменять местами столбцы, содержащие минимальный и...

Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы
1. Дана матрица размера 5 x 10. Поменять местами столбцы, содержащие...

Дана матрица размера 5 x 10. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы
помогите исправить эту задачу чтобы выполнялось как сказано в условии uses...

Поменять местами столбцы, содержащие минимальный и максимальный элемент массива
нашла много ответов. но все было или на с или сильно замудренно . может кто...

Поменять местами строки в матрице А(4,4) содержащие минимальный и максимальные элементы
Поменять местами строки в матрице А(4,4) содержащие минимальный и максимальные...

1
Dmitrinik
535 / 391 / 99
Регистрация: 18.08.2012
Сообщений: 1,008
08.10.2012, 11:41 #2
Лучший ответ Сообщение было отмечено svetik13 как решение

Решение

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Uses Crt;
Const nS = 10;
      nC = 6;
Var mtr : Array[1..nS,1..nC] of Integer;
    i, j,
    Average,
    El,
    Cmin, Cmax,
    Smin, Smax,
    Emin, Emax: Integer;
Begin
  ClrScr;
  For i:=1 to nS do
    For j:=1 to nC do
      mtr[i,j]:=Random(2000);
  Emin:=32767;
  Emax:=-32768;
{Ищем максимум и минимум}
  For i:=1 to nS do
    For j:=1 to nC do
      Begin
        If mtr[i,j]<Emin then
          begin
            Emin:=mtr[i,j]; Cmin:=j; Smin:=i;
          end;
        If mtr[i,j]>Emax then
          begin
            Emax:=mtr[i,j]; Cmax:=j; Smax:=i;
          end;
      end;
{Вывод исходной матрицы на экран, макс и мин элементы зеленые}
  For i:=1 to nS do
    Begin
      For j:=1 to nC do
        Begin
          If (mtr[i,j]=Emax) or (mtr[i,j]=Emin) then TextColor(Green)
          Else                                       TextColor(LightGray);
          Write(mtr[i,j]:5,' ');
        end;
      WriteLn;
    end;
  WriteLn;
{Среднеарифм. двух столбцов}
  Average:=0;
  For i:=1 to nS do
    Average:=Average+mtr[i,Cmax]+mtr[i,Cmin];
  Average:=Average div (2*nS);
{Замена на среднеарифм.}
  mtr[Smax,Cmax]:=Average;
  mtr[Smin,Cmin]:=Average;
{Меняем столбцы местами}
  For i:=1 to nS do
    Begin
      j:=mtr[i,Cmax]; mtr[i,Cmax]:=mtr[i,Cmin]; mtr[i,Cmin]:=j;
    end;
{Результат - на экран. Столбцы красные, а в них зеленым - среднее значение}
  For i:=1 to nS do
    Begin
      For j:=1 to nC do
        Begin
          If (j=Cmax) or (j=Cmin) then TextColor(Red)
          Else                         TextColor(LightGray);
          If mtr[i,j]=Average then TextColor(Green);
          Write(mtr[i,j]:5,' ');
        end;
      WriteLn;
    end;
  ReadLn;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 11:41
Привет! Вот еще темы с решениями:

Поменять местами строки, содержащие минимальный и максимальный элементы матрицы
Помогите пожалуйста... тема Двумерные массивы, заранее благодарю очень надо(...

Поменять местами строки, содержащие минимальный и максимальный элементы матрицы
поменять местами строки, содержащие минимальный и максимальный элементы...

Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.
здаствуйте ребята прошу поMогите пожалуйста Дан двумерный массив размером...

Найти в каждой строке матрицы минимальный и максимальный элементы и поменять их с первым и последним элементом строки соответственно
1. Найти в каждой строке матрицы минимальный и максимальный элементы и поменять...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru