close

Вход

Забыли?

вход по аккаунту

?

работа с текстом в графике

код для вставки
программирование паскаль
Тема: Работа с текстом в графическом режиме. Типы шрифтов
(2 часа)
Цель урока:
1). Дать определение процедур работы с текстом
2). Научить корректно использовать процедуры при составлении программ
3). Развивать логическое мышление. Повышать уровень компьютерной
грамотности.
План
1. Организационный момент: (перекличка, проверка домашнего задания)
2. Опрос
3. Сообщение нового материала.
4. Решение задач – составление программ.
5. Выставление оценок. Подведение итогов
6. Домашнее задание.
Вывод текста в графическом режиме
Любой фигуре можно соотнести текст, изображаемый возле неё или в ней,
например, запись процентов на круговой диаграмме. Вывод предваряет оператор
Settextstyle(<Шрифт>,<Направление>,<Размер шрифта>);
Параметр <Шрифт> имеет значение 0..4;
0 обозначает матричный шрифт, остальные цифры — штриховой,
обеспечивающий хорошее качество и при малом, и при большом размере
символов.
1 — шрифт триплекс (Trip.chr)
2 — мелкий
(Litt.chr)
3 — прямой
(Sans.chr)
4 — готический
(Goth.chr)
Параметр <Направление> имеет значение 0 (текст идёт слева-направо)
и 1(текст идёт сверху-вниз, по вертикали).
Параметр <Размер шрифта>— коэффициент увеличения (1..10) размера
стандартного шрифта 8*8 пикселей.
Процедура OutTextXY(X,Y,’text’), X,Y положение курсора в окне или
на экране. Курсор совмещен с левым верхним углом поля, если текст
идет по горизонтали, и с правым верхним углом поля, если текст идёт
вертикально.
Для явного указания положения текста по отношению к курсору
используют процедуру SetTextJustify(<Гор.>,<Верт.>,), записываемую
до оператора OutTextXY(X,Y,’text’).
<Гор>
0 – текст справа от курсора
1 – текст центрирован
2 – текст слева
<Верт>
0 – текст сверху от курсора
1 – текст центрирован
2 – текст снизу от курсора
uses graph,crt;
var x,driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');setcolor(2);setbkcolor(5);
settextstyle(4,0,8);
settextjustify(2,2);
outtextxy(220,140,'begin');
readln;
settextstyle(0,0,8);
settextjustify(1,1);
outtextxy(220,240,'end');readln;
settextstyle(3,1,8);
settextjustify(2,2);
outtextxy(420,140,'hellou');readln;
closegraph;
end.
Автор
ovsianik
Документ
Категория
Образование
Просмотров
16
Размер файла
32 Кб
Теги
графика и текст, программирование, паскаль
1/--страниц
Пожаловаться на содержимое документа