Программирование с использованием массивов

Цацин Юрий 105 группа

Лабораторная работа №4. Программирование с использованием массивов

 

Цель работы: научиться  правильно описывать различные  массивы, уметь инициализировать массивы, распечатывать содержимое массива; научится решать задачи на использование  массивов.

Общие сведения:

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

Массивы

Массив - упорядоченные данные одного типа. Возможно создание массива, вклю-чающего массив другого типа. Массивом часто обозначают характеристики обьектов одного типа, имеющих одинаковые единицы измерения. Массив состоит  из элементов, имеющих порядковые номера, т. е. элементы массива упорядоченны. Таким образом, если обьекты одного типа обозначить именем, например "A", то элементы обьекта будут A[1], A[2] и  т. д. В квадратных скобках указан номер элемента. Порядковый номер  элемента массива, обычно не несет никакой  информации о значении элемента, а  показывает расположение элемента среди  других. К элементам массива можно  обращаться только по их номеру (индексу). Значения элементам массива присваиваются  также как и другим переменным с учетом типа массива. Если элементы массива имеют один индекс, то массив называется одномерным или линейным, либо массив - вектор. Значения элементов  одномерного массива обычно выводят  на экран или бумагу в виде столбца  или строки. В некоторых случаях  удобно элементы массива пронумеровывать  двуми независимыми индексами, такие  массивы называются двумерными или  матрицами. Значения элементов двумерного массива обычно выводят на экран  в виде таблицы. Если элементы массива  имеют три независимых индекса, то массив называется трехмерным. Значения элементов трехмерного массива  обычно выводят на экран в виде набора таблиц.

Линейные массивы

Линейным массивом можно  обозначить, например, оценки учеников класса. Каждая оценка является значением  элемента массива оценок "A" и  имеет порядковый номер (индекс). В  Турбо-Паскале значение индекса  указывается в квадратных скобках  после имени массива. Можно создать  массив фамилий "S" учеников класса. Значением элемента массива будет  фамилия ученика, а индексом - порядковый номер по списку. Пусть дан список фамилий учеников и их оценки:

Описание массивов:

Var A : array[1..30] of byte;

S : array[1..30] of string; {или}

SO: array[1..30] of string[12];

Задание № 10: Проверить, образуют ли элементы целочисленного массива размера N арифметическую прогрессию. Если да, то вывести разность прогрессии, если нет - вывести 0.

Блок схема программы:

  

 

           

 

нет да

 

нет да

 

 

 

 

нет да

 

нет да

 

 

else then

 

 

 

 

 

 

 

 

 

Листинг программы:

Program Acid2;

uses crt;

const max=100;

var a:array[1..max] of integer;

n,i,k:byte;

begin

clrscr;

repeat

write('razmer massiva n=');

readln(n);

until n in [1..max];

writeln('Vvedite ',n,' celix chisel:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

clrscr;

writeln('ishodni massiv:');

for i:=1 to n do

write(a[i],' ');

writeln;

writeln;

k:=0;

for i:=2 to n-1 do

if (a[i]-a[i-1])<>(a[i+1]-a[i])then

begin

  k:=1;

  break;

end;

if k=1 then write('Eto ne arifmeticheskaya progressiya!')

else write('Eto arifmeticheskaya progressiya,ee razmernost =',a[2]-a[1]);

readln

end.

Скриншот:

Задание №5: Дан целочисленный массив размера N. Вывести вначале все его четные элементы,а затем- нечетные.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Блок схема программы:

 

 

 

 

нет да

 

 

нет да

 

 

нет да

 

нет then

 

 

 

нет 

 

 

 

нет then

 

 

 

 

 

 

 

Листинг программы:

Program Аcid5;

usescrt;

var

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

i,n:byte;

begin

clrscr;

write('Введите размерность  массива=');readln(n);

randomize;

for i:=1 to n do

a[i]:=random(101)-50;

writeln('Исходныймассив');

for i:=1 to n do

write(a[i]:5);

writeln;

writeln('четныеэлементы');

for i:=1 to n do

if odd(a[i])=false then write(a[i]:5);

writeln;

writeln('Нечетныеэлементы');

for i:=1 to n do

if odd(a[i]) then write(a[i]:5);

readln

end.

3.Скриншот:

 

Скриншот:

Закючение: научился правильно описывать различные массивы,  инициализировать массивы, распечатывать содержимое массива; научился решать задачи на использование массивов.