Var a,b,c: Real; D: Real

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure Ris;
var
Form1: TForm1;
x,y: byte;
implementation
{$R *.dfm}
procedure Ris;
begin
form1.Canvas.Pen.Color:=form1.Color;
form1.Canvas.Ellipse(x,y,x+300,y+300);
x:=x+50;
form1.Canvas.Pen.Color:=clBlack;
form1.Canvas.Ellipse(x,y, x+300, y+300) ;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0;
y:=100;
timer1.Interval:=50;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ris;
end;
end.
6. Dastur kiritilgandan so‘ng “F9” tugmachasini tanlaymiz.

Mustaqil yechish uchun mashqlar
1. Ekranga 10 ta dastur so‘zini chiqaruvchi dastur tuzing.
2. 1 dan 20 gacha bo‘lgan sonlarning ko‘paytmasini hisoblavchi dastur tuzing.
3.
4. Kvadratni chapdan o‘nga harakatini ko‘rsatadigan dastur tuzing.
5. To‘g‘ri to‘rtburchakni chapdan o‘nga harakatini ko‘rsatadigan dastur tuzing.
6. funksiyaning qiymatini 2 x 2 oraliqda x 0 ,4 qadam bilan,
3 x 5 oraliqda x 0 ,5; qadam bilan, 6 x 10 oraliqda x 1; qadam bilan
hisoblang.
7. A (5 ) vektor elementlarining o‘sib borish tartibidajoylashtiring.
8. A (5 ) vektor elementlarini eng kichchigini toppish dasturini chizing
7. A 1 0 vektor elementlarini eng kattasini toppish dasturini chizing
8. A (5 ) vektor elementlarini o‘sib borish tartibida joylashtiring
9. X ( K , L ) matritsaning eng katta va eng kichik elementlari o‘rnini almashtiring.
10. Z (3,4 ) matritsaning har bir ustunidagi musbat elementlar sonidan tashkil
topgan M vektorni hosil qiling.