رسم مربعات داخل بعضها بالوان مختلفة
صفحة 1 من اصل 1
رسم مربعات داخل بعضها بالوان مختلفة
رسم مربعات داخل بعضها بالوان مختلفة
- الكود:
program windo1;
uses crt;
var i : integer;
procedure wino2(i : integer);
begin
textcolor(4);
if i>=11 then write(' TURPO PASCAL7.1')
else
begin
clrscr;
textbackground(1+i);
window(i+4,i+2,76-i,24-i);
clrscr;
wino2(i+1);
end;
end;
begin
clrscr; textbackground(8);
wino2(i);
readkey;
end.
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى