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

Задание № 17

Создать список с указанием фамилии студентов, года рождения и места практики. При вводе места практики отсортировать соответствующие фамилии по алфавиту.

Program NTV; {название программы}

Type {типы данных}

stud=record

nom:integer;

fio:string;

mes:string;

end;

var {переменные}

spis:array[1..35,1..3] of string [10];

n,i,m:integer;

t,s1,s2,s3:string;

begin {начало программы}

clrscr; {очистка экрана}

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

readln(n);

for i:=1 to n do

begin

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

readln(spis[i,1]);

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

readln(spis[i,2]);

write('введите место практики ');

readln(spis[i,3]);

end;

for i:=1 to n-1 do

for m:=i+1 to n do

if spis[m,2]<spis[i,2] then

begin

s1:=spis[m,1]; s2:=spis[m,2]; s3:=spis[m,3]; {сортировка}

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

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

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

readln(t);

for i:=1 to n do

if t=spis[i,3] then

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

end;

{repeat until keypressed;}

end. {конец программы}