Delphi 7 dasturida aylana hosil qilish
0
29.04.2019 19:39
Javoblar
Markazning koordinatalari va radius berilganda canvas yordamida chizish uchun quyidagi kod yordam beradi
procedure TForm1.Button1Click(Sender: TObject);
var r,x0,y0:Integer;
begin
r:=100; // radius
x0:=300; // markaz koordinatasi
y0:=200; // markaz koordinatasi
Canvas.Ellipse(x0-r,y0-r,x0+r,y0+r);
end;
0
Bo‘sh qoldirsangiz “Anonim” deb ko‘rsatiladi.
ga javob berish
Bo‘sh qoldirsangiz “Anonim” deb ko‘rsatiladi.