Реферат: Лабораторная работа №12

Цель работы: Изучение правил описания и вызова подпрограмм: процедур и функций. Получение навыков и овладение приемами работы над подпрограммами.

Задание№ 17. Посчитать сумму элементов лежащих выше главной диагонали матрицы для матрицы Z=X²+Y².

Программа на Turbo Pascal

{Программа: Kyrsaсh }

{Цель: Найти сумму элементов выше главной диагонали }

{Переменные: }

{ X,Y - вводимые массивы }

{ N, M, A,B, Z - промежуточные массивы }

{ t - Размер массива }

{ i, j - переменные цикла }

{Программист: Позднышев А.А. группа 316 }

{Проверил: Новичков В.С. }

Program Lab_12;

uses crt;

Const

Nmax=10; {Максимальный размер массива}

Type

Matrics=array[1..Nmax,1..Nmax] of integer;

Masiv=array[1..Nmax] of integer;

Var

X,Y,Z,A,B:matrics;

M,N:masiv;

i,j,t:integer;

{Процедура ввода элементов массива}

{Параметры: t - размер массива, X - массив}

Procedure Vvod (t:integer; Var X:matrics);

Var

i,j:integer;

Begin{Vvod}

--> ЧИТАТЬ ПОЛНОСТЬЮ <--