Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / Курс / PR
.PAS program prym;
uses crt,graph,graf;
procedure pryam;
var i:integer;
begin
clrscr;
mygraphlnit;
for i:=1 to 6 do
begin
setcolor(8);
rectangle(90+10*i,90+10*i,240-10*i,220-10*i);
setfillstyle(1,i);
floodfill(165,155,8);
end;
readkey;
end;
begin
pryam;
end.
uses crt,graph,graf;
procedure pryam;
var i:integer;
begin
clrscr;
mygraphlnit;
for i:=1 to 6 do
begin
setcolor(8);
rectangle(90+10*i,90+10*i,240-10*i,220-10*i);
setfillstyle(1,i);
floodfill(165,155,8);
end;
readkey;
end;
begin
pryam;
end.