Скачать программы    Все программы автора

Задание № 15

Создать ведомость с указанием порядковых номеров,фамилии студентаи изучаемого им предмета.

Отсортировать по разным ведомостям в зависимости от предмета, упорядочив фамилии по алфавиту.

program Vedom;

var { Описываем переменные }

spisok:array[1..35,1..3] of string[10]; { Задаем двухмерный массив }

n,i,m:integer; { Целочисленные переменные }

t,s1,s2,s3:string; { Строкавые переменные }

begin { Составляем ведомость студентов}

writeln('введите количество студентов');

readln(n);

for i:=1 to n do begin

write('введите порядковый номер студента ');

readln(spisok[i,1]);

write('введите фамилию студента ');

readln(spisok[i,2]);

write('предмет ');

readln(spisok[i,3]);

end;

{ Сортировка ведомости по алфавиту}

for i:=1 to n-1 do

for m:=i+1 to n do

if spisok[m,2]<spisok[i,2] then begin

s1:=spisok[m,1]; s2:=spisok[m,2]; s3:=spisok[m,3];

spisok[m,1]:=spisok[i,1]; spisok[m,2]:=spisok[i,2]; spisok[m,3]:=spisok[i,3];

spisok[i,1]:=s1; spisok[i,2]:=s2; spisok[i,3]:=s3;

writeln('по какому предмету составить ведомость? ');

readln(t);

{ Сортируем по предмету}

for i:=1 to n do

if t=spisok[i,3] then

writeln(spisok[i,1], spisok[i,2]);

end;

end.