лабораторная работа / LAB7

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

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

ЛАБОРАТОРНАЯ РАБОТА 7

Дисциплина: Программирование и основы алгоритмизации

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ ПОЛЬЗОВАТЕЛЯ

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

Проверил

2006

Задание: Вычислить суммы положительных элементов массивов X(N),Y(M),Z(K)

N60, M60, K70.

Sum

X(5): 2, 7, 6, 1, -5;

Y(3): -1, -7, 5;

Z(4): 4, 6, -7, -8.

Program Lab7;

Var N,M,K:byte; SX,SY,SZ: real;

Procedure SUM(L: byte; Var S: real);

Var x: array [1..100] of integer;

G: byte;

Begin

S:=0;

Write(‘Введите массив’);

For G:=1 to L do

Begin

Read(X[L]);

If X[L]> then S:=S+ X[L];

End;

End;

Begin

WriteLn(‘N=’);

Read(N);

SUM(N,SX);

WriteLn(‘M=’);

Read(M);

SUM(M,SY);

WriteLn(‘K=’);

Read(K);

SUM(K,SZ);

WriteLn(‘SX=’SX:6:2,’ SY=’,SY:6:2,’ SZ=’,SZ:6:2);

End.

SX=16, SY=5, SZ=10.