Курсовая работа: Игровая программа 15

end;(*game*)

(*Процедура вывода таблицы рекордов*)

procedure best;

begin(*best*)

cleardevice; {Очистка экрана}

{Рисование двойной рамочки}

setlinestyle(0,0,3);

setcolor(13);

rectangle(13,138,621,434);

rectangle(9,132,625,440);

setlinestyle(0,0,1);

{Задание параметров заполнения рамочки}

setfillstyle(1,14);

floodfill(24,140,13);

{Надпись лучшие игроки}

setcolor(10);

settextstyle(7,0,7);

outtextxy(30,45,'Best players are:');

{Печать таблицы результатов}

setcolor(13);

settextstyle(0,0,100);

for a02:=1 to 5 do

begin(*for a02*)

str(a02,stl2);{Преобразование числа в

посл-ть}

c02:=length(stroka[a02*2-1]);

stl2:=stl2+' '+stroka[a02*2-1];

for e02:=1 to 11-c02 do{Разделение имени

игрока и результата точками}