Курсовая работа: Программы в среде Turbo Pascal

c1,c2,c3,c4,c5,c6:char;

begin {Операторы присвоения}

c1:=chr(218);

c2:=chr(196);

c3:=chr(191);

c4:=chr(179);

c5:=chr(192);

c6:=chr(217);

gotoxy(x1,y1); {Установка экрана на позицию x1,y1}

write(c1);

for x:=x1+1 to x2-1 do write (c2); {Операторцикла}

write (c3); {Оператор вывода переменной с3}

for y:=y1+1 to y2-1 do

begin

gotoxy (x1,y); {Прочерчивание горизонтальной линии}

write (c4); {Оператор вывода переменной с4}

gotoxy (x2,y);

write (c4);

end;

gotoxy (x1,y2);

write (c5);

for x:=x1+1 to x2-1 do write (c2);

write(c6);

end;

begin

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

x1:=4; x2:=76;

y1:=4; y2:=23;

frame (x1,x2,y1,y2);