Мозайка в Паскале

[Wi1D]

Как задать цвет и толщину бордюра окна в Паскале!!!???


-----------------------------------------------------------


Добрый вечер!Сразу к делу.Вот задание:
Создать постоянно меняющуюся мозаику из разноцветных окон, разных размеров (использовать функцию Random). Для остановки использовать клавишу Escape

Вот то что я смог реализовать:

Program Mo3auKA;
uses CRT;
var x1,x2,x3,x4,x5,x6,x7,x8,x9,
		y1,y2,y3,y4,y5,y6,y7,y8,y9:byte;
Begin
randomize;
textbackground(black);
ClrScr;

textbackground(Random(15));
window(1,1,x1,y1);
ClrScr;

textbackground(Random(15));
window(x1+1,y1+1,x2,y2);
clrscr;

readkey;
End.

Мой вопрос один: как заставить окна заполнять экран так чтобы он был заполнен весь!тоесть реализовать - мозаику из окон разных размеров.Остальное я напишу сам.Скажите хотя бы словами.В код я преобразую сам.Заранее Благодарю!!!

[KORN]

а тут не проще использовать массив x[0..8] и y[0..8] of byte7

[Wi1D]

Впринципе да а как алгоритм тогда построить?вот именно вычесления координат

[pomoshnic]

Вот написал код, думаю разберешься:

Uses CRT;
var x,y:array[1..2] of byte;
b:boolean;
Begin
randomize;
textbackground(black);
ClrScr;
repeat
textbackground(Random(15));
b:=false;
x[1]:=random(80)+1;
y[1]:=random(25)+1;
x[2]:=random(79-x[1])+x[1];
y[2]:=random(24-y[1])+y[1];
window(x[1],y[1],x[2],y[2]);
textbackground(Random(15));
window(x[1],y[1],x[2],y[2]);
clrScr;
delay(10000);
if keypressed then b:=readkey=#27;
until b;
End.

[Wi1D]

этот код не работает

[Wi1D]

и делает не то что требуеться

[pomoshnic]

Сообщение от Wi1D

этот код не работает

А что наработает, и какой средой вы пользуетесь? Я проверил в Turbo Pascal 7.0 и free pascal 2.2.2, и работает, правда в free pascal 2.2.2 значение delay нужно изменить на 200.

и делает не то, что требуется

может я, не так понял условие ,
имхо нужно создавать окна со случайным размером и случайным цветом пока не будет нажата клавиша "esc".

[Wi1D]

у мя в Turbo Pascal 7.0 выдает RANGE CHECK ERROR

[Wi1D]

pomoshnic спасибо!!!!все работает!просто я изменил код в 2х моментах!!!
x[2]:=random(79-x[1])+x[1]; <== тут поставил вместо 79 - 80
y[2]:=random(24-y[1])+y[1]; <== тут поставил вместо 24 - 25

И все заработало!)))

[Wi1D]

и еще маленький вопрос.... как прописать тип рамки (одинарная или двойная) и цвет рамки?!