Protsedura ha'm funksiya

3.6.5-suwret. Protsedurag'a tiyisli masele

2. Payda bolg'an tuymeshe ustine tishqansha tuymeshesin izbe-iz eki marte basamiz ha'm programmalastiriw maydanina yomendegi programmani kiritemiz.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
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.

1. 
   Programma kiritilgenen so‘n' “F9” tuymesin saylaymiz.
   

3.6.6-suwret. Protsedurag'a tiyisli masele
O'z betinshe sheshiw ushin maseleler

1. 
   Ekrang'a 10 dana programma so'zin shig'ariwshi programma duzin'.
   
2. 
   1 den 20 g'a deyin bo‘lgan sanlardin' ko‘beymesin esaplawshi programma duzin'.
   
3. 
   Kvadratti shepden o‘ng'a hareketin ko‘rsetetug'in programma duzin'.
   
4. 
   Tuwri to‘rtmuyeshlikdi shepden o‘ng'a hareketine ko‘rsetetug'in programma duzin'.
   

5. funksiyanin' manisi araliqda qadem menen,
araliqda qadem menen, araliqda qadam menen esaplan'.
6. vektor elementlerinin' o‘sip bariw tartibinde jaylastirin'.
7. vektor elementlerinen en' kishisin tabiw programmasin sizin'
8. vektor elementlerinen en' ulkenin tabiw programmasin duzin'.
9. vektor elementlerinen o‘sip bariw tartibinde jaylastirin'.
10. matritsanin' en" ulken ha'm en' kishi elementleri o‘rnin almastirin'.
11. matritsanin' har bir ustunindegi on' elementler saninan payda bolg'an vektordi payda etin'.