Использование массивов в языке Pascal

Балтийский Государственный

Технический Университет

«ВоенМех»

имени Д.Ф. Устинова

Отчет

к лабораторной работе по информатике №2

На тему

Использование массивов в языке Pascal

Отчет выполнил студент

Факультета «И»

Суханов Александр

Группа И433

Санкт-Петербург 2003

Лабораторная работа по информатике №2

Тема: Использование массивов в языке Pascal

Цель: Ознакомиться с понятием массива в языке Pascal и научиться использовать массивы.

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

Блок-схема алгоритма, решающего данную задачу:

 

Пояснения к используемым данным:

A – исходный массив чисел

B – массив, который необходимо сформировать

N – кол-во элементов в исходном массиве A

POZ – счетчик отрицательных элементов массива A

ZICL  - циклическая переменная

Листинг программы, решающей данную задачу:

program lab2;

const Nmax=500;

var a: array [1..Nmax] of real;

b: array [1..Nmax] of real;

zicl, poz: integer;

n: integer;

begin

write('Введите длину массива: ');

readln(n);

for zicl:=1 to n do

begin

write('Введите ',zicl,' элемент массива: ');

readln(a[zicl]);

end;

for zicl:=1 to n do

if a[zicl]<0 then

begin

inc(poz);

b[poz]:=zicl;

end;

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

for zicl:=1 to n do

write(a[zicl]:6:2,' ');

writeln;

write('Сформированный массив: ');

if poz=0 then writeln('No solution')

else

for zicl:=1 to poz do

write(b[zicl]:6:0,' ');

end.

Тестовые данные к программе:

n=5 A=(-1, 1, -1, 0, -1) 

B=(1, 3,  5)

n=5 A=(1, 1, 1, 1, 1) 

No solution

n=1 A=(0) 

No solution

Вывод: Мною было изучено понятие массива, а также основные способы работы с массивами (ввод-вывод). Для закрепления изученного материала была написана программа lab2, в которой использовались изученные методы. Произведенные тесты этой программы позволяют сделать вывод об ее правильности.