2.6 Вводные данные:
Выводные данные:
3. Листинг программы
program new;
const n=4;
type mass=array[1..n,1..n] of integer;
var a,b,c:mass; k,l,p:real;i,j:integer;
procedure vvod( var a:mass);
begin randomize;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(9);
end;;end;
function sled(a:mass; var s:real):real;
begin
for i:=1 to n do
for j:=1 to n do
if(i=j) then s:=s+a[i,j];
sled:=s;end;
procedure vivod(a:mass);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);writeln;end;writeln;end;
begin
vvod(a);vvod(b);vvod(c);
vivod(a);vivod(b);vivod(c);
sled(a,k);sled(b,l);sled(c,p);
writeln('След 1-ой матрицы =',k);
writeln('След 2-ой матрицы =',l);
writeln('След 3-ей матрицы =',p);
writeln('Массив с мин следом');
if (k<l) and (k<p) then begin vivod(a); writeln('Минимальный след =',k);end;
if (l<k) and (l<p) then begin vivod(b); writeln('Минимальный след =',l);end;
if (p<k) and (p<l) then begin vivod(c); writeln('Минимальный след =',p);end;
readln;end.
Постановка задачи.
Дан файл, содержащей сведения о студентах, включающие в себя его фамилию имя, год рождения, номер группы и оценки, по каким либо трем предметам.
Составить программу, которая выводит:
-сведения о студентах специальности Исэб.
-список студентов, фамилии которых начинаються с буквы Д.
2. Описание программы.
2.1 общие сведения.
Программа написана в среде программирования PascalABC .Программа занимает 395 байт.
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-11.Раздел типов , описание типов.
12-13.Раздел переменных, описание переменных.
14.Процедура CreateDataBase;.
15.Раздел переменных, описание переменных.
16.Начать подпрограмму.
17.Оператор цикла repeat.
18.Вывод сообщения.
19.Ввод переменной.
20.Выход из цикла при NumItems<=N;.
21.Цикл от i:=1 до NumItems начать .
22.Циклический оператор With.
23-34.Вывод сообщения, ввод переменной.
35.Конец цикла.
36.Вывод сообщения.
37.Конец подпрограммы.
38.Процедура DisplayDataBase;.
39. Раздел переменных, описание переменных.
40. Начать подпрограмму.
41. Если NumItems<>0 то.
42. Начать подпрограмму.
43. Цикл от i:=1 до NumItems.
44. Начать подпрограмму.
45-60.Вывод сообщения, вывод переменной.
61.Конец цикла и подпрограммы.
62.Если иначе то вывод сообщения.
63.Конец подпрограммы.
64.Процедура SearchDataBase;.
65. Раздел переменных, описание переменных.
66. Начать подпрограмму.
67. Цикл от i:=1 до NumItems начать .
68. Циклический оператор With.
69. Если stud.grp='Исэб' то начать.
70-81. Вывод сообщения, вывод переменной.
82. Конец цикла и подпрограмм.
83. Процедура SearchDataBase1;.
84. Раздел переменных, описание переменных.
85. Начать подпрограмму.
86. Цикл от i:=1 до NumItems начать .
87. Циклический оператор With.
88. Если (stud.name[1]='Д') то начать.
89-100. Вывод сообщения, вывод переменной.
101. Конец цикла и подпрограмм.
102.Процедура MainMenu;.
103. Раздел переменных, описание переменных.
104. Начать подпрограмму.
105. Оператор цикла repeat.
106-112.Вывод сообщения.
113.Ввод переменной.
114. Если (cmd>9) и (cmd<0) то вывод сообщения.
115.Иначе начать подпрограмму.
116.Оператор выбора case.
117-120.Выбор процедур.
121.Конец подпрограмм.
122.Выход из цикла при cmd=9, конец подпрограммы.
123.Начать программу.
124.Вызов процедуры MainMenu;.
125.Конец программы.