Протокол работы программы. Программа для обработки массива данных по группе студентов из 30 человек

Текст программы

Программа для обработки массива данных по группе студентов из 30 человек

Для каждого студента указаны фамилия и оценки по пяти дисциплинам. Необходимо вычислить средний балл и упорядочить список студентов группы по убыванию среднего балла.

Используемые в программе идентификаторы

Обозначения	Тип данных	Примечание
STR	RECORD	Запись сведений о студенте
FAM	STRING [30]	Поле записи STR – фамилия
B1,B2,B3,B4,B5	INTEGER	Поля записи STR – оценки
SB	REAL	Средний балл
Y	RECORD	Промежуточная запись
TBL	ARRAY [1…30] OF STR	Массив, содержащий записи сведений о студентах группы
J	INTEGER
I	INTEGER
K	INTEGER
M	INTEGER
X	REAL
PR	INTEGER	Переменная для управления повторной работой программы

PROGRAM PRIM2;

USES CRT;

TYPE

STR=RECORD

FAM: STRING [30];

B1,B2,B3,B4,B5: 2..5;

SB: REAL

END;

VAR

TBL: ARRAY [1..30] OF STR;

Y:STR;

I,J,K,M:INTEGER;

X,R:REAL;

PR:BYTE;

BEGIN

CLRSCR;

REPEAT

WRITELN ('Введите число студентов');

READLN (M);

FOR I:= 1 TO M DO

WITH TBL[I] DO

BEGIN

WRITELN('Введите фамилию');

READLN (FAM);

WRITELN('Введите пять оценок студента');

READLN (B1,B2,B3,B4,B5);

END;

FOR I:= 1 TO M DO

WITH TBL[I] DO

SB:= (B1+B2+B3+B4+B5)/5;

FOR I:= 1 TO M DO

BEGIN

K:=1;

X:=TBL[I].SB;

FOR J:=I TO M DO

IF TBL[J].SB >=X THEN

BEGIN

K:=J;

X:=TBL[J].SB;

Y:=TBL[K];

TBL[K]:=TBL[I];

TBL[I]:=Y

END;

END;

WRITELN ('Список студентов');

FOR I:=1 TO M DO

WITH TBL[I] DO

WRITELN (FAM, SB:4:2);

WRITELN ('Обработать еще один список? 1-да 0-нет');

READLN(PR);

UNTIL PR=0

END.

Ввод исходных данных

Дата добавления: 2014-01-04