Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Display7
1 / 1 / 0
Регистрация: 12.02.2013
Сообщений: 43
1

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-зеленого

15.02.2013, 12:15. Просмотров 1015. Ответов 1
Метки нет (Все метки)

1. Очистить экран монитора и при необходимости установить требуемый цвет
фона.
2. Вывести один или несколько графических элементов (отрезков,
прямоугольников, окружностей, эллипсов, многоугольников, строк текста или др.)
требуемого цвета и размера с заданным начальным расположением.


Вывести на экран монитора горизонтальную строку текста длиной не более
двадцати символов светло-зеленого (LightGreen) цвета и разместить вокруг текста
симметрично расположенную прямоугольную рамку голубого (Cyan) цвета тройной толщины.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2013, 12:15
Ответы с готовыми решениями:

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-красного (LightRed) цвета
Вывести на экран монитора горизонтальную строку текста длиной не более...

Вывести на экран монитора горизонтально расположенную строку текста длиной не более двадцати символов
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Очистить экран монитора и при...

Вывести на экран монитора вертикальную строку текста длиной не более десяти символов светло-синего (LightBlue) цвета
Вывести на экран монитора вертикальную строку текста длиной не более десяти...

Вывести на экран монитора два вертикально расположенные строки текста длиной не более двадцати символов
Вывести на экран монитора два вертикально расположенные строки текста длиной не...

Вывести на экран монитора горизонтально расположенную строку текста длиной не более десяти символов
Вывести на экран монитора горизонтально расположенную строку текста длиной не...

1
Puporev
Модератор
55007 / 42303 / 29212
Регистрация: 18.05.2008
Сообщений: 99,948
15.02.2013, 14:07 2
Лучший ответ Сообщение было отмечено Display7 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses graph;
var x,y,n:integer;
    s:string;
begin
repeat
writeln('Vvedite stroku do 20 simvolov');
readln(s);
until length(s) in [1..20];
n:=length(s);
initgraph(x,y,'');
x:=(getmaxX-n*8)div 2;{размер шрифта 8х8 пикселей}
y:=getmaxY div 2;
setcolor(lightgreen);
outtextXY(x,y,s);
setcolor(cyan);
setlinestyle(0,0,3);
rectangle(x-20,y-20,x+n*8-4+20,y+24);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2013, 14:07

Вывести на экран монитора горизонтально расположенную строку текста длиной не более десяти символов
Может кто-то помочь? Вывести на экран монитора горизонтально расположенную...

Вывести на экран монитора горизонтально расположенную строку текста длиной не более десяти символов
Вывести на экран монитора горизонтально расположенную строку текста длиной не...

Вывести на экран монитора горизонтальную строку текста
Вывести на экран монитора горизонтальную строку текста длиной не более двадцати...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru