1. . . (1. ; 2. , 3. ), (1. ; 2. ; 3. , ), (1. ; 2. ; 4. ).
2. .
3. . . .
4. PAINT.
- (, , ( : BMP, , , , , , ), , BMP, JPG (), GIF ());
- . RGB;
- (, , , , , ). :
- .
- . . .
5. . . . . - . .
6. .
7. . . .
8. .
9. .
10. . . . ( , . . .
11. - . . . HTML. .
Delphi . 3- :
1. ,
2. ,
3. .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
BD:file of
record
Fio:record family,name,surname:string[25] end;
adress:record index:integer; adres:string end;
EGE:array[1..4] of integer;
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
//
var i:integer;
begin
for i:=1 to 32 do
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[1,0]:='';
stringgrid1.Cells[2,0]:='';
stringgrid1.Cells[3,0]:='';
stringgrid1.Cells[4,0]:='';
stringgrid1.Cells[5,0]:='';
stringgrid1.Cells[6,0]:=' ';
|
|
|
stringgrid1.Cells[7,0]:=' ';
stringgrid1.Cells[8,0]:=' ';
stringgrid1.Cells[9,0]:=' ';
end;
end.
| ID | ID | . | ||||
| ID | ID | ||||||
BMP:
X*Y*T , X-, Y-, T- RGB. 3 60 000 000 .
1) , .
2) Y
1
| - | - |
2
| 1 | 1 | 2 | 2 |
3
| R1 | R2 | . |
4
| R1 | R2 | . |
5
| 1 | 1 | 2 | 2 | . |
6
| 1 | 1 | 2 | 2 | . |
..
| ff0000 | |||||||||||||||
, .
, . .
, .
1) a:=b+c ó 2) a=b+a ó 3) a+=b ó 4) a+=1 5) ó a++
1- b c , . 4- . 4 , , 3. 3. 4- 1, , . 2 , 1-. , .
|
|
|
.
:=2*a ó a:=a+a ó a+=a
, .
128,
| b:=1; for i:=1 to 128 do b:=b*a | b:=a; for i:=2 to 128 do b:=b*a | for i:=1 to 7 do a:=a*a | for (i=1;i<8;i++) {a*=a} | |
| 100% | 127/128=99% | 7/128=5,5% | 0.9*7/128=5% |
<S,X,Y,d,λ,s0,F>,
S ;
X ;
Y ;
d , ;
λ , , ;
s0 ;
F .
2- , .
, , .
:
1.
2.
3.
. qÎQ , xÎS* q
. 1: q4 -
. qÎQ, xÎS* (q0,x) (qn, x') .
. 2: q4
. x q1, q2 Q, , .
. q1,q2 Q (), () x, 2 ( , ).
