лабораторная работа / вар18 / lab5v18

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

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

ПО ДИСЦИПЛИНЕ

,,ПРОГРАММИРОВАНИЕ И ОСНОВЫ АЛГОРИТМА,,

Обработка одномерных массивов на языке TURBO PASCAL

Выполнил: ст. гр. УИТ-21

Приняла:

2006

Цель работы: научиться работать с одномерными массивами.

Задание: Даны массивы X и Y одинакового типа и с одним и тем же количеством элементов. Найти сумму соответствующих элементов обоих массивов и записать результат в новый массив Z.

начало

i=1,5

X[i]

i=1,5

Y[i]

Z[i]=X[i]+Y[i]

program lab5(input,output);

var X,Y,Z:array[1..5] of real;

i:byte;

begin

Writeln('Введите массив X');

for i:= 1 to 5 do Read(X[i]);

Writeln('Введите массив Y ');

for i:= 1 to 5 do Read(Y[i]);

for i:= 1 to 5 do Z[i]:=X[i]+Y[i];

Writeln('Вывод массива Z');

for i:= 1 to 5 do write(' ',Z[i]:6:3)

end.