Заполнение матрицы и вычисление минимального элемента на языке Pascal

Размещено на http://www.allbest.ru/

Введение

С понятием "массив" приходится сталкиваться при решении научно-технических и экономических задач обработки совокупностей большого количества значений.

Массив - это упорядоченная совокупность однотипных данных. Каждому элементу массива соответствует один или несколько индексов определяющих положение элемента в массиве. Индексы образуют упорядоченные последовательности.

Тип индекса определяет его допустимые значения. В качестве типа индекса может быть указан любой порядковый тип (boolean, char, integer, перечисляемый тип, а также диапазоны этих типов), кроме типа longint и его производных.

В зависимости от количества типов индексов различают: одномерные, двумерные, трехмерные и n-мерные массивы. Двумерные массивы обычно называют матрицами, считая первый индекс - номером строки, а второй - номером столбца.

Элементами массива могут быть данные любого типа, включая структурированные.

Тип элементов массива называется базовым. Особенностью языка Паскаль является то, что число элементов массива фиксируется при описании и в процессе выполнения программы не меняется.

Элементы, образующие массив, упорядочены таким образом, что каждому элементу соответствует совокупность номеров (индексов), определяющих его местоположение в общей последовательности. Доступ к каждому отдельному элементу осуществляется путем индексирования элементов массива. Индексы представляют собой выражения любого скалярного типа (чаще целого), кроме вещественного.

Тип индекса определяет границы изменения значений индекса. Для описания массива предназначено словосочетание array of (массив из).

Двумерным называется массив, элемент которого зависит от его местоположения в строке и в столбце. В общем виде элемент матрицы обозначается как A(I,J), где А -- имя массива, I -- индекс (номер) строки, J -- индекс (номер) столбца.[1]

массив матрица элемент минимальный

1. Теоритическая часть

1.1 Обоснование выбора языка программирования

Pascal можно эффективно реализовать на обычном аппаратном компьютере. Идеология языка включает только те языковые свойства, для которых существуют хорошо изученные и эффективные методики реализации. Во время трансляции почти для всех операций возможен статический контроль типов, так что необходимость в динамическом контроле минимальна, но при этом обеспечивается полная безопасность выполнения. Обычно программа транслируется в выполняемый машинный код, но в некоторых реализациях Pascal результатом трансляции является виртуальный машинный код, который затем интерпретируется и выполняется при помощи некоторого программно-моделируемого интерпретатора. Во время выполнения программ на Pascal центральный стек используется для записей активации подпрограмм, область динамически распределяемой памяти отводится под объекты данных, созданных для прямого манипулирования с помощью переменных-указателей, а область статически распределяемой памяти используется для хранения сегментов кода подпрограмм и вспомогательных подпрограмм из библиотеки поддержки выполнения.[2]

1.2 Детальная постановка задачи

Сущность задачи заключается в составлении нового массива на основании исходного, в котором элементы обратной диагонали будут заполняться нулями, а остальные - 1. С помощью циклов мы должны описать новый массив, который будет использовать данные, введенные с клавиатуры для исходного массива. Результатом реализация программы будет являться вывод на экран квадратной матрицы, с 0 обратной диагонали, а остальные -1.

2 Анализ и проектирование

2.1 Структурная схема программы

2.2 Описание программы

В самом начале была подключена библиотека Crt, так как в ней содержится важная для удобной работы с программой процедура ClrScr.

Program lab2;

uses crt;

Вводятся следующие переменные: i,j -параметры цикла,n,m-размерность матрицы, дополнительная переменная а,b - исходный и искомый массивы.

var a:array[1..100,1..100] of integer;

b:array[1..100] of integer;

n,i,j:integer;

Далее, в разделе операторов, осуществляется ввод размерности матрицы через переменную n.

begin

clrscr;

writeln('dana celochislennaya kvadratnaya matrica, poluchit matricu

elementi obratnoi diagonali ravnie 1, ostalnie 0');

writeln('vvedite razmernost matricy');

readln(n);

writeln('razmernost matricy',n,'x',n);

writeln('vvedite elementi massiva snachala stroki');

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

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);

writeln('ishodnii massiv');

writeln;

for i:=1 to n do

В следующем разделе осуществляем непосредственно сами вычисления.

С помощью цикла for to, для начала мы задаем задачу о поиске нужных элементов в столбце. Также мы указали, что поиск элементов будет осуществляться с 3 элемента массива. Цикл if ..then выполняет условие, по которому будет происходить заполнение нулями обратной диагонали, если она ей является и дальнейшее заполнение остальных единицами.

begin

for j:=1 to n do

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

writeln;

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do

begin

if i+j=n+1 then a[i,j]:=1 else a[i,j]:=0;

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

end;

writeln;

end;

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

readkey;

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

Заключение

В данной работе я освоила навыки вычисления минимального элемента матрицы. Изучила вывод, ввод матрицы и заполнение матрицы построчно. Что позволило удобно пользоваться ими в последующем.

Также в этой работе я повторила основы синтаксиса языка Pascal- применение операторов присваивания, операторов организации ветвления, операторов цикла, работа с одномерными массивами, я узнала, что такое массив.

Список литературы

1. Аляев Ю.А., Козлов О.А. Алгоритмизация и языки программирования Pascal, C++ , Visual Basic: Учебно - справочное пособие. - М.: Финансы и статистика, 2004.

2. Вирт Н. Алгоритмы + структуры данных = программы. -- М.: Мир, 1985.

Приложение А

Исходный текст программы

Program lab2;

uses crt;

var a:array[1..100,1..100] of integer;

b:array[1..100] of integer;

n,i,j:integer;

begin

clrscr;

writeln('dana celochislennaya kvadratnaya matrica, poluchit matricu

elementi obratnoi diagonali ravnie 1, ostalnie 0');

writeln('vvedite razmernost matricy');

readln(n);

writeln('razmernost matricy',n,'x',n);

writeln('vvedite elementi massiva snachala stroki');

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);

writeln('ishodnii massiv');

writeln;

for i:=1 to n do

begin

for j:=1 to n do

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

writeln;

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do

begin

if i+j=n+1 then a[i,j]:=1 else a[i,j]:=0;

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

end;

writeln;

end;

readln;

end.

Приложение Б

Скриншот выполнения программы

Рисунок Б.1 Скриншот выполнения программы для матрицы размерностью 3*3

Размещено на Allbest.ru