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 строка

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

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


 

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

61347. Письменное сложение и вычитание двузначных чисел 95.68 KB
  Цель: - совершенствовать вычислительные навыки - развивать внимание, логическое мышление, математическую речь. - воспитывать интерес к изучению предмета.
61348. Складання таблиці множення числа 3. Знаходження значень виразів на дії різного ступеня 19.03 KB
  Яке число залишилось без виразу Добутком яких чисел воно є б бліцтурнір Скільки крил у чотирьох горобців Скільки ніг у п’яти страусів Скільки вух у шести мавп Скільки разом крил у восьми гусей і одного горобця...
61349. Основи технології писанкарства. Орнаменти писанкарства. Символи в писанкарстві 4.18 MB
  Символи в писанкарстві. Символи в писанкарстві. Згодом виникли символи неначе букви тієї чарівної мови. Символи в писанкарстві.
61350. План-конспект уроку, Групи слів за значенням: синоніми, антоніми, омоніми 24.62 KB
  Мета: поглибити знання учнів щодо синонімів, антонімів, омонімів; удосконалити вміння пятикласників відрізняти омоніми від багатозначних слів, правильно вживати їх у мовленні; навчити добирати фразеологічні синоніми...
61351. Людина і природа. Проблеми екології. Природні катаклізми. Введення лексики 72.63 KB
  МЕТА: Навчальна: ознайомити учнів з новою лексикою та активізувати її вживання в мові, розширити знання учнів про проблеми екології та навколишнього середовища, природні катаклізми; збагачувати словниковий запас учнів...
61353. Алюміній. Положення в ПСХЕ. Будова атому. Основні хімічні властивості 57.63 KB
  Цілі уроку: Надати інформацію про історію відкриття та добування алюмінію. Ознайомити з фактами біографії видатних вчених пов’язаних з дослідженням алюмінію.
61354. Релаксация на уроках немецкого языка на начальном этапе обучения 38.3 KB
  Современный урок иностранного языка характеризуется большой интенсивностью и требует от учеников концентрации внимания, напряжения сил. Хорошо известно, что внимание учащихся, особенно в V—VI классах неустойчиво.
61355. Использование компьютерных технологий при изучении иностранного языка 41.75 KB
  Преимущества и недостатки обучения иностранного языка с помощью ПК. Но этот метод обучения еще не оценен по достоинству. В своей работе я докажу что ПК может быть использован как вспомогательное средство как любое другое техническое средство обучения или учебник.