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

[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.

[Алена]

Не пойму смысл этого вопроса!

В программе есть ввод данных? ReadLn запрашивается? Что надо ввести, чтобы получить прямоугольники? При вводе произвольных данных прямоугольников не получается... Скажи ТОЧНО, какие цифры ты вводишь...

Добавлено через 40 сек.
Почему надо все время ДОГАДЫВАТЬСЯ?

[18192123]

В программе есть ввод данных? ReadLn запрашивается? Что надо ввести, чтобы получить прямоугольники? При вводе произвольных данных прямоугольников не получается... Скажи ТОЧНО, какие цифры ты вводишь...

Добавлено через 40 сек.
Почему надо все время ДОГАДЫВАТЬСЯ?

Пусть а=150, b=150, а_=180, b_=90
Почему при произвольных данных прямоугольники не получаются? ведь, в принципе, пользователь может ввести любые параметры для прямоугольников...

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