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

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

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


 

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

50032. Измерение параметров индуктивности в цепи переменного тока 255 KB
  Цель работы: Определение импеданса сдвига фаз и измерение индуктивности на разных частотах в резистивно-индуктивной цепи. При работе на переменном токе с реактивными элементами в цепи индуктивность емкость следует обязательно учитывать их реактивный характер проводимости. Кроме того реактивные...
50033. Перевірка правил Кірхгофа 133.5 KB
  Мета роботи: перевірити правила Кірхгофа для кола постійного струму. Теоретичні пояснення правил Кірхгофа а також їх практичне використання для розрахунку розгалужених електричних кіл показані в розділі 3. Застосуємо перше правило Кірхгофа до вузла В...
50034. ИЗМЕРЕНИЕ РАЗРЕШАЮЩЕЙ СПОСОБНОСТИ ОБЪЕКТИВОВ 315 KB
  Как следствие фокусное расстояние объектива зависит от длины световой волны и если для одной длины волны изображение хорошо сфокусировано то для других длин волн хорошей фокусировки не наблюдается. Если как это обычно бывает оправа объектива круглая то изображение светящейся точки имеет вид круглого пятна окруженного концентрическими светлыми и темными кольцами рис. Способность объектива создавать раздельные изображения близко расположенных мелких деталей называется разрешающей способностью объектива. Чем меньше угол  тем ближе...
50035. Юридическая психология. Учебно-методический комплекс 677.5 KB
  Цель дисциплины – психологическая подготовка юриста к профессиональной деятельности, формирование эффективных приемов работы с людьми и овладение методами профессионально значимого самопознания и саморазвития личности.
50036. ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА ВРЕДНЫХ ГАЗОВ В ВОЗДУХЕ ПРОИЗВОДСТВЕННЫХ ПОМЕЩЕНИЙ 1.08 MB
  Приводятся величины предельно допустимых концентраций ПДК вредных газов выше которых следует применять средства защиты: респираторы с противогазовыми патронами если концентрация вредного газа не превышает 10 ПДК или противогазы если концентрация вредного газа в воздухе выше 10 ПДК. ИЗУЧЕНИЕ И ВЫБОР СРЕДСТВ ИНДИВИДУАЛЬНОЙ ЗАЩИТЫ ОРГАНОВ ДЫХАНИЯ Цель работы: Изучить назначение устройство и область применения средств индивидуальной защиты органов дыхания СИЗОД. Порядок выбора СИЗОД их классификация и требования к применению...
50037. ОПРЕДЕЛЕНИЕ РАДИУСА КРИВИЗНЫ ЛИНЗЫ С ПОМОЩЬЮ КОЛЕЦ НЬЮТОНА 140 KB
  Кольца Ньютона. Классическим примером полос равной толщины являются кольца Ньютона. 1а видно что толщина воздушного зазора δ связана с радиусами наблюдаемых колец rk и радиусом кривизны линзы R следующим образом: 2 Учтем что δ R2 1 и пренебрегая этим слагаемым в формуле 2 получим: 3 С учетом 3 выражение 1 будет иметь вид: 4 Интерференционные максимумы светлые кольца получаются при условии если на разности хода укладывается четное число полуволн целое число длин волн: 5 где k = 0 1 2. порядок интерференции или...