|
Yusupjonov Azizbekning
|
| bet | 4/4 | | Sana | 06.07.2024 | | Hajmi | 10,15 Mb. | | #266740 |
Bog'liq Azizbek 1IAT 1 Ro\'imov.B ga5-dastur
uses graphABC, PointRect;
var r: rect;
i:integer;
procedure drawrect(r0:rect);
begin
rectangle(r0.left,r0.top,r0.right,r0.bottom);
end;
begin
r:=rectF(100,50,300,200);
drawrect(r);
for i:=0 to 15 do
begin
offsetrect(r,15,5);
drawrect(r);
e nd;
end.
6 -dastur
uses crt,graphABC;
const
n=28;
R=300;
var
i,j:integer;
x,y: array [0..n] of integer;
begin
SetWindowCaption('11-grafik dastur');
setwindowSize(2*r,2*r);
centerWindow;
setpencolor($0000ff);
clearwindow;
textout(3,3,inttostr(n));
circle(r,r,r);
for i:=1 to n do
begin
x[i]:=round(r+r*cos(2*pi/n*i));
y[i]:=round(r+r*sin(2*pi/n*i));
end;
for i:=1 to n-1 do
for j:=i+1 to n do
line(x[i],y[i],x[j],y[j]);
end.
7-dastur
uses graphAbc;
begin
setwindowsize(900,200);
setbrushcolor(random($ffffff));
rectangle(50,30,250,130);
textout(80,155,'Chyotka rangi '+inttostr(brushcolor));
setbrushcolor(random($ffffff));
rectangle(350,30,550,130);
textout(380,155,'Chyotka rangi '+inttostr(brushcolor));
setbrushcolor(random($ffffff));
rectangle(650,30,850,130);
textout(680,155,'Chyotka rangi '+inttostr(brushcolor));
end.
|
| |
