3. Объекты и средства исследования

1. Персональный IBM PC совместимый компьютер;

2. Среда программирования TurboPascal 7.0.

4. Задание на работу

Задан одномерный массив, состоящий из 10 элементов. Надо упорядочить все элементы исходного массива таким образом, чтобы сначала шли все отрицательные, затем все положительные, затем все нулевые элементы исходного массива без изменения порядка их следования в исходном массиве. В окне результата выводить как исходный, так и результирующий массивы.

program sort;

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

m,n,i,s:integer;

begin

for i:=1 to 10 do

readln(a[i]);

s:=0;

for i:=1 to 10 do

if a[i] =0 then s:=s+1;

n:=1;

for i:=1 to 10 do

if a[i]<0 then begin

b[n]:=a[i];

n:=n+1;

end;

m:=n;

for i:=1 to 10 do

if a[i]>0 then begin

b[m]:=a[i];

m:=m+1;

end;

for i:=11-s to 10 do

b[i]:=0;

for i:=1 to 10 do

write(b[i]:3);

end.

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

Перед началом работы следует:

• Включить компьютер;

• Войти в локальную сеть со своим зарегистрированным именем и паролем;

1. Запустить среду программирования TurboPascal 7.0. Создать новый файл с расширением pas.

2. Разработать алгоритм программы в соответствии с вариантом задания.

3. По разработанному алгоритму составить программу.

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

5. Запустить выполнение программы и ознакомиться с результатами работы.

6. Завершить работу программы и закрыть среду программирования TurboPascal 7.0.

6. Содержание отчета

Отчет должен содержать название, цели и задачи лабораторной работы, задание, блок схему алгоритма работы программы в соответствии с ГОСТ 19.003 – 80, листинг программы, результат работы программы и выводы по работе.

7. Контрольные вопросы

1. Что такое массив?

2. Как задать одномерный массив?

3. Как задать диапазон индексов массива?

4. Как задать новый тип данных?

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

«Обработка многомерных массивов»

1. Цель и задачи работы

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

2. Основные теоретические положения

Массивом можно назвать ряд ячеек памяти, отведенных для хранения значений индексированной переменной.

Массивы могут быть одномерными, двумерными, трехмерными и т.д. и принадлежать к любому типу данных, которые существуют в Pascalе.

Примеры описаний многомерных массивов:

var b:array[1..10,1..10] of real – двумерный массив вещественного типа;

var c:array[1..5,1..5,1..5] of integer – трехмерный массив целочисленного типа.

Для первоначальной инициализации массивов может использоваться генератор случайных чисел.

Пример...................................

randomize;

...................................

for i:=1 to n do

for j:=1 to m do

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

Роль функции randomize: обновление набора случайных чисел при очередном сеансе запуска программы на выполнение.

Строго говоря, с помощью функции random можно задать только целые числа (в приведенном примере от 0 до 9 включительно). Для инициализации вещественного массива следует прибегать к использованию искусственных приемов.

Например: .............................

randomize;

.............................

for i:= 1 to n do

for j:= 1 to m do

a[i,j]:= random(20)+0.1*random(10);

В данном случае элементы массива а могут принимать значения в диапазоне от 0.0 до 19.9.

Для вывода на экран двумерного массива в стандартной форме матрицы используется типовой прием:

for i:= 1 to n do begin

for j:= 1 to m do

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

writeln;

end;

Роль пустого оператора writeln в данном месте программного фрагмента: переход от предыдущей строки матрицы к следующей.