42571

Найти минимальную сумму элементов в строках двумерного массива

Лабораторная работа

Информатика, кибернетика и программирование

Тот же самый результат можно получить и в результате компьютерной проверки. В результате ручной проверки мы доказали, что программа работает правильно.

Русский

2013-10-30

45 KB

1 чел.

1.Постановка задачи

Найти минимальную сумму элементов в строках двумерного массива.

2. Формализация задачи

Решение данной задачи можно разбить на несколько частей:

1) Ввод массива A

2) Подсчет суммы элементов в строках массива.

3) Сравнение сумм строк массива.

4) Вывод минимального значения и строки массива.

3.Схема алгоритма программы

Рис.1

Рис.1

4. Листинг задачи

program mat;uses crt;

const M=9N=9;

var

a:array[0..M,0..N] of integer;

i,j,min,sum,minin:integer;

begin

    randomize;

    clrscr;

    min:=0;

    for i:=0 to M do

    begin

         write(i+1:2,') ');

                           for j:=0 to N do

                           begin

                                a[i,j]:=random(100);

                                write(a[i,j]:3);

                           end;

                           writeln;

    end;

    for i:=0 to N do

    min:=min+a[0,i];

    minin:=0;

    textcolor(25);

    for i:=0 to M do

    begin

         sum:=0;

                for j:=0 to N do

                sum:=sum+a[i,j];

                gotoxy(N*3+10,i+1);

                write(sum);

                if sum<min then

                begin

                      minin:=i;

                      min:=sum;

                end;

    end;

    gotoxy(1,M+3);

    writeln('min=',min,' in the ',minin+1,' line');

repeat until keypressed;

end.          

5. Проверка подлинности работы алгоритма

Для проверки подлинности работы программы необходимо сверить результаты работы программы и результаты ручного тестирования.

Построим произвольную матрицу размером 9 на 9 и заполним ее различными цифрами.

1)Введем двумерный массив A[9,9] и посчитаем вручную сумму элементов каждой строки

Массив А:

5 8 41 68 98 32 58 44 12 366

99 34 15 23 15 68 22 143 68 487

2 85 41 32 66 74 114 22 18 454 

31 13 56 77 84 15 95 24 22 417

25 87 98 54 65 21 32 12 28 422 

45 56 78 89 74 14 85 25 96 562

36 20 14 50 26 68 48 62 42 366

42 26 94 34 16 18 16 17 62 325

30 12 14 75 98 74 25 63 34 425

23 15 59 75 53 35 57 45 14 376

Минимальная сумма равна 325 и это 8 строка

Тот же самый результат можно получить и в результате  компьютерной проверки.

В результате ручной проверки мы доказали, что программа работает правильно.


 

А также другие работы, которые могут Вас заинтересовать

7526. Предприятие как субъект хозяйствования 48 KB
  Тема: Предприятие как субъект хозяйствования. I. Задачи и принципы деятельности предприятия. Предприятие - самостоятельно хозяйствующий субъект, обладающий правами юридического лица, который на основе использования трудовым коллективом имуществ...
7527. Арендные отношения 38 KB
  Арендные отношения. НТП ведет к появлению новой высоко производительной и дорогостоящей техники, приобретение которой не под силу частному предприятию. Поэтому возникает необходимость объединения капиталов и создания предприятий, основанных на колле...
7528. Производственная структура предприятия 31 KB
  Производственная структура предприятия Каждый производственный процесс осуществляется в определенном пространстве на территории предприятия, цеха, участка. Чем рациональнее используется это пространство, тем быстрее, дешевле и более качественно...
7529. Совместные и малые предприятия 24.5 KB
  Совместные и малые предприятия. Совместные предприятия. Совместные предприятия (СП) - хозяйственные организации, созданные предприятиями РБ с партнерами из зарубежных стран. Согласно закону Об иностранных инвестициях на территории РБ совмест...
7530. Цели, функции и процесс создания предприятия (организации) 33.5 KB
  Цели, функции и процесс создания предприятия (организации). Предприятие (организация) - самостоятельный хозяйствующий субъект, обладающий правами юридического лица, деятельность которого осуществляется на свой риск и под свою имущественную...
7531. Понятие ценная бумага, её свойства и функции 95.5 KB
  Понятие ценная бумага, её свойства и функции Ценная бумага - это форма существования капитала, отличная от его товарной, производительной и денежной форм, которая может передаваться вместо него самого, обращаться на рынке как товар и приносить ...
7532. Ценообразование, прибыль и рентабельность 62.5 KB
  Ценообразование, прибыль и рентабельность. Цена продукции, ее сущность, функции, виды и состав. Методика расчета цен. Особенности ценообразования в БОН, прейскурант. Прибыль, ее сущность и виды. Методика расчета. Распределени...
7533. Производственные фонды предприятия. Лизинг. Система взаимоотношений между участниками лизинга 36.5 KB
  Тема: Производственные фонды предприятия. Лизинг. Система взаимоотношений между участниками лизинга. Понятие лизинга. Объекты и субъекты лизинговых отношений. Функции лизинга. Лизинговый договор. Особенности развития лизингов...
7534. Производственные средства предприятия 125 KB
  Производственные средства предприятия. Экономическая сущность производственных средств. В процессе производства продукции и оказания услуг используются следующие виды экономических ресурсов: естественные (земля, недра, водные, лесные), трудовые (люд...