Реферат: Программирование игры Змейка

031 } gotoxy(x,y+3);

032 } writeln('║ MEDIUM ║');

033 } gotoxy(x,y+4);

034 } writeln('║ HIGH ║');

035 } gotoxy(x,y+5);

036 } writeln('║ VERY HIGH ║');

037 } gotoxy(x,y+6);

038 }writeln('║ RESULT ║');

039 }gotoxy(x,y+7);

040 }writeln('╚═══════════════════╝');

041 }gotoxy(x,y+8);

042 }textcolor(14);

043 }writeln(' Виберiть рiвень ');

044 }textcolor(0);

045 }gotoxy(1,1);

046 }End;

{------------------------------------------------------}

047 } Procedure Symbol(x,y:integer; sym:char);

048 } Begin

049 } gotoxy(x,y);

050 } write(sym);

051 } gotoxy(1,1);

052 } End;

{------------------------------------------------------}

053 } Procedure Rezultat(var d:res;scr,dl:integer);

054 } var f1:result;

055 } Begin

056 } {$I-}

057 } Reset(d);