Вводные данные:
2.7 Выводные данные:
3. Листинг программы
program new;
const max=100;
var a:array[1..max,1..max] of integer;
p,q,n,i,j: integer; sum1,sum2,pr: integer;
begin
write('Введите размеры массива: ');
readln(p,q);
writeln('Исходный массив:');
for i:=1 to p do begin
for j:=1 to q do begin
a[i,j]:=random(15)-9;
write(a[i,j]:5);
end;writeln;
end;writeln;
repeat
write('Введите число n (1<=n<=p): ');
readln(n);
until n in [1..q];
for i:=1 to q do
sum1:=sum1+a[i,n];
writeln('Сумма элементов ',n,'-го столбца = ',sum1);
for i:=1 to p do begin
sum2:=0;
for j:=1 to q do
sum2:=sum2+a[i,j];
pr:=sum1*sum2;
writeln('Произведение ',n,'-го столбца и ',i,'-й строки = ',pr);
end;readln;end.
Постановка задачи.
Даны квадратные матрицы. Напечатать ту их них, которая имеет минимальный след(т.е сумму элементов главной диоганали). Использовать функцию для нахождения следа матрицы и функцию печати.
2. Описание программы.
2.1 общие сведения.
Программа написана в среде программирования PascalABC .Программа занимает 325 байт.
2.2 Функциональное значение.
Нахождения матрицы с минимальным следом.
2.3 Используемые технические средства.
Процессор: Intel® Core™ i3 CPU M350 @ 2.27 GHz
Система: Windows 7 Домашняя базовая
Клавиатура: Стандартная клавиатура PS/2
2.4 Вызов и загрузки программу.
Для загрузки программы необходимо произвести следующую комбинацию действий:
1.Открыть папку PABCwork;
2. Открыть файл lab_1.
3. Запуск программы происходит при нажатии комбинации клавиш Ctrl+F9;
4. После ввода значений нажать Enter;
5. Для получения данных нажать комбинацию клавиш Alt+F5.
2.5 Описание логической структуры
1. Название программы.
2. Раздел констант, описание констант.
3. Раздел типов, описание типов.
4. Раздел переменных, описание переменных.
5. Процедура vvod с параметрами ( var a:mass);.
6. Начало подпрограммы, подключение randomize.
7. От i:=1 до n начать цикл.
8. От j:=1 до n начать подцикл.
9. Присвоить a[i,j]:=random(9);.
10. Конец цикла, конец подпрограммы.
11. Функция sled с параметрами (a:mass; var s:real):real;.
12. Начало подпрограммы.
13. От i:=1 до n начать цикл.
14. От j:=1 до n начать подцикл.
15. Если i=j то присвоить s:=s+a[i,j];
16. Присвоить sled:=s;. Конец подпрограммы.
17. Процедура vivod с параметрами ( var a:mass);.
18. Раздел переменных, описание переменных.
19. Начало подпрограммы.
20. От i:=1 до n начать цикл.
21. От j:=1 до n начать подцикл.
22. Вывод (a[i,j]:3), конец цикла, конец подпрограммы.
23. Начало программы.
24. Вызов процедуры vvod(a);(х3).
25. Вызов процедуры vivod(a);(х3).
26. Вызов функции sled(a,k);(х3).
27-29. Вывод сообшения и переменной.
30. Вывод сообщения.
31. Если (k<l) и (k<p) то вызов процедуры vivod(a) и вывод сообщения и переменной.
32. Если (l<k) и (l<p) то вызов процедуры vivod(b) и вывод сообщения и переменной.
33. Если (p<k) и (p<l) то вызов процедуры vivod(c) и вывод сообщения и переменной.
34. Задержка экрана, конец программы.