Курсовая работа: Створення програми гри "Шибениця"

outtextxy (305,6,'ВИСЕЛИЦА');

outtextxy (305,15,'ВАМ_НУЖНО_УГАДАТЬ_СЛОВО');

outtextxy (305,24,'В_КВАДРАТНЫХ_СКОБКАХ');

outtextxy (305,33,'НАЖАТЫЕ_БУКВЫ');

SetLineStyle (SolidLn, 0, NormWidth);

if el>=1 then

begin

line (25,250,225,250);

line (25,250,25, 200);

line (25, 200,100, 200);

line (100, 200,100,225);

line (100,225,225,225);

line (225,225,225,250);

end;

if el>=2 then

begin

line (50, 200,50,25);

line (40,25,175,25);

end;

if el>=3 then

begin

SetLineStyle (DottedLn, 0, NormWidth);

line (150,25,150,65);

SetLineStyle (SolidLn, 0, NormWidth);

end;

if el>=4 then

begin

circle (150,75,10);

end;