رسم شــــــــــــــــــــــــــــكل
صفحة 1 من اصل 1
رسم شــــــــــــــــــــــــــــكل
رسم شكل
- الكود:
program fenertes1;
uses crt;
var x : integer;
procedure fenetr(x:integer);
begin
if x=12 then write(' TURBO BASCAL7.1')
else
begin
clrscr;
textbackground(4+x);
window(2+x,12-x,78-x,13+x);
clrscr;
fenetr(x+1);
end;
end;
begin
clrscr;
textbackground(8);
fenetr(x);
readkey;
end.
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى