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

UptoLike

ВУЗ: 

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

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

Рубрика: 

230
begin {если список не загружен}
ColorWindow(15,1,50,3,4);
ShowText('Ошибка при чтении из файла '+filename,3,2,15,4);
end;
readkey;
end;
{Тело программы}
begin
Clear(persons); {инициализация списка – очистка}
repeat
BlackScreen; {очистка экрана}
case MenuVert(MainMenu) of {Вызываем меню
и в зависимости от выбранного пункта выполняем
соответствующее действие}
1: ClearArray;
2: InsertToArray;
3: DeleteFromArray;
4: SortArray;
5: ViewArray;
6: SaveArray;
7: LoadArray;
8: ViewPartArray;
0,100: Exit; {выход, если выбран пункт «Выход из программы»}
{или нажат Esc}
end;
until false;
end.

Страницы