Практическая работа № 10.

Тема: Работа с одномерными массивами

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

План занятия:

· раздел описания типов данных;

· простой пример нахождения суммы чисел;

· экспериментальная работа с программами поиска суммы элементов массива, кратных заданному числу; нахожде­ния элементов с определенными свойствами в массиве це­лых чисел;

· выполнение самостоятельной работы.

Ход работы:

Теоретические сведения:

Описание типов данных. При описании переменных через двоеточие указывается ее тип. Тип перемен­ной определяет множество значений, которые она может при­нимать, и операции, которые могут быть над ней выполнены. С каждой встречающейся в программе переменной может быть связан то­лько один тип данных. Естественно, перечнем Intege, Real и Boolean не исчерпывается весь список типов Турбо Паскаля. Он не ис­черпывается любым списком, ибо в языке есть возможность для конструирования своих типов данных. Однако, так или иначе, но любой, сверхсложный тип данных, который Вы со­здали в своей программе, сводится (или строится) к простым типам.

Описание типов данных имеет следующий вид:

Туре

<имя типа>=<тип данных>

Примеры:

type

granica = 1 .. 100;

vektor=array [granica] of real;

После этого в разделе описаний переменных у Вас появляет­ся возможность ссылаться на введенный тип данных, он ведь имеет имя!

Var

<имя переменной>:<имя типа>;

Примеры:

a, с: array [1..100] of real;

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

god: array [-553 .. -1] of integer;

name: array [1 ..5] of string 910);

Простой пример. Необходимо найти сумму 5 целых чисел. Решение очевидно.

Program My_10Demo;

Var

al , а2, аЗ ,а4 ,а5, s: Integer;

Begin

WriteLn(Введите пять целых чисел');

Redln (al , а2, аЗ ,а4 ,а5);

s : = a1+ a2+a3+a4 + a5;

WriteLn('Иx сумма равна ' ,s)

Redln;

End.

А если требуется найти сумму 30 целых чисел? Решение по аналогии требует введения 30 однотипных переменных. Это создает некоторые трудности, каково же решение?

Одномерный массив — это фиксированное количество эле­ментов одного и того же типа, объединенных одним именем, где каждый элемент имеет свой номер. Обращение к элементам массива осуществляется с помощью указания имени массива и номеров элементов. Нам для работы требуется массив из 30 це­лых чисел.

Опишем в разделе типов свой тип — одномерный массив, со­стоящий из 30 целых чисел. Туре МуАггау = Array [1 .. 30] Of Integer; Напомним, что раздел типов начинается со служебного слова Туре, после этого идет имя нового типа и его описание. Между именем типа и его описанием ставится знак «равно» (в разделе переменных между именем переменной и ее описанием ставится двоеточие). В нашем случае МуАггау — имя нового типа данных; Array — служебное слово (в переводе с англий­ского означает «массив», «набор»); [1..30] — в квадратных скобках указывается номер первого элемента, затем, после двух точек, номер последнего элемента массива; Of — служебное слово (в переводе с английского «из» ); Integer — тип элемен­тов массива. И решение, простое решение без 30 переменных.

Program My10_Demo;

Const n=30;

Type

MyArray=Array[1..n] Of Integer;

Var A: MyArray;

s,i: Integer;

Begin

WriteLn('Введите ',n, ' чисел');

For i:=1 To n Do

ReadLn (A [i ] ) ;

s: =0;

For i : =1 To n Do

s:=s+A[i];

WriteLn('Иx сумма равна ' ,s);

ReadLn;

End.