Задания уровня 1

Упражнение 1. О каждом студенте известна следующая информация:

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

1. Наберите текст программы:

Program stud;

Type tablica=record {Описание записи о каждом студенте}

name: string[15];

group: string[8];

god: integer;

vt, history, stat, math: byte;

sr_bal: real;

end;

var i, j, n :integer; a: tablica;

mas:array [1..30] of tablica; {Таблица - массив записей}

s_vt, s_history, s_stat, s_math: real; {Переменные для хранения средних значений по предметам}

Begin

write(′n=′); readln(n); {Ввод количества записей}

for i=1 to n do{Ввод элементов массив записей}

with mas[i] do

Begin

writeln(′i=′,i:4);

writeln(′FIO′);

readln(name);

write(′Group′);

readln(group);

write(′Year′);

readln(god);

write(′Otsenki′);

readln(vt, history, stat, math);

sr_bal:=(vt+history+stat+math)/4;

end;

s_vt:=0; s_history:=0; s_stat:=0; s_math:=0;

for i=1 to n do{Вычисление среднего балла по каждому предмету}

Begin

s_vt:=s_vt+mas[i].vt;

s_history:=s_history+mas[i].history;

s_stat:=s_stat+mas[i].stat;

s_math:=s_math+mas[i].math;

end;

for i=1 to n do{Упорядочение записей массива в алфавитном порядке фамилий}

for j:=1 to n-1 do

if mas[j].name> mas[j+1].name then

Begin

a:=mas[j];

mas[j]:=mas[j+1];

mas[j+1]:=a;

end;

clrscr;

write(′ ′;4, ′FIO ′,′ ′;4); {Вывод результатов}

write(′ ′;2, ′ GROUP ′,′ ′;2);

write(′ ′;5, ′ OTSENKI ′,′ ′;5);

writeln(′Sr/ Bal ′);

for i=1 to n do

with mas[i] do

Begin

write(name:15);

write(′ ′,group:8);

write((′ ′,god:4);

writeln(′ ′,vt:3, ′ ′,history:3, ′ ′,stat:3, ′ ′,math:3, ′ ′,sr_bal:5:2);

end;

writeln(′ Sr. Bal: ′, ′ ′, s_vt:3:1, ′ ′, s_history:3:1, ′ ′, s_stat:3:1, ′ ′, s_math:3:1);

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P11PR1

3. Выполнить самостоятельно: