Основы программирования на языке Turbo Pascal. Беляева И.В. - 226 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

226
then
begin {если запись удалена}
ColorWindow(20,1,40,3,1);
ShowText('Запись из массива удалена!',6,2,14,1);
end
else
begin {если запись не удалена}
ColorWindow(15,1,50,3,4);
ShowText('Неверный индекс записи – запись не удалена!',3,2,15,4);
end;
readkey;
end;
{Сортировка записей в списке по фамилиям}
procedure SortArray;
begin
SortList(persons);
ColorWindow(20,1,40,3,1);
ShowText('Массив отсортирован!',13,2,14,1);
readkey;
end;
{Просмотр массива}
procedure ViewArray;
var
i:byte;{счетчик}
begin
BlackScreen;
ColorWindow(1,1,80,23,1);
{вывод шапки}
gotoxy(1,1);
write('|Фамилия |Имя |Отчество |',
'Год_рождения|Группа_крови|Рост|Вес');
gotoxy(1,2);
write('+-----------------+--------------+-----------+',
'------------+------------+----+---');

Страницы