работа с текстом в графическом режиме Опции

[18192123]

Вот такая задачка:
В верхней левой и в правой нижней части экрана произволь-ным цветом создайте две прямоугольных области с одной общей точкой. Залейте их разным цветом и выведите внутри каждой области, соответственно, одно из следующих сообще-ний: «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.

[volvo]

А теперь скажи, ЧТО надо ввести, чтобы получить ВООБЩЕ какой-нибудь прямоугольник, а не несколько отдельных линий?

И сразу же вопрос №2 - за счет чего ты хочешь

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

? Чтобы все, что НЕ поместилось - обрезалось? Или уменьшать размер шрифта?

[18192123]

И спвзу эе вопрос №2 - за счет чего ты хочешь ? Чтобы все, что НЕ поместилось - обрезалось? Или уменьшать размер шрифта?

уменьшать размер шрифта




Добавлено через 2 мин.

А теперь скажи, ЧТО надо ввести, чтобы получить ВООБЩЕ какой-нибудь прямоугольник, а не несколько отдельных линий?

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

Сообщение отредактировано: 18192123 - 27.02.2007 20:40