Алгоритмизация и основы программирования

МОРДОВСКИЙ  ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИМЕНИ  Н.П.ОГАРЕВА 

                                                  Ковылкинский филиал 
 

                                      Курсовая  работа

    по  дисциплине

    алгоритмизация  и основы программирования 
 

Автор  курсовой работы                                          

Специальность     100201 Сервис

Обозначение курсовой работы  КР-02069964-100101-01-11

Руководитель  работы                                               О. В. Шишов 

                                                                                                Оценка_______                                           
 

                                        

Ковылкино 2011

Задание

Подсчитать, сколько раз встречается в  заданной целочисленной  матрице   A(N, M) максимальное по величине число.

Блок  схема

 

А – матрица,

N – число строк,

M – число столбцов,

Amax – максимальный элемент матрицы,

K – число максимальных элементов матрицы,

i. j – операторы отвечающие за выход из цикла.

 Вводим матрицу (N, M). Затем присваиваем максимальное значение первому члену матрицы (A11). Сканируем матрицу по строкам и столбцам, если находим элемент, который больше действующего максимального значения, то присваиваем ему максимальное значение. После того как нашли максимальное значение в матрице, начинаем считать сколько раз оно встречается. Конечным результатом будет число, показывающее сколько раз встречается максимальное значение.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Тело  программы

Program variant1;

   Uses Crt;

   Type Mas = Array [1..10, 1..10] of Integer;

   Var  A                   : Mas;

        N, M, K, Amax, i, j : Integer; {K - искомый результат}

 {--------------------------------------------}

  Begin { описание процедуры ввода-вывода  матрицы }

    ClrScr;

    Write('Количество строк - ');    ReadLn(N);

    Write('Количество столбцов - '); ReadLn(M);

    For i := 1 to N do { ввод матрицы }

      For j := 1 to M do

        begin Write('A[' , i , ', ' , j , ']=  ');

              ReadLn(A[i, j])

        end; WriteLn;

ClrScr; WriteLn(' Матрица А');        

    For i := 1 to N do { вывод матрицы }

      begin

        For j := 1 to M do Write(A[i, j] : 5 );

          WriteLn

      end; WriteLn;

{--------------------------------------------}

  Begin { описание процедуры поиска Amax }

     Amax := A[1, 1];

     For i := 1 to N do

       For j := 1 to M do

         If A[i, j] > Amax then Amax := A[i, j];

  End;

{--------------------------------------------}

  Begin { описание процедуры подсчета  числа Amax }

     K:=0;

     For i := 1 to N do

       For j := 1 to M do

         if A[i, j] = Amax then K := K+1;

     WriteLn('Максимальное число ', Amax : 3 ,

            ' встречается ', K, ' раз(a)'); ReadLn;

  End;

  End. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Примеры работы программы