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

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

07.03.2013, 15:57. Просмотров 889. Ответов 1
Метки нет (Все метки)

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

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

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-зеленого
1. Очистить экран монитора и при необходимости установить требуемый цвет фона....

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

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

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

1
Puporev
Модератор
55067 / 42331 / 29234
Регистрация: 18.05.2008
Сообщений: 100,029
07.03.2013, 17:16 2
Лучший ответ Сообщение было отмечено TiRaToRe как решение

Решение

Цитата Сообщение от TiRaToRe Посмотреть сообщение
двойной
Это как? В Турбо Паскале есть тонкая линия, толщиной в 1 пиксел и толстая, толщиной в 3 пиксела, линии двойной толщины нет, как вариант рисовать 2 тонкие рамки рядом.

Добавлено через 15 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses graph;
var x,y,n,i:integer;
    s:string;
begin
initgraph(x,y,'');
s:='Stroka';
n:=length(s);
x:=getmaxX div 2;
y:=getmaxY div 2;
setcolor(LightBlue);
for i:=1 to n do
outtextXY(x,y-8*(n div 2)+8*i,s[i]);
setcolor(Magenta);
rectangle(x-10,y-8*(n div 2)-8,x+16,y+8*(n div 2)+20);
rectangle(x-11,y-8*(n div 2)-9,x+17,y+8*(n div 2)+21);
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 17:16

Вывести на экран монитора круг светло-синего цвета и эллипс светло-фиолетового
Вывести на экран монитора круг светло-синего цвета и элипс светло-фиолетового...

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

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


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

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

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