{удар шарика об верхнюю или нижнюю стенку}

if (BY<10) or (BY>470) then kY:=-kY;

oBX:=BX;

oBY:=BY;

Delay(10);

until StopRun; {выход если нажата клавиша Esc}

end;

{============================================================================}

begin

InitScreen; {инициализация графического режима}

SetUserInt; {установка пользовательского прерывания}

Game; {непосредственно вызов игры}

SetOldInt; {восстановления старого вектора прерывания}

CloseGraph; {закрытие графического режима}

end.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ

Таганрогский государственный радиотехнический университет

Кафедра вычислительной техники

_____________________________________________________________________

Дистанционное обучение

2000 – 2001 учебный год

ОТЧЕТ

о выполнении практических заданий

по курсу

ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯ

Студента группы ВД – 49

Каретина Флориана Викторовича

Задание выполнил ________________ _____________________

подпись студента дата выполнения задания

Задание проверил ________________ _____________________

оценка подпись преподавателя

_______________________

дата проверки задания

Рецензия преподавателя

______________________________________________________________________