Алгоритмы и программы. Афанасьева Т. В - 198 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

198
outtextxy(100,200,'Введите номер шрифта (от 1 до 7)');
READLN(g);
cleardevice; {очистка окна}
outtextxy(100,200,'Введите номер цвета (от 0 до 15)');
READLN(c);
cleardevice;
outtextxy(30,200,'Введите текст (желательно латинскими
буквами)');
READLN(s);
cleardevice;
outtextxy(90,200,'Введите размер текста (от 1 до 10 ) ');
READLN(r);
cleardevice;
outtextxy(10,200,'Вывод вертикальный(Y) или
горизонтальный (N) ?' );
setcolor(9);
outtextxy(100,300,' Нажмите на Y или на N');
k:= READkey; {запоминает введенный с клавиатуры
символ}
if k = 'y'then settextstyle(g,1,r) {вертикальный вывод}
else settextstyle(g,0,r); {горизонтальный вывод}
cleardevice; {очистка окна}
moveto(100,100); {перемещение курсора
в точку с
координатами 100,100}
setcolor(c); {задание цвета}
outtext(s);
settextstyle(3,0,4); {установка параметров текста}
outtextxy(250,400,'press enter'); {вывод текста}
setcolor(14); {установка желтого цвета }
outtextxy(200,290,'Procedure SetTextStyle'); {вывод текста}
READLN;
closegraph; {прекращение работы в графическом режиме}
end.
Контрольные вопросы
1. Что понимают под модулем?
2. Из каких частей состоит модуль?
3. Когда возникает необходимость использовать модули?
4. Типы модулей.
5. Назовите стандартные модули Turbo Pascal и опишите их назначение.
6. Правила использования модулей в программах.
7. Какой объем памяти отводится под программу, а какой – под модуль?
8. Какое расширение имеет имя файла модуля?

Страницы