IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> работа с текстом в графическом режиме
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


Вот такая задачка:
В верхней левой и в правой нижней части экрана произволь-ным цветом создайте две прямоугольных области с одной общей точкой. Залейте их разным цветом и выведите внутри каждой области, соответственно, одно из следующих сообще-ний: «Question 1» и «Question 2»

У меня затруднение с тем, чтобы текст не выходил за пределы прямоугольников...


Uses Crt, Graph;
const x = 320; y = 175;
var
DriverVar, ModeVar, a, b, a_, b_: integer;

begin
clrscr;
Writeln ('vvedite odni razmeri');
readln (a);
readln (b);
Writeln ('teperi sledyuchie');
readln (a_);
readln (b_);

DriverVar := Detect;
InitGraph (DriverVar, ModeVar,'');

SetBkColor(13);
setcolor(15);
bar(x+b,y+a,x,y);
SetTextStyle(0,1,1);
OutTextXY( (x + b) div 2, (y + a) div 2, 'Question 1');
setfillstyle(7,15);
bar(x,y,x-a_,y-b_);
SetTextStyle(0,0,2);
OutTextXY( (x - a_) div 2, (y - b_) div 2, 'Question 2');

readln;

closegraph;
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   работа с текстом в графическом режиме   27.02.2007 1:07
volvo   А теперь скажи, ЧТО надо ввести, чтобы получить ВО…   27.02.2007 1:14
18192123   И спвзу эе вопрос №2 - за счет чего ты хочешь ?…   28.02.2007 0:22
Алена   В программе есть ввод данных? ReadLn запрашивается…   28.02.2007 1:16
18192123   В программе есть ввод данных? ReadLn запрашиваетс…   28.02.2007 2:22
TarasBer   Розовый фон. Гламурненько... Глазам неприятно. Сет…   28.02.2007 2:56
18192123   Вроде поняла..кроме одного момента... W1 := T…   28.02.2007 4:06
T i m e   Да уж кошачее собрание... :) Прикольно. TarasB…   28.02.2007 3:22
volvo   Вычисление ширины текста, вестимо.. А у тебя на к…   28.02.2007 5:01
18192123   Набери shl в Паскале и нажми Ctrl + F1 - узнае…   9.03.2007 2:51
Ozzя   Не могли бы вы дать ссылку, где об этом можно под…   9.03.2007 11:28
18192123   SetTextStyle(4, 1, a shl 2 div w1); выражение …   9.03.2007 23:50
TarasBer   SetTextStyle(4, 1, a shl 2 div w1); выражение…   10.03.2007 0:29
18192123   На положительные целые числа операция shl x дейтв…   10.03.2007 0:43
TarasBer   а почему нужно именно 2 в выражении a shl 2 div w…   10.03.2007 0:55
18192123   Потому что мне захотелось умножить именно на 2^2=…   10.03.2007 0:57
Bokul   Конечно не по теме, но где можно бы почитать о при…   10.03.2007 0:32
volvo   В поиске есть, suriv спрашивал когда-то, в "Т…   10.03.2007 0:33


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.08.2022 14:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name