Developing.ru

Здараствуйте Господа програмисты !!!!!!!!!
Ето сново я!!!!!
Ещё раз спосибо за то што помогли в прошлый раз надеюсь сейчас тоже не подкочаете )))

Помогите пожалуйста

Заранее спосибо !!!!!!

Вот текст программы:

uses crt;graph
var GraphDivers,GgraphMode:integer;
x1,x2,y1,y2,i:integer;
BEGIN
GraphDrivers:=detect;
InitGraph(GraphDrivers,GraphMode,'');
if GraphResult <> grOK then
Halt(1);
randomize;
repiat
x1:=random(GetMaxX);
y1:=random(GetMaxY);
x2:=random(GetMaxX);
y2:=random(GetMaxY);
rectengel(x1,y1,x2,y2);
setcolor(random(15));
inc(i);
if i=100
then clrscr;
delay(10000);
until KeyPressed;
CloseGraph;
END.


Вроде ошыбок нет ,покрайне мере их не показывают но когда
я её запускаю то первый раз она стирает всё што нарисовала а, после етого екран стоновеца серым и прямоугольники идут без конца. А мне надо ето избежать. Так что помогите !!!!!!!!!!! Пожалусто!!!!!!!!!

1) REPEAT, а не REPIAT
Остальное сейчас посмотрю

Вот так, наверное правильно, тестируй:
[syntax=Delphi]
uses crt,graph ;
var GraphDrivers,GraphMode:integer;
x1,x2,y1,y2:integer;
BEGIN
GraphDrivers:=detect;
InitGraph(GraphDrivers,GraphMode,'');
if GraphResult <> grOK then
Halt(1);
randomize;
repeat
x1:=random(GetMaxX);
y1:=random(GetMaxY);
x2:=random(GetMaxX);
y2:=random(GetMaxY);
rectangle(x1,y1,x2,y2);
setcolor(random(15));
delay(10000);
until KeyPressed;
CloseGraph;
readln;
END.
[/syntax]

Не непомогает ((( и вопрос как выделить КОД ???

Что значит не помогает?!
Ты скопируй мой выделеный код в блокнот и сохрани как ***.PAS,
где *** имя файла!
Все работает так как надо.

Vovchik писал(а):и вопрос как выделить КОД ???

просто выделить код можно используя теги

[сode]ваш код[/сode]
ИЛИ
[syntах='Delphi']код на Delphi[/syntах]

или

[syntах='Pascal']код на Pascal[/syntах]

Последнее использовать нерекомендую, цвета не очень

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

&quot писал(а):через каждые 100 нарисованых прямоугольников они стерадись и рисовальсь по новой

[syntax='Delphi']
uses crt,graph ;
var GraphDrivers,GraphMode,i:integer;
x1,x2,y1,y2:integer;
BEGIN
GraphDrivers:=detect;
InitGraph(GraphDrivers,GraphMode,'');
if GraphResult <> grOK then
Halt(1);
setbkcolor(15);
randomize;
i:=1;
repeat
x1:=random(GetMaxX);
y1:=random(GetMaxY);
x2:=random(GetMaxX);
y2:=random(GetMaxY);
rectangle(x1,y1,x2,y2);
setcolor(random(14));
delay(10000);
inc(i);
if i=100 then
begin
setfillstyle(1,15);
floodfill(getmaxx div 2,getmaxy div 2,15);
i:=1;
end;
until KeyPressed;
CloseGraph;
readln;
END.[/syntax]

Medved, я проверел прога стерает первый раз но цвет фона меняеца, а во второй раз стираеца тока горезонтальные линии !!!!!

[syntax='Delphi']uses crt,graph ;
var GraphDrivers,GraphMode,i:integer;
x1,x2,y1,y2:integer;
BEGIN
GraphDrivers:=detect;
InitGraph(GraphDrivers,GraphMode,'');
if GraphResult <> grOK then
Halt(1);
setbkcolor(15);
randomize;
i:=1;
repeat
x1:=random(GetMaxX);
y1:=random(GetMaxY);
x2:=random(GetMaxX);
y2:=random(GetMaxY);
setcolor(random(14));
Setfillstyle(1,random(14));
rectangle(x1,y1,x2,y2);
delay(10000);
inc(i);
if i=100 then
begin
setfillstyle(1,15);
floodfill(getmaxx div 2,getmaxy div 2,15);
i:=1;
end;
until KeyPressed;
CloseGraph;
readln;
END.[/syntax]

А так?

Огромное спосибо вам Medved, и вообше всем кто откликнулся !!!!!!