Паскаль, создание списка. Подскажите, как сделать функцию сортировки учеников по алфавиту, добавление нового ученика в середине программы и как удалять учеников? Желательно более простые способы.
const m=100;
type
Mass = array[1..m] of string;
var
k: mass;
n,k: byte;
procedure Creat;
var i:integer;
begin
write('введите кол-во учеников: ');
readln(n);
for i:= 1 to n do
begin
write('введите ФИО:');
readln(k[i]);
end;
end;
procedure out;
var i:integer;
begin
writeln('Список класса:');
for i:= 1 to n do
writeln(k[i]);
end;
procedure menu;
begin
writeln('1, Создание списка класса');
writeln('2, Вывод списка класса');
writeln('6, EXIT');
end;
var
kom: byte;
begin
repeat
menu;
readln(kom);
case kom of
1: creat;
2: out;
//3: sort;
// 4: dobavit;
// 5:delet;
6: exit;
end;
until kom = 6;
end.
const m=100;
type
Mass = array[1..m] of string;
var
k: mass;
n,k: byte;
procedure Creat;
var i:integer;
begin
write('введите кол-во учеников: ');
readln(n);
for i:= 1 to n do
begin
write('введите ФИО:');
readln(k[i]);
end;
end;
procedure out;
var i:integer;
begin
writeln('Список класса:');
for i:= 1 to n do
writeln(k[i]);
end;
procedure menu;
begin
writeln('1, Создание списка класса');
writeln('2, Вывод списка класса');
writeln('6, EXIT');
end;
var
kom: byte;
begin
repeat
menu;
readln(kom);
case kom of
1: creat;
2: out;
//3: sort;
// 4: dobavit;
// 5:delet;
6: exit;
end;
until kom = 6;
end.
More Questions From This User See All