Лабораторная работа №12
Категория реферата: Рефераты по информатике, программированию
Теги реферата: управление реферат, 5 баллов рефераты
Добавил(а) на сайт: Sijangulov.
1 2 3 | Следующая страница реферата
Цель работы: Изучение правил описания и вызова подпрограмм: процедур и
функций. Получение навыков и овладение приемами работы над подпрограммами.
Задание№ 17. Посчитать сумму элементов лежащих выше главной диагонали
матрицы для матрицы Z=X2+Y2.
Программа на 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}
For i:=1 to t do
For j:=1 to t do
Begin {Ввод элементов}
Write ('[',i,',',j,']=');
Read (X[i,j]);
End; {Ввод элементов}
For i:=1 to t do
Begin {Вывод элементов}
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End {Вывод элементов}
End;{Vvod}
{Процедура вывода элеменов матриц}
{Параметры: X,Y - матрицы, t - размер}
Procedure Echo (t:integer; X:matrics); var i,j:byte;
begin {Echo}
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Рекомендуем скачать другие рефераты по теме: способ изложения, спортивные рефераты.
1 2 3 | Следующая страница реферата