close

Вход

Забыли?

вход по аккаунту

?

Lab3(3.6.3) otchyot

код для вставкиСкачать
Лабораторная работа №3
Гончаров Виктор, ИМ-07-12
№ 3.6. Вариант 3 (2+1)
Разработка программ с выделением подпрограмм.
Разработать программу, выделив в ней одну или несколько подпрограмм. Требования к составляемым подпрограммам:
- каждая подпрограмма является функционально завершённой и должна вызываться более одного раза с разными фактическими параметрами;
- подпрограмма обработки не должна содержать ввод (вывод) данных;
- в подпрограммах не рекомендуется использовать глобальные переменные.
Даны матрицы A(5x5), B(7x7), C(4x4). Вычислить значение выражения PA+PB-PC, где PA (PB,PC) - произведение положительных элементов главной диагонали матрицы A(B,C).
ИмяСмыслТипСтруктураИсходные данныеA,B,CИсходные матрицыВещественныйСложная переменнаяnРазмер матрицыЦелыйПростая переменнаяПромежуточные данныеPПроизведение положительных элементов главной диагонали матрицыВещественныйПростая переменнаяi,jНомер строки/столбца ЦелыйПростая переменнаяPa,Pb,PcПроизведение положительных элементов главной диагонали матрицы A,B,C ВещественныйПростая переменнаяВыходные данныеResultЗначение выражения PA+PB-PCВещественныйПростая переменнаяФорма ввода
Форма вывода
Код программы:
program lab363
Type matr=array[1..7, 1..7] of integer;
Var A,B,C:matr; Pa,Pb,Pc,Result:integer;
Procedure matrin(n:integer; c:char; Var p:matr); {процедура ввода матрицы}
Var i,j:integer;
Begin
Writeln('Введите матрицу ',c,' размером ',n,'*',n);
for i=1 to n do
for j=1 to n do
read(p[i,j]);
readln;
End {matrin};
function proizv (var p:matr; n:integer): integer; {функция нахождения произведения пол. элементов на главной диагонали} var
P,i: integer;
begin
P:=1
for i:=1 to n
if p[i][i]>0 then P:=P*p[i][i];
proizv:=P;
end {proizv};
Begin
matrin(5,'A',A);
matrin(7,'B',B);
matrin(4,'C',C);
Pa:=proizv(A,5);
Pb:=proizv(B,7);
Pc:=proizv(C,4);
Result:=Pa+Pb-Pc;
writeln('Pa+Pb-Pc =', Result:7:2);
readln;
End.
Документ
Категория
Рефераты
Просмотров
72
Размер файла
25 Кб
Теги
otchyot, lab3
1/--страниц
Пожаловаться на содержимое документа