42729

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

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

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

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

Русский

2013-10-30

58 KB

2 чел.

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

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

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

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

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

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

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

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

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

Рис.1

Рис.1

Рис.1

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

program xxx;

uses crt;

const

n=5;

var

a:array [1..n,1..n] of integer;

k,i,j:byte;

sum:integer;

begin

    clrscr;     

    for i:=1 to n do

    begin

         for j:=1 to n do

         begin

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

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

         end;

         writeln;

    end;     

    writeln('vvedite glubinu');

    readln(k);     

    sum:=0;       

    for i:=1 to k do

    for j:=1 to n do

    sum:=sum+a[i,j]+a[n-i+1,j];   

    for i:=k+1 to (n-k) do

    for j:=1 to k do

    sum :=sum +a[i,j]+a[i,n-j+1];   

    writeln('summa elementov po perimetru ravna:');

    writeln(sum);

end.

         

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

Для проверки подлинности работы программы необходимо сверить результаты работы программы и результаты ручного тестирования. Если они сойдутся, то программа выполнена правильно. Для упрощения вычислений заполним массив цифрами “1” и  “0”.

1)Введем двумерный массив A[4,4] и глубину K=1.

Массив А:

1     1     0     1
0     1     1     0
1     1     0     1
0     1     1     0

Посчитаем вручную сумму элементов по периметру с глубиной 1
sum=1+1+0+1+0+0+1+1+0+1+1+0=7
Проверим результат работы программы. Он тоже равен 7.

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


 

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

16980. Выбираем способ подключения к сети Интернет 51.5 KB
  Выбираем способ подключения к сети Интернет Рано или поздно каждый обладатель домашнего компьютера задумывается о его подключении к сети Интернет. Ради общения с другими людьми скачивания необходимой информации и так далее. В этот момент перед пользователем встаёт в
16981. Елементарні обчислення в Maple 272.5 KB
  артошик Практична робота №27. Тема: Елементарні обчислення в Maple. Мета: Навчитися виконувати в пакеті Maple такі елементарні дії як спрощення виразів розкриття дужок розкладання на множники знаходження коефіцієнтів полінома. Обладнання: ПК зі встановл
16982. Рішення рівнянь, нерівностей і систем в Maple 140 KB
  Практична робота №28. Тема: Рішення рівнянь нерівностей і систем в Maple. Мета: Навчитися вирішувати рівняння нерівності і системи простих рівнянь в пакеті Maple а також представляти виведення рішень в різній математичній інтерпретації. Обладнання: ПК зі встановленим ...
16983. Побудова графіків функцій засобами Maple 184 KB
  Тема: Побудова поверхонь графіків функцій в Maple. Мета: Навчитися будувати графіки в різних системах координат а також будувати поверхні в середовищі Maple. Обладнання: ПК зі встановленим математичним пакетом Maple. Індивідуальне завдання
16984. Загальне використовування даних додатками Windows. Буфер обміну. Технологія OLE 7.02 MB
  Практична робота №5 Тема: Загальне використовування даних додатками Windows. Буфер обміну. Технологія OLE. Мета: Ознайомитися з технологією OLE і загальним використовуванням даних додатками Windows. Устаткування: ПК. Операційна система Windows. Індивідуальне завдання ...
16985. Створення таблиць та обробка табличних даних засобами Word 222.5 KB
  Практична робота № 11 Тема: Створення таблиць та обробка табличних даних засобами Word Мета: засвоїти засоби створення редагування та форматування двовимірних таблиць а також організацію обробки та сортування табличних даних у програмі Word. Обладнання: персональний ...
16986. Введення таблиць. Автозаповнення формулами. Сортування даних 676.5 KB
  Практична робота №14 Тема: Введення таблиць. Автозаповнення формулами. Сортування даних. Мета: Навчитися використовувати функцію авто заповнення формулами та сортувати дані у таблицях. Обладнання: ПЕОМ. Табличний процесор MS Excel. Правила ТБ Індивідуальне з
16987. Побудова діаграм 308 KB
  Практична робота №15 Тема: Побудова діаграм. Мета: Навчитися будувати діаграми змішаного типу та кругові діаграми. Обладнання: ПЕОМ. Табличний процесор MS Excel. Хід виконання Правила ТБ Індивідуальне завдання 1. За даними табл. 3 побудувати діаграму зміша...