Министерство образования и науки, молодежи и спорта Украины

ОДЕССКИЙ НАЦИОНАЛЬНЫЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Институт радиоэлектроники и телекоммуникаций

Кафедра информационной безопасности



ЛАБОРАТОРНАЯ РАБОТА №2

по дисциплине Архитектура вычислительных систем

Работа с массивами



Разработал студент гр. PБ-081

____________ Черный Н.А.

“___” ____________ 2011 г.



Проверил работу

___________ Сафронов А.С.

“___” ____________ 2011 г.



Одесса 2011

Цель работы

Научиться основным приёмам работы с массивами на языке Perl. Изучить команды и функции, которые наиболее часто применяются при работе с массивами.



Выполнение лабораторной работы

Задал массив из строковых констант.

$str[0]="Первый";

$str[1]="Второй";

$str[2]="Третий";

$str[3]="Четвертый";

$str[4]="Пятый";

$str[5]="Шестой";

$str[6]="Седьмой";

$str[7]="Восьмой";

print "@str";



2. Задал массив из чисел.

$ch[0]="0";

$ch[1]="1";

$ch[2]="2";

$ch[3]="3";

$ch[4]="4";

$ch[5]="5";

$ch[6]="6";

$ch[7]="7";

print "@ch";



3. Объединил два массива в один.

@massivi=(@ch, @str);

print "@massivi";



4. Определил размер нового массива. Обратился к его первому элементу, перезаписал один из средних элементов, поменял местами 1 и 2 элемент, записал в последний элемент значение предпоследнего и удалил последний элемент.

print "$#massivi"."\n";

print "Первый элемент\n";

print "$vmeste[0]"."\n";

print "Перезапишем один из элементов в середине массива\n";

$massivi[8]="Двенадцатый";

print "@massivi\n";

print "Поменяем местами первый и второй элементы массива\n";

print "Первый - "."$massivi[0]\n";

print "Второй элемент - "."$massivi[1]\n";

($massivi[0],$massivi[1])=($massivi[1],$massivi[0]);

print "@massivi"."\n";

print "Запишем в последний элемент значение предпоследнего\n";

print "$massivi[-1]"."\n";

print "$massivi[-2]"."\n";

$massivi[-1]=$massivi[-2];

print "@massivi"."\n";

print "Удалим последний элемент\n";

$massivi[-1]="";

print "@massivi";



5. Очистил массив из п.4.

print "@massivi"."\n";

@massivi=();

print "@massivi";



6. Объединил массив из п.п. 1,2 (по порядку).

@str=("Первый","Второй","Третий","Четвертый","Пятый","Шестой", "Седьмой");

@ch=(1,2,3,4,5,6,7,8);

$i=0;

$j=$;

while ($i<$j)

{

push (@c,$str[$i]);

push (@c,$ch[$i]);

$i+=1;

}

print "@c\n";



7. Задал массив чисел, применяя операцию 2 точки.

@tchk=(1..11);

print "@tchk";



8. Задал производный массив, который одновременно состоит из чисел и строк.

@new("14 ","строка", "@ch ", "@str ");

print @new;



9. Определил позицию половины строк. массива.

@str=("Первый","Второй","Третий","Четрверый","Пятый","Шестой", "Седьмой");

$i=0;

$j=0;

@D=();

foreach (0..$#str)

{

$length+=length($str[$_]);

}

$D1=$length/($#str+1);

while($i<($#str+1))

{

if(length($str[$i]) >= $D1)

{

$D[$j]=$i;

$j+=1;

}

$i+=1;

}

print "@D\n";



10. Определил позиции наименьших из п.2. Записал в отдельный массив.

@ch=(1,2,3,4,5,6,7,8);

$i=0;

$j=0;

@D2=();

foreach (0..$#ch)

{

$sum+=$ch[$_];

}

$C2=$sum/($#ch+1);

while($i<($#ch+1))

{

if($ch[$i] <= $C2)

{

$D2[$j]=$i;

$j+=1;

}

$i+=1;

}

print "@D2\n";



11. Использовал данный массив индексов, считал из массива п.1 строки с соответствующим массивом в новый массив.

@new1;

@new2;

foreach (0..$#D)

{

$new1[$_]=$str[$D[$_]];

}

print "@new1";

foreach (0..$#D2)

{

$new2[$_]=$ch[$D2[$_]];

}

print "\n@new2\n";

12. Изучил функции ввода и удаления элементов массива в начале и конце массива, а также функции сортировки и реверса.

print "Сортировка\n";

@new=(1,5,7,0,3,8,2,4,3,6);

print "@new\n";

@new=sort(@new);

print "@new\n";

print "Реверс\n";

print "@line\n";

@line=reverse(@line);

print "@str\n";

print "Удаление елемента массива справа\n";

print "@str\n";

pop @str;

print "@str\n";

print "Удаление елемента массива слева\n";

print "@str\n";

shift @str;

print "@str\n";



Результаты выполнения:



1. Первый Второй Третий Четвертый Пятый Шестой Седбмой Восьмой

2. 0 1 2 3 4 5 6 7

3. 0 1 2 3 4 5 6 7 Первый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

4. 16

Первый элемент

0

Перезапишем один из элементов в середине массива

0 1 2 3 4 5 6 7 Двенадцатый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

Поменяем местами первый и второй элементы массива

Первый - 0

Второй - 1

1 0 2 3 4 5 6 7 Двенадцатый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

Запишем в последний элемент значение предпоследнего

Восьмой

Седьмой

1 0 2 3 4 5 6 7 Двенадцатый Второй Третий Четвертый Пятый Шестой Восьмой Седьмой

Удалим последний элемент

1 0 2 3 4 5 6 7 Двенадцатый Второй Третий Четвертый Пятый Шестой Восьмой

6. Первый 1 Второй 2 Третий 3 Четвертый 4 Пятый 5 Шестой 6 Седьмой 7 8

7. 1 2 3 4 5 6 7 8 9 10 11

8. 14 строка 0 1 2 3 4 5 6 7 Первый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

9. 3 6 7

10. 0 1 2 4 5

11. Первый Третий Пятый Шестой 0 2 4 5

12. Сортировка

1 5 7 0 3 8 2 4 3 6

0 1 2 3 3 4 5 6 7 8

Реверс

Первый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

Восьмой Седьмой Шестой Пятый Четверый Третий Второй Первый

Удаление елемента массива справа

Первый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

Первый Второй Третий Четвертый Пятый Шестой Седьмой

Удаление елемента массива слева

Первый Второй Третий Четвертый Пятый Шестой Седьмой Восьмой

Второй Третий Четвертый Пятый Шестой Седьмой Восьмой